> Tous les forums > Forum Bureautique
 Macro excel selection d'une plage (a vot bon coeur
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
nbenhamo
  Posté le 16/09/2011 @ 12:17 
Aller en bas de la page 
Nouvel astucien

Bonjour,
Je souhaite automatiser un traitement mais je bloque sur une macro a savoir.
j'ai un tableau de 10 colonnes et un nombre de ligne variable.
Je souhaite par macro sélectionner toutes les colonnes de A à K qui ont la valeur égale soit "OUI" ou à "Fortier" ou à "Test"en colonne G

Si une personne à la solution
D'avance merci



Modifié par nbenhamo le 16/09/2011 16:10
Publicité
gilbert_rgi
 Posté le 16/09/2011 à 20:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir

ceci peut-il faire la demande ?

cliquez ici

dlxpat
 Posté le 16/09/2011 à 22:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir ! interessé par la question posée par nbenhamo (que je remercie) j'ai regardé la proposition de gilbert_rgi, mais la macro bloque au niveu de la ligne

.TintAndShade = 0

Est ce normal ? Merci d'avance

gilbert_rgi
 Posté le 17/09/2011 à 09:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Fonctionne avec la version excel 2007

ces attributs servent au contraste de la couleur et au motif soit enlever la ligne pour les versions précédentes

ou mettre un rem (') devant cette ligne

idem pour .PatternTintAndShade = 0

comme ceci

With Selection.Interior
.Pattern = xlNone
' .TintAndShade = 0
'.PatternTintAndShade = 0
End With

ce morceau de programme est utilisé uniquement pour enlever la couleur des selections précédentes



Modifié par gilbert_rgi le 17/09/2011 09:37
dlxpat
 Posté le 17/09/2011 à 10:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Merci à Gilbert ! j'ai voulu tester mais lorsque j'ouvre le fichier c'est une page blanche !!! en faisant Alt F11 je tombe bien sur le VBA mais impossible de retrouver le fichier original !!

gilbert_rgi
 Posté le 17/09/2011 à 12:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

cliquez ici fichier avec modifications faites



Modifié par gilbert_rgi le 17/09/2011 15:53
dlxpat
 Posté le 17/09/2011 à 15:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

C'est sympa ! j'ai recopié la mcro dans un fchier pour lequel cette manip m'est utile et tout est OK. Par contre dans ton fichier joint, il faut que j'aille voir un autre onglet puis revenir sur le premier pour que la macro s'effectue correctement !! Ce n'est pas moi qui ai posé la première question, mais ce dossier m'a bigrement plu ! Merci à toi.

gilbert_rgi
 Posté le 17/09/2011 à 16:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Sur quelle version de excel êtes vous?

moi je suis sur 2007 et je ne rencontre pas ce problème

dlxpat
 Posté le 17/09/2011 à 19:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Je vais paraitre idiot mais je ne sais jamais où aller pour connaitre ma version de Excel et/ou Word.

Nota : désolé de vous avoir tutoyer (ce n'est pas trop mon habitude !) mais j"avais cru comprendre que c'était un peu de mise sur ce forum, au demeuranr absolument superbe.

Publicité
gilbert_rgi
 Posté le 18/09/2011 à 09:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

dlxpat a écrit :

Je vais paraitre idiot mais je ne sais jamais où aller pour connaitre ma version de Excel et/ou Word.

Nota : désolé de vous avoir tutoyer (ce n'est pas trop mon habitude !) mais j"avais cru comprendre que c'était un peu de mise sur ce forum, au demeuranr absolument superbe.

au démarrage d'excel ou de word la version est indiquée sinon dans à propos la version y est aussi

le à propos dans la version 2007 se trouve dans les options

le tutoiement ne me choque pas certains l'emploient rapidement d'autres moins ce n'est pas grave.

dlxpat
 Posté le 18/09/2011 à 12:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

C'était tout bête et je n'avais jamais fait attention. Ce serait Excel 2000 !

gilbert_rgi
 Posté le 19/09/2011 à 08:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

peut-être que que le vba du programme ne fonctionne pas correctement avec cette version ancienne ?

le poseur de la question pourrait peut-être nous dire le fonctionnement avec son environnement pour son premier message il ne donne pas de retour {#}



Modifié par gilbert_rgi le 19/09/2011 08:34
nbenhamo
 Posté le 19/09/2011 à 09:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Bonjour a tous et merci a Gilbert_RGI je suis désolé de ne pas avoir pu répondre avant mais j'étais en W.End sans micro désolé. Ce matin j'ai regardé la macro elle fonctionne parfaitement,mais le seul soucis que j'ai c'est qu'elle color en jaune la selection de mais de garde pas la selection active. En fait j'ai besoin soit de copier soit de couper cette selection il faut donc quelle reste active. gilbert peux tu corriger la macro juste enlever le Jaune et garder la selection active. Sinon je te remercie ça fait quinze jours que je galere sans trouver la solution alors merci et bravo.
gilbert_rgi
 Posté le 19/09/2011 à 09:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

la selection est temporaire

donc il faut faire le traitement au fure et à mesure du déroulement

ex si le mot trouvé est Oui alors supprimer la ligne

si le mot trouvé est Fortier alors ......

si le mot est Test alors .........

la coloration en jaune est en quelques sortes le traitement

voilà il faut préciser ce que l'on veut faire {#}



Modifié par gilbert_rgi le 19/09/2011 09:45
nbenhamo
 Posté le 19/09/2011 à 10:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Gilbert,

J'ai bien compris mais peut-on faire la sélection de toute les lignes et les copier ensuite pour les incorporer a un autre traitement.

Je ne peux pas ou difficilement utiliser cette macro si elle sélectionne ligne par ligne.

Il faut absolument que la sélection se fasse et quelle reste active sur toutes les lignes qui sont ok aux critères de sélection de la colonne A à K.

Merci pour ton aide

gilbert_rgi
 Posté le 19/09/2011 à 10:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

je ne comprend pas car ça revient au même de faire le traitement ligne par ligne

mais bon

nbenhamo
 Posté le 19/09/2011 à 10:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Gilbert,

Tu as sûrement raison mais je suis pas vraiment une bête en macro et je le vois mieux comme ça avec une sélection entière et qui a la fin de la macro la sélection qui reste active.

Comme ça je peux enchainer avec copier le coller

Merci de ta patience

Publicité
gilbert_rgi
 Posté le 19/09/2011 à 10:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

modifier

With Selection
.Interior.ColorIndex = 36
End With

par

With Selection
.Copy Sheets("feuil2").[G65000].End(xlUp).Offset(1, -6)
End With

ce qui copie la selection en feuille 2

suite à ma modification



Modifié par gilbert_rgi le 19/09/2011 10:54
nbenhamo
 Posté le 19/09/2011 à 11:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Gilbert,

j'zai eu ta derniere modif, c'est presque ça que je souhaite, peux tu plutôt que de copier en feuil2 , copier la selection à partir de la ligne Z1 de la feuil1 .

Merci

gilbert_rgi
 Posté le 19/09/2011 à 11:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

désolé ce sera en z2 {#}

With Selection
.Copy Sheets("feuil1").[z65000].End(xlUp).Offset(1, -6)
End With

nbenhamo
 Posté le 19/09/2011 à 12:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Gilbert super, encore merci .

J'ai teste rapidement c'est OK je vérifie plus profondement et te tien au courant.

En tout cas BRAVO et MERCI

nbenhamo
 Posté le 19/09/2011 à 15:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Gilbert,

Tout est ok je te remercie pour ta rapidité et ton talent

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
103,78 €Disque dur externe portable Seagate Expansion 5 To USB 3.0 à 103,78 €
Valable jusqu'au 02 Mars

Amazon fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 5 To à 103,78 € livré gratuitement alors qu'on le trouve ailleurs à partir de 120 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC). 


> Voir l'offre
45,99 €Boîtier PC ATX Fractal Focus G à 45,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le très bon boîter moyen tour Fractal Design Focus G à 45,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 69 €. Le boitier Fractal Design Focus G est une plateforme ultra-polyvalente douée de fonctions ultra pratiques (format ATX, filtres, USB 3.0, 2 ventilateurs LED inclus, emplacements 5,25 pouces pour lecteur DVD/Blu-Ray, montage facile).


> Voir l'offre
52,99 €SSD SanDisk Plus 480 Go à 52,99 €
Valable jusqu'au 01 Mars

Amazon fait une promotion  sur le SSD SanDisk SSD Plus 480 Go à 52,99 € livré gratuitement alors qu'on le trouve actuellement autour de 60 € ailleurs. Une bonne affaire pour ce SSD performant qui offre des débits de 535 Mo/s en lecture et 445 Mo/s en écriture. Cette version est garantie 3 ans. 


> Voir l'offre

Sujets relatifs
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
sélection plage de données (macro)
Définir 1 plage de cellules dans 1 macro excel
excel macro selection cellules vides Résolu
2 pages par feuille dans macro excel
Creation d' une boucle macro dans fichier EXCEL pour impression
besoin d'une macro excel 2007
Macro Excel. Mes colonnes disparaissent.
libre Office : macro Excel présente et non active
Macro couleur séries graphique excel 2010
Plus de sujets relatifs à Macro excel selection d''une plage (a vot bon coeur
 > Tous les forums > Forum Bureautique