Bonjour
Le code ci-dessous me donne satisfaction si je commence mes saisies dès la première ligne (1).
Mon souci c'est que je veux que ce contrôle ne se fasse qu'à partir de la la ligne 12 et je ne sais pas comment indiquer cette information à ma macro.
Merci de votre aide
Lenul

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 Sub