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 |
Forums