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
bonjour, recherchev(...) marche pas ? =si(recherchev...) avec l'aide fonction ca devrait pas de poser de probleme tu crées un tableau avec tes 20 noms sur une feuille différente puis tu fais =recherchev(valeur_cherchée;table_matrice;n°indexcolonne;..)
Bonjour,
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ès 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'éviterai une somme concidérable de travaille de trie manuel
Deubs
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
bonjour,
recherchev(...) marche pas ?
=si(recherchev...)
avec l'aide fonction ca devrait pas de poser de probleme
tu crées un tableau avec tes 20 noms sur une feuille différente
puis tu fais
=recherchev(valeur_cherchée;table_matrice;n°indexcolonne;..)
Bonjour,
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ès 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'éviterai une somme
concidérable de travaille de trie manuel
Deubs
--
clotarn vous dit : bonjour à tous
le savoir ne vaut que s'il est partagé par tous.
bonjour, recherchev(...) marche pas ? =si(recherchev...) avec l'aide fonction ca devrait pas de poser de probleme tu crées un tableau avec tes 20 noms sur une feuille différente puis tu fais =recherchev(valeur_cherchée;table_matrice;n°indexcolonne;..)
Bonjour,
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ès 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'éviterai une somme concidérable de travaille de trie manuel
Deubs
-- clotarn vous dit : bonjour à tous le savoir ne vaut que s'il est partagé par tous.
eric.debunderie
BEn, j'debute. Alors avec un peu plus d'explication...! J'ai vu aussi par filtre élaboré ?
BEn, j'debute.
Alors avec un peu plus d'explication...!
J'ai vu aussi par filtre élaboré ?
BEn, j'debute. Alors avec un peu plus d'explication...! J'ai vu aussi par filtre élaboré ?
Daniel
Bonjour. Essaie le code suivant (les données sont sur Feuil1, les noms à trouver enFeuil2, colonne A et les copiesz se fon sur Feuil3
Sub Test() Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer Sheets("Feuil2").Select Set plage = Sheets("Feuil2").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil1").Select Ctr = 1 For Each c In plage Ligne = Application.Match(c.Value, Range("A:A"), 0) Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr) Ctr = Ctr + 1 Next c End Sub
Cordialment. Daniel a écrit dans le message de news:
Bonjour,
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ès 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'éviterai une somme concidérable de travaille de trie manuel
Deubs
Bonjour.
Essaie le code suivant (les données sont sur Feuil1, les noms à trouver
enFeuil2, colonne A et les copiesz se fon sur Feuil3
Sub Test()
Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer
Sheets("Feuil2").Select
Set plage = Sheets("Feuil2").Range("A1", Range("A65536").End(xlUp))
Sheets("Feuil1").Select
Ctr = 1
For Each c In plage
Ligne = Application.Match(c.Value, Range("A:A"), 0)
Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr)
Ctr = Ctr + 1
Next c
End Sub
Cordialment.
Daniel
<eric.debunderie@wanadoo.fr> a écrit dans le message de news:
1130278013.314320.32990@g44g2000cwa.googlegroups.com...
Bonjour,
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ès 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'éviterai une somme
concidérable de travaille de trie manuel
Bonjour. Essaie le code suivant (les données sont sur Feuil1, les noms à trouver enFeuil2, colonne A et les copiesz se fon sur Feuil3
Sub Test() Dim plage As Range, c As Range, Ligne As Integer, Ctr As Integer Sheets("Feuil2").Select Set plage = Sheets("Feuil2").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil1").Select Ctr = 1 For Each c In plage Ligne = Application.Match(c.Value, Range("A:A"), 0) Range("A" & Ligne).EntireRow.Copy Sheets("Feuil3").Rows(Ctr) Ctr = Ctr + 1 Next c End Sub
Cordialment. Daniel a écrit dans le message de news:
Bonjour,
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ès 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'éviterai une somme concidérable de travaille de trie manuel
Cela me semble être la meilleure solution... Qu'as-tu essayé qui n'a pas fonctionné ?
ChrisV
a écrit dans le message de news:
BEn, j'debute. Alors avec un peu plus d'explication...! J'ai vu aussi par filtre élaboré ?
Bonjour Eric,
J'ai vu aussi par filtre élaboré...
Cela me semble être la meilleure solution...
Qu'as-tu essayé qui n'a pas fonctionné ?
ChrisV
<eric.debunderie@wanadoo.fr> a écrit dans le message de news:
1130279226.631387.295890@g14g2000cwa.googlegroups.com...
BEn, j'debute.
Alors avec un peu plus d'explication...!
J'ai vu aussi par filtre élaboré ?
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
ChrisV
Re,
Avec la plage de données (contenant l'ensemble des noms) nommée ici Zn, la plage des noms que tu souhaites extraire nommée ici "Criteres" et la cellule vers laquelle tu désires copier le résultat de la liste filtrée, nommée ici "Extraction"
Sub zaza() Application.ScreenUpdating = False [Zn].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[Criteres], CopyToRange:=[Extraction], _ Unique:úlse End Sub
ChrisV
a écrit dans le message de news:
BEn, j'debute. Alors avec un peu plus d'explication...! J'ai vu aussi par filtre élaboré ?
Re,
Avec la plage de données (contenant l'ensemble des noms) nommée ici Zn, la
plage des noms que tu souhaites extraire nommée ici "Criteres" et la cellule
vers laquelle tu désires copier le résultat de la liste filtrée, nommée ici
"Extraction"
Sub zaza()
Application.ScreenUpdating = False
[Zn].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[Criteres], CopyToRange:=[Extraction], _
Unique:úlse
End Sub
ChrisV
<eric.debunderie@wanadoo.fr> a écrit dans le message de news:
1130279226.631387.295890@g14g2000cwa.googlegroups.com...
BEn, j'debute.
Alors avec un peu plus d'explication...!
J'ai vu aussi par filtre élaboré ?
Avec la plage de données (contenant l'ensemble des noms) nommée ici Zn, la plage des noms que tu souhaites extraire nommée ici "Criteres" et la cellule vers laquelle tu désires copier le résultat de la liste filtrée, nommée ici "Extraction"
Sub zaza() Application.ScreenUpdating = False [Zn].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[Criteres], CopyToRange:=[Extraction], _ Unique:úlse End Sub
ChrisV
a écrit dans le message de news:
BEn, j'debute. Alors avec un peu plus d'explication...! J'ai vu aussi par filtre élaboré ?
