problème de boucle

[frisou65]

Bonjour,
Je cherche à copier toutes les cellules des colonnes A et B à partir de la ligne 6 jusqu'à la dernière cellule non vide de la colonne A. Pour cela, j'utilise ce programme:

 
    Dim i, j As Integer   
        i = 6   
    Do While (Range("A" & i).Value <> "")
         Range("A" & i & ":B" & i).Select
        Selection.Copy
        Sheets("Récap_3ème tri_V_élo1").Select
        Range("A" & i + 7&).Select
        ActiveSheet.Paste
         i = i + 1          
    Loop
 

Mon problème est qu'excel sort de la boucle après la 1ère ligne qu'il copie alors que ce n'est pas la dernière cellule non vide.
Est ce que quelqu'un aurait une solution ?
Merci d'avance.

[zandru]

Bonjour,

il faut réactiver ta feuille de départ à la fin de ton traitement, sinon la condition du while s'applique sur ta feuille Sheets("Récap_3ème tri_V_élo1") qui est la feuille active lors du deuxieme bouclage.

    Dim i, j As Integer   
        i = 6   
    Do While (Range("A" & i).Value <> "")
         Range("A" & i & ":B" & i).Select
        Selection.Copy
        Sheets("Récap_3ème tri_V_élo1").Select
        Range("A" & i + 7&).Select
        ActiveSheet.Paste
        Sheet("feuil1").select 'feuil1 est le nom de ta feuil de départ
         i = i + 1          
    Loop

[frisou65]

Merci beaucoup. Ta solution marche nickel.

[Godzestla]

Salut,

pour info c'est plus propre et plus rapide comme ceci. (évite les selects qui ralentissent le code).

 
    Dim i, j As Integer
        i = 6
    With ActiveSheet
        Do While (.Range("A" & i).Value <> "")
        .Range("A" & i & ":B" & i).Copy
        ActiveSheet.Paste Destination:=Worksheets("Récap_3ème tri_V_élo1").Range("A" & i + 7)
        i = i + 1
    Loop
    End With