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 JeanMarie le 21/09/2011 20:05:05

Bonsoir ramarc,

Regarde si le code te convient.
Sub ramac_mdf_xlpages()
Dim j As Integer
Dim lg As Range
j = 1
With Sheets("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
            ' copier les cellules a,b,c,d feuil3
            .Range("A" & j, "D" & j).Copy
            ' allez Feuil=données, coller dans a2,b2,c2,d2
            Sheets("Données").Range("A2").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            j = j + 1
        Else
            'Si la valeur est rien, la partie si dessous est exécutée
            'l'instruction Exit For fait quitter la boucle For ... Next
            Exit For
        End If
    Next
End With

End Sub
Ramac que veux-tu faire exactement ?

@+Jean-Marie