Application à une plage donnée

lenul78570 · 22 Mars 2010

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

Code:

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 · 22 Mars 2010

Re : Application à une plage donnée

bonjour lenul

teste ceci

Code:

....
    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)
....

Application à une plage donnée

lenul78570

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Discussions similaires