RESOLU Executer macro si...

[Lander]

Bonjour à tous
Malgré mes recherches je n'arrive pas à trouver la solution à mon petit problème
en faisant un double clic sur une cellule (I5) j'ouvre un userform mais j'aimerais y introduire une condition:
L'userform ne doit se lancer que si B55 ou B56 ou B57 (au moins une des trois) contient un nombre
si une des trois cellules B55, B56 B57 est renseignée l'userform se lance sinon un message prévient "champ non rempli"

avec

MsgBox Evaluate("=SUMPRODUCT((B55:B57<>"""")*1)")

le message est correct
j'ai essayé de le mettre en macro comme ceci

If IsEmpty("=SUMPRODUCT((B55:B57<>"""")*1)") Then
MsgBox ("Champ non rempli")
Else
***mon userform
End if

Mais ça ne fonctionne pas
Quelqu'un peut me renseigner et m'expliquer?
Merci

 

[pierrejean]

Re : Executer macro si...

Bonjour Lander

Vois si tu peux t'inspirer de ceci

 

[gilbert_RGI]

Re : Executer macro si...

Bonjour,

comme ceci peut-être

Sub test()
    If IsEmpty([b55]) And IsEmpty([b56]) And IsEmpty([b57]) Then
        MsgBox "Vous devez remplir au moins une cellule"
    Else
        MsgBox "Lancement de l'userform"
    End If

End Sub

Hello PierreJean

 

[Lander]

Re : Executer macro si...

Merci à tous les deux c'est nickel

 

[Lander]

Re : Executer macro si...

Re les amis
Je viens de me prendre la tete pour l'adapter a mon classeur mais les 3 cellules contiennent une formule (=somme si (...) )et ça ne marche pas
Y a t'il moyen de modifier votre code pour que cela fonctionne ?

 

[gilbert_RGI]

Re : Executer macro si...

à tester de cette façon

If [b55]="" And [b56]= "" And [b57]="" Then

 

[gilbert_RGI]

Re : Executer macro si...

ou alors comme ceci

 

[Lander]

Re : Executer macro si...

Merci je regarde de suite

 

[Lander]

Re : Executer macro si...

Ton fichier = nickel
Mon fichier erreur 13
je vais essayer de comprendre

 

[gilbert_RGI]

Re : Executer macro si...

c'est une formule matricielle Valider avec Ctrl + Shift+Enter

 

[Lander]

Re : RESOLU Executer macro si...

Un très grand MERCI
Problème résolu