Si cellules sont vides Résolu/Fermé

Question

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


Configuration: Windows / Firefox 60.0

M-12 · Answer

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 = TrueEnd Sub

jean300 · Answer

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

jean300 · Answer

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

M-12 · Answer

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 ThenApplication.EnableEvents = FalseIf Application.WorksheetFunction.CountBlank(Range("B10:C12")) > 3 ThenMsgBox "Vous devez inscrire au moins 3 noms"End IfApplication.EnableEvents = TrueEnd IfEnd Sub

jean300 · Answer

Mes vifs remerciements M-12, c'est parfait

Si cellules sont vides

5 réponses

Discussions similaires