JE cherche une macro qui me permet de selectionner les lignes, de les
copier et coller dans une autre feuille ,en fonction de 20 noms
(predefinis) : la 1 er colonne contient pr=E8s de 800 noms. JE veux
selectionner les lignes dont le nom (parmi les 20) apparait dans la 1er
colone
Un grnd merci pour ce coup de main qui m'=E9viterai une somme
concid=E9rable de travaille de trie manuel
Un petit exemple avec macro et filtre élaboré... http://cjoint.com/?kAbrGZTzeo
ChrisV
a écrit dans le message de news:
ben dans filtre élabré ;je ne sais par remplir "plage" et "zone de critere" :-(
Un petit exemple avec macro et filtre élaboré...
http://cjoint.com/?kAbrGZTzeo
ChrisV
<eric.debunderie@wanadoo.fr> a écrit dans le message de news:
1130281480.110610.39190@z14g2000cwz.googlegroups.com...
ben dans filtre élabré ;je ne sais par remplir "plage" et "zone de
critere" :-(
Un petit exemple avec macro et filtre élaboré... http://cjoint.com/?kAbrGZTzeo
ChrisV
a écrit dans le message de news:
ben dans filtre élabré ;je ne sais par remplir "plage" et "zone de critere" :-(
Daniel
Bonjour. Après une nuit de sommeil et relecture, je viens de m'apercevoir que la macro ne répond pas au problème. Elle ne sélectionne que le premier nom rencontré et ignore les suivants. Toutefois, si cela te conviens :
Sub Test() Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer Dim Noms(19) As String Sheets("Feuil1").Select Noms(0) = "toto" Noms(1) = "tutu" '.... Noms(19) = "titi" Ctr = 1 For i = 0 To 19 Ligne = Application.Match(Noms(i), Range("A:A"), 0) Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr) Ctr = Ctr + 1 Next i End Sub
Cordialement. Daniel a écrit dans le message de news:
juste pour abuser: Y a t-il moyen d'incorporer les 20 nom dans ta macro pour ne pas les retaper systématique en feuil2
Bonjour.
Après une nuit de sommeil et relecture, je viens de m'apercevoir que la
macro ne répond pas au problème. Elle ne sélectionne que le premier nom
rencontré et ignore les suivants.
Toutefois, si cela te conviens :
Sub Test()
Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer
Dim Noms(19) As String
Sheets("Feuil1").Select
Noms(0) = "toto"
Noms(1) = "tutu"
'....
Noms(19) = "titi"
Ctr = 1
For i = 0 To 19
Ligne = Application.Match(Noms(i), Range("A:A"), 0)
Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr)
Ctr = Ctr + 1
Next i
End Sub
Cordialement.
Daniel
<eric.debunderie@wanadoo.fr> a écrit dans le message de news:
1130281658.949986.188360@g14g2000cwa.googlegroups.com...
juste pour abuser:
Y a t-il moyen d'incorporer les 20 nom dans ta macro pour ne pas les
retaper systématique en feuil2
Bonjour. Après une nuit de sommeil et relecture, je viens de m'apercevoir que la macro ne répond pas au problème. Elle ne sélectionne que le premier nom rencontré et ignore les suivants. Toutefois, si cela te conviens :
Sub Test() Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer Dim Noms(19) As String Sheets("Feuil1").Select Noms(0) = "toto" Noms(1) = "tutu" '.... Noms(19) = "titi" Ctr = 1 For i = 0 To 19 Ligne = Application.Match(Noms(i), Range("A:A"), 0) Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr) Ctr = Ctr + 1 Next i End Sub
Cordialement. Daniel a écrit dans le message de news:
juste pour abuser: Y a t-il moyen d'incorporer les 20 nom dans ta macro pour ne pas les retaper systématique en feuil2
