Application à une plage donnée

[lenul78570]

Bonjour la macro ci-dessous me donne satisfaction si je commence mes saisies en ligne 1.
Or cette macro ne doit s'appliquer qu'à partir de la ligne 12 et je ne sais pas comment lui donner cette info
Merci de votre aide
Lenul

Sub controlesaisie()
'
' controlesaisie Macro
'

'
    Dim Lg, cel As Range, Plg As Range
    Lg = Range("m2012").End(xlUp).Row + 1
    Set Plg = Range("a" & Lg & ":d" & Lg & ",f" & Lg & ",i" & Lg & ",l" & Lg)
    For Each cel In Plg
    If cel = "" Then
    cel.Activate
    MsgBox (Cells(11, cel.Column) & Chr(10) & "Veuillez renseigner cette cellule!")
    Exit Sub
    End If
    If WorksheetFunction.CountA(Plg) = 7 Then Range("m" & Lg) = "ok"
    Next cel
    
End Su

 

[pierrejean]

Re : Application à une plage donnée

bonjour lenul

teste ceci

....
    Dim Lg, cel As Range, Plg As Range
    Lg = Range("m2012").End(xlUp).Row + 1
    [COLOR=blue]if Lg<12 then Lg=12
[/COLOR]    Set Plg = Range("a" & Lg & ":d" & Lg & ",f" & Lg & ",i" & Lg & ",l" & Lg)
....