Rapport de message :*
 

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

----------------------------------------------------------------------