Obligation de renseigner toutes les cellules d'une plage en ligne

Bonjour au forum,

Je souhaite obliger l'utilisateur à renseigner toutes les cellules d'une plage si au moins une de ces cellules de cette plage est renseignée.

Par exemple :

Ma plage est B11:M4010.

Si l'utilisateur saisi une valeur dans la cellule F11, j'aimerai qu'il soit obligé de renseigner toutes les cellules de cette ligne, soit de B11 à M11.

Je sais que l'idéal serait d'utiliser un formulaire mais je ne souhaite pas en utiliser dans ce fichier.

Merci d'avance !

Bonjour,

Copiez ceci dans le module de la feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B11:M36")) Is Nothing Then
        For j = 11 To 36
            If Application.WorksheetFunction.CountA(Range(Cells(j, "B"), Cells(j, "M"))) < 12 And Application.WorksheetFunction.CountA(Range(Cells(j, "B"), Cells(j, "M"))) >= 1 Then
                For i = 2 To 13
                   If Cells(j, i) = "" Then
                        Cells(j, i).Activate
                        GoTo Sortie
                   End If
                Next i
            End If
        Next j
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

Bonjour Arturo83,

Merci beaucoup, ça me convient parfaitement

Bonne journée !