Difficulté pour copier d'une page vers une autre. [Résolu]

[yamura]

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

[jfontaine]

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

[yamura]

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

[jfontaine]

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 #)

[yamura]

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.

[jfontaine]

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

[yamura]

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