sortir d'une boucle en fin de tableau |
Titre du sujet : sortir d'une boucle en fin de tableau par ramarc le 21/09/2011 16:52:50 Bonjour à toutes et tous. dans mon appli je prend toutes les lignes non vide en colonne A. quand j'arrive aprés la derniére ligne non vide J'ai les lignes normal d'Excel non actives. Je cherche le moyen de sortir de la boucle aprés ma derniére ligne, je met en exemple ma boucle car j'ai du mal a envoyer un fichier joint. d'avance merci si quelqu'un me donne la soluce. --------------------------------------------------------------------- Dim j As Integer j = 1 With Feuil3 For Each lg In .UsedRange.Rows 'pour chaque ligne de la colonne A If Application.Max(.Range("A" & lg.Row).EntireRow) <> " " Then 'si la valeur est differente de rien 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 j = j + 1 End If Next End With ---------------------------------------------------------------------- |
Forums