Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 6 To DL 'boucle sur toutes les lignes I de 6 à DL
'si la cellule en colonne A de la boucle n'est pas vide et le nombre de cellules vides des colonne K à V est égale à 12, message
If O.Cells(I, "A").Value <> "" And Application.WorksheetFunction.CountBlank(O.Range(O.Cells(I, "K"), O.Cells(I, "V"))) = 12 Then MsgBox "Ligne " & I & " à completer !"
Next I 'prohaine ligne de la boucle
End Sub
Ça veut dire quoi ? Toutes les cellules de K6:V6 doivent être remplies ou au moins une ?je dois mettre ça en place afin que je sois sure que les personnes utilisant ce fichier me mettent toutes les données.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range, cible As Range
If Target.Row < 6 Then Exit Sub
For Each c In Range("A6", Range("A" & Rows.Count).End(xlUp)(6))
If c <> "" And c.Row <> Target.Row Then
Set cible = c(1, 11).Resize(, 12) 'colonnes K à V
If Application.CountA(cible) = 0 Then
Application.EnableEvents = False 'désactive les évènements
cible.Select
Application.EnableEvents = True 'réactive les évènements
MsgBox cible.Address(0, 0) & " à renseigner..."
Exit For
End If
End If
Next
End Sub