Difficulté pour copier d'une page vers une autre.

Bonjour.
Je suis actuellement au travail et je me trouve en difficulté devant un problème.
Je dois extraire d'une base de donnée excel certaines lignes qui contiennent le terme ZODIAC.
Pour ce faire je me suis servi de If
Je trouve la donnée, copie la ligne. Je selectionne ensuite la 2nd feuille et demande de coller en rajoutant une ligne à chaque fois mais la fonction paste refuse de fonctionner :/
Il doit y avoir une autre méthode.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macro2()   Sheets("sheet1").Select ligne = 64     Do Until ligne = 3062 If Range("F" & ligne) = "0800ZODISOLI" Or Range("F" & ligne) = "0800ZODIACSOLIM" Then Rows(ligne).Copy Sheets("Feuille1").Select ligne_tableau = ligne - 63 ActiveWorkbook.ActiveSheet.Range("A" & ligne_tableau).Select ActiveWorkbook.ActiveSheet.Paste Sheets("Sheet1").select End If ligne = ligne + 1 Loop   End Sub

---

Bon ben cela fonctionne sauf que mon tableau possède désormais d'ici espace. Je pense rajouter une bouche avec if is empty etc

Bonjour,

Quelques petits conseils.

Quand tu veux boucler sur des lignes, une boucle fort evitera l'incrémentation de ta variable ligne

Code:

---

1 2 3 4

For ligne = 64 to 3062 ... Next Ligne

---

On se perd un peu avec tous ces Select (a eviter autant que possible)
Une astuce consiste a déclarer 2 variable Worksshet (1 pour la source et 1 pour la cible)
On travaillera avec ces variables

Code:

---

1 2 3

Dim ShSource as Worksheet Dim ShCible as Worksheet

---

Ci dessous un exemple complet de la boucle et de la copie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim shSource As Worksheet Dim shCible As Worksheet   Dim Ligne As Long   Set shSource = Sheets("Feuil1") Set shCible = Sheets("Feuil2")   For Ligne = 1 To 10   If shSource.Range("A" & Ligne).Value = "TOTO" Then ' Copie la ligne sur la prochaine ligne vide de la feuille cible shSource.Rows(Ligne).Copy shCible.Rows(shCible.Range("A65536").End(xlUp).Row + 1)   End If   Next Ligne

---

Tout d'abord merci pour ta réponse, cela m'aide vraiment.

Je viens d'essayer ton code et il ne fonctionne pas :/
J'ai collé le code suivant en changeant la variable à rechercher. Toutefois il m'en faut 2 à chercher, j'ai donc réaménager le code.
Toutefois le code bug à Set shSource = Sheets("Feuil1")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test()   Dim shSource As Worksheet Dim shCible As Worksheet   Dim Ligne As Long   Set shSource = Sheets("Feuil1") Set shCible = Sheets("Feuil2")   For Ligne = 1 To 10   If shSource.Range("A" & Ligne).Value = "0800ZODISOLI" Or "0800ZODIACSOLIM" Then ' Copie la ligne sur la prochaine ligne vide de la feuille cible shSource.Rows(Ligne).Copy shCible.Rows(shCible.Range("A65536").End(xlUp).Row + 1)   End If   Next Ligne   End Sub

---

plutot comme cela

(J'ai mis la colonne a F comme sur ton premier post

Code:

---

1 2 3 4

If shSource.Range("F" & Ligne).Value = "0800ZODISOLI" Or shSource.Range("F" & Ligne).Value = "0800ZODIACSOLIM" Then ' Copie la ligne sur la prochaine ligne vide de la feuille cible shSource.Rows(Ligne).Copy shCible.Rows(shCible.Range("A65536").End(xlUp).Row + 1) End If

---

NB : quand tu veux poster du code, utilise les balise codes (bouton #)

D'accord merci :)
Par contre j'ai toujours le problème avec

Code:

---

Set shSource = Sheets("Feuil1")]

---

qui me met Erreur d'exécution, l'indice n'appartient pas à la sélection

édit: Je viens de trouver l'origine du problème, il vient du du fait que je n'avais pas mis mes noms de feuilles.

Par contra j'ai essayé ta macro et j'ai aucun résultat alors qu'elle fonctionne bien et ne bug pas.

Pense a modifier la variable ligne dans le For.
ici on boucle sur les lignes 1 à 10 alors que sur ton premier Post c'est 64 à 3062

Merci pour ton aide. J'étais vraiment peu réactif et attentionné.
Je te remercie vraiment !
Je vais impressionner mon patron maintenant ^^