Si cellules sont vides

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 11 juin 2018 à 05:32
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 11 juin 2018 à 08:15

Bonjour,
Je fais ce code qui ne fonctionne pas, pouvez-vous e corriger svp
En vous remerciant

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Range("b10") = 0 Or Range("c10") = 0 Or Range("b11") = 0 Or Range("c11") = 0 Or Range("b12") = 0 Or Range("c12") = 0 Then
        MsgBox "Vous devez inscrire au moins 3 noms"
    Application.EnableEvents = True
End If
End Sub

A voir également:

Si cellules sont vides
Excel additionner des cellules - Guide
Verrouiller cellules excel - Guide
Excel cellule couleur si condition texte - Guide
Excel fusionner deux cellules - Guide
Formule excel si cellule non vide alors couleur ✓ - Forum Excel

5 réponses

Réponse 1 / 5

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
11 juin 2018 à 06:33

Bonjour

Teste comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    If Application.WorksheetFunction.CountBlank(Range("B10:C12")) > 3 Then
      MsgBox "Vous devez inscrire au moins 3 noms"
    End If
  Application.EnableEvents = True
End Sub

Réponse 2 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
11 juin 2018 à 07:17

Bonjour M-12
De nouveau je te remercie, c'est impeccable
Bonne journée

Réponse 3 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
Modifié le 11 juin 2018 à 07:36

Re
Petit problème, à l'ouverture du classeur, après le mot de passe, le Msgbox apparaît ...?

Réponse 4 / 5

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
11 juin 2018 à 08:03

Re,
J'ai pas vu de mot de passe, mais teste avec ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B10:C12")) Is Nothing Then
Application.EnableEvents = False
If Application.WorksheetFunction.CountBlank(Range("B10:C12")) > 3 Then
MsgBox "Vous devez inscrire au moins 3 noms"
End If
Application.EnableEvents = True
End If
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
11 juin 2018 à 08:15

Mes vifs remerciements M-12, c'est parfait

Discussions similaires

pas d'impression car pas d'encre couleur

Excel si cellule contient texte alors...

Pb pour insérer lignes

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel formule : savoir si une cellule contient partie texte

Discussions similaires

Newsletters