Boucle feuille

[Hoareau]

Bonjour

Je voudrais savoir pourquoi, avec la boucle ci-dessous, il faut que la cellule a2 et b2, de la feuille récapitulatif, soient non vide pour qu'elle fonctionne correctement

Sub boucle_feuille()

For i = 2 To 3

Sheets(i).Activate

Range("B15:E70").Copy Destination:=Sheets("Recapitulatif").Range("a2").End(xlToRight).Offset(0, 1)

Sheets("Recapitulatif").Select

Cells.EntireColumn.AutoFit

Next

End Sub


merci

 

[Dranreb]

Re : Boucle feuille

Bonsour.
Ça vient de ce que la propriété End est pensée sur la supposition qu'on voit ce qu'on fait vu qu'elle simule l'utilisation des touches Fin puis flèche. Or le résultat de cette manœuvre dépend de l'état vide ou non de la cellule de départ afin de permettre d'atteindre plusieurs sorte de fins avec les mêmes touches.
Cordialement

 

[Fred0o]

Re : Boucle feuille

Bonjour Hoareau,

Parcequ'avec ta syntaxe, le curseur va se positionner sur la cellule la plus à droite de la feuille si A2 et B2 sont vides. La bonne syntaxe est la suivante :

Sub boucle_feuille()
    For i = 2 To 3
        Sheets(i).Activate
        Range("B15:E70").Copy Destination:=Sheets("Recapitulatif").Range("IV2").End(xlToLeft).Offset(0, 1)
        Sheets("Recapitulatif").Select
        Cells.EntireColumn.AutoFit
    Next
End Sub

A+

 

[Hoareau]

Re : Boucle feuille

Impeccable

merci