Comment rendre l'entrée dans une cellule particulière obligatoire avant de fermer le classeur ?

Lorsque vous partagez un classeur avec d'autres utilisateurs pour effectuer une enquête nécessitant une inscription nominative, par exemple, chaque utilisateur interrogé doit entrer son nom en B1. Mais parfois, certains utilisateurs peuvent fermer le classeur après avoir répondu sans entrer leur nom. Dans cet article, je présente une méthode VBA pour rendre l'entrée dans une cellule particulière obligatoire avant de fermer le classeur.

Rendre l'entrée dans une cellule obligatoire avec VBA

Rendre l'entrée dans une cellule obligatoire avec VBA

1. Activez le classeur contenant la cellule obligatoire et appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans le volet Projet, double-cliquez sur ThisWorkbook, puis sélectionnez Classeur et BeforeClose dans la liste de la section de droite, puis collez le code ci-dessous dans le script. Voir capture d'écran :

VBA : Rendre une cellule obligatoire

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

3. Ensuite, enregistrez ce code et fermez cette fenêtre contextuelle. Maintenant, si la cellule B1 est vide lorsque vous fermez le classeur, la boîte de dialogue suivante s'affichera pour vous rappeler d'entrer quelque chose en B1. Voir capture d'écran :

Astuce : Vous pouvez remplacer la cellule B1 par d'autres cellules de votre choix.