Comment empêcher les cellules de contenir des entrées vides ou manquantes dans Excel ?

Si vous créez un tableau dans la plage A1:B10 d'une feuille de calcul et souhaitez vous assurer qu'aucune cellule vide n'est laissée dans cette plage, vous pouvez mettre en place une solution qui affiche automatiquement une invite si une entrée vide est détectée lors de l'édition. Suivez ce guide étape par étape pour éviter les entrées vides ou manquantes dans la plage spécifiée du tableau.

Empêcher les entrées vides ou manquantes dans les cellules à l'aide d'un code VBA

Empêcher les entrées vides ou manquantes dans les cellules à l'aide d'un code VBA

La plage A1:B10 est désignée pour votre tableau, avec A1 et B1 servant d'en-têtes de tableau, comme le montre la capture d'écran ci-dessous. Suivez les étapes décrites pour éviter les entrées vides ou manquantes dans la plage A2:B10 tout en remplissant le tableau.

1. Dans la feuille de calcul où vous souhaitez empêcher les entrées vides dans une certaine plage, faites un clic droit sur l'onglet de la feuille, puis cliquez sur Affichage Code dans le menu contextuel.

2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir la capture d'écran :

Code VBA : Empêcher les entrées vides ou manquantes dans une plage de cellules

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

Remarque : Dans le code VBA, A2:B10 est la plage de cellules dans laquelle vous ne voulez laisser aucune cellule vide. Veuillez modifier la plage selon vos besoins.

Dès maintenant, si vous sautez une cellule vide et remplissez la cellule suivante dans la plage spécifiée, une boîte de dialogue Kutools for Excel apparaîtra comme indiqué ci-dessous.

Articles connexes :

• Comment empêcher la saisie de données dans des cellules spécifiques d'une feuille de calcul dans Excel ?
• Comment empêcher la sélection de plusieurs feuilles de calcul dans Excel ?
• Comment empêcher la suppression d'une feuille de calcul spécifique dans Excel ?
• Comment empêcher la suppression de certains contenus de cellules dans Excel ?