Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Supposons que vous créez une table dans la plage A1: B10 d'une feuille de calcul et que vous souhaitiez empêcher l'apparition de cellules vides dans cette plage de tables, comment l'obtenir? Cet article présente une méthode pour afficher automatiquement la boîte de dialogue si l'entrée vide apparaît dans une certaine plage de table lors de l'édition. S'il vous plaît suivez la méthode étape par étape dans l'article.

Empêche les entrées vides ou manquantes dans les cellules en utilisant le code VBA


flèche bleue droite bulleEmpêche les entrées vides ou manquantes dans les cellules en utilisant le code VBA


A1: B10 est la plage où vous devez créer une table à l'intérieur, et A1, B1 contiennent les en-têtes de la table comme montré ci-dessous. Veuillez procéder comme suit pour éviter que des entrées vierges ou manquantes n'apparaissent dans la plage A2: B10 lors de la création de la table.

1. Dans la feuille de calcul dans laquelle vous n'autorisez pas les entrées vierges dans certaines limites, 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êche les entrées vierges 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

Note: Dans le code VBA, A2: B10 est la plage de cellules à laquelle vous ne voulez pas laisser de cellule vide. Veuillez changer la gamme selon vos besoins.

A partir de maintenant, lorsque vous ignorez la cellule vide et remplissez directement la cellule suivante dans la plage spécifiée, vous obtiendrez une Kutools for Excel boîte de dialogue comme ci-dessous capture d'écran montré.


flèche bleue droite bulleArticles connexes:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.