zoidberg
XLDnaute Nouveau
Salut tout le monde.
Je suis face à un petit soucis et je requiers votre aide :
J'ai un tableau avec deux entrées, j'aimerai copier toutes les lignes d'une entrée, les coller dans une feuille et faire pareil avec les lignes de l'autre entrée.
Dans mon exemple ici j'ai Pierre et Adrien avec respectivement des valeurs associées.
J'aimerai donc un petit morceau de code pour que toutes les données avec "Pierre" soient copiées et collée dans la feuille suivante et pareil pour Adrien de façon à avoir deux feuilles de données séparées que je pourrais ensuite traiter séparément.
Voici ce que j'ai écrit comme code qui ne fonctionne pas du tout :
Dim i As Long
For i = 1000 To 2 Step -1
If Range("A" & i) = "Pierre" Then EntireRow(i).Select
Next i
Selection.Copy
Range(A1000).Select ' ici j'ai mis A1000 mais ce serai une autre feuille
ActiveSheet.Paste
Voila merci à tous d'avance pour votre aide !
Je suis face à un petit soucis et je requiers votre aide :
J'ai un tableau avec deux entrées, j'aimerai copier toutes les lignes d'une entrée, les coller dans une feuille et faire pareil avec les lignes de l'autre entrée.
Dans mon exemple ici j'ai Pierre et Adrien avec respectivement des valeurs associées.
J'aimerai donc un petit morceau de code pour que toutes les données avec "Pierre" soient copiées et collée dans la feuille suivante et pareil pour Adrien de façon à avoir deux feuilles de données séparées que je pourrais ensuite traiter séparément.
Voici ce que j'ai écrit comme code qui ne fonctionne pas du tout :
Dim i As Long
For i = 1000 To 2 Step -1
If Range("A" & i) = "Pierre" Then EntireRow(i).Select
Next i
Selection.Copy
Range(A1000).Select ' ici j'ai mis A1000 mais ce serai une autre feuille
ActiveSheet.Paste
Voila merci à tous d'avance pour votre aide !