Comment éviter les entrées vides ou manquantes dans les cellules dans Excel?
En supposant que vous créez un tableau dans la plage A1: B10 d'une feuille de calcul et que vous devez empêcher une cellule vide d'apparaître dans cette plage de tableau, comment y parvenir? Cet article présente une méthode pour afficher automatiquement une boîte de dialogue si une entrée vide apparaît dans une certaine plage de table lors de l'édition. Veuillez suivre la méthode étape par étape dans l'article.
Empêcher les entrées vides ou manquantes dans les cellules à l'aide du code VBA
Empêcher les entrées vides ou manquantes dans les cellules à l'aide du code VBA
A1: B10 est la plage dans laquelle vous devez créer un tableau à l'intérieur, et A1, B1 contiennent les en-têtes du tableau comme illustré ci-dessous. Veuillez procéder comme suit pour éviter que des entrées vides ou manquantes n'apparaissent dans la plage A2: B10 lors de la création du tableau.
1. Dans la feuille de calcul pour laquelle vous n'autorisez pas les entrées vides dans certaines plages, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Voir le code dans le menu contextuel.
2. dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir la capture d'écran:
Code VBA: empêchez 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
Notes: Dans le code VBA, A2: B10 est la plage de cellules dans laquelle vous ne voulez pas laisser de cellule vide à l'intérieur. Veuillez modifier la plage selon vos besoins.
À partir de maintenant, lorsque vous sautez une cellule vide et remplissez directement la cellule suivante dans la plage spécifiée, vous obtiendrez un Kutools for Excel boîte de dialogue comme ci-dessous capture d'écran montrée.
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 une certaine feuille de calcul d'être supprimée dans Excel?
- Comment empêcher la suppression de contenus de cellules spécifiques dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!