Rapport de message :*
 

Re: sortir d'une boucle en fin de tableau

Titre du sujet : Re: sortir d'une boucle en fin de tableau
par ramarc le 29/09/2011 10:10:40

Bonjour a tous, et merci, j'ai fait comme cela et ça fonctionne.

j = 1
' Teste le contenu de la cellule active, si celle-ci est vide, sort de la boucle.
      Do Until IsEmpty(ActiveCell)
          Sheets("Feuil3").Select
' copier les cellules a,b,c,d feuil3
           Range("A" & j, "D" & j).Select
           Selection.Copy
           Sheets("Données").Select
' allez Feuil=données, coller dans a2,b2,c2,d2
           Range("A2").Select
           Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
' Affiche le contenu des cellules dans un message.
           MsgBox ActiveCell.Value
           Sheets("Feuil3").Select
           Range("A" & j).Select
           ActiveCell.Offset(1, 0).Select
         ' Passe à la cellule suivant 1 ligne en dessous.
'         ActiveCell.Offset(1, 0).Select
j = j + 1
        ' Retourne au début de la boucle.
      Loop