XL 2016 lancer procédure si conditions

[fipafi]

Bonjour à tous,

Ayant que de très faibles notions en VBA, je viens vous demander votre aide ,
je cherche a empêcher l'exécution d'une procédure si certaines conditions ne sont pas remplies ,
je vous joint mon fichier avec l 'explication de ma demande

par avance merci

 

[sylvanu]

Bonjour Fipafi,
Peut on traduire par : J'exécute ma macro si B7, N7, Y7 sont tous trois non vides ?
Si oui alors :

Sub Test()
If [B7] <> "" And [N7] <> "" And [Y7] <> "" Then
    MsgBox "La macro peut être executée."
Else
    MsgBox "Conditions non remplies"
End If
End Sub

 

[fipafi]

Bonjour Fipafi,
Peut on traduire par : J'exécute ma macro si B7, N7, Y7 sont tous trois non vides ?
Si oui alors :

Sub Test()
If [B7] <> "" And [N7] <> "" And [Y7] <> "" Then
    MsgBox "La macro peut être executée."
Else
    MsgBox "Conditions non remplies"
End If
End Sub

Bonjour sylvanu,

merci pour ta Réponse ,

c'est un bon début d'explication pour moi , mais je cherche :
a exécuter la macro si B7, N7 ou Y7 sont non vides
avec deux Msgbox dans ce cas "il manque une référence " et "il manque une entrée/ sortie"
car je peux avoir des sorties ou des entrées ou les deux, mais jamais bien sûr une référence manquante

et comment l'intégrer a ma macro dupliquer dans ce cas ?

merci

 

[sylvanu]

Je ne comprends pas votre syntaxe :

si B7, N7 ou Y7 sont non vides

Avec cette ligne de code, on exécute si B7 est non vide ET une des deux cellules N7 ou Y7 est non vides

If [B7] <> "" And ([N7] <> "" Or [Y7] <> "") Then

Avec cette ligne de code, on exécute si une des trois cellules B7, N7, Y7 est non vide.

If [B7] <> "" Or ([N7] <> "" Or [Y7] <> "") Then

 

[sylvanu]

Pour l'intégration, le plus simple si votre macro s'appelle MaMacro est de faire :

Sub Test()
If Condition Vrai Then
  MaMacro
Endif
End Sub

et de lancer la macro Test au lieu de lancer MaMacro.
L'autre solution est de l'intégrer à votre macro en mettant votre code entre le If du test et le EndIf associé.

 

[Staple1600]

Bonjour le fil

En me basant sur l'exemple de sylvanu, une autre écriture possible

Sub lancer_macro_si()
If Application.CountA([B7], [N7], [Y7]) = 3 Then
ma_macro
Else
MsgBox "C'est quoi ce binz!", vbCritical, "Oui, je sais mes réfrénces datent"
End If
End Sub
Sub ma_macro()
MsgBox Date
End Sub

 

[fipafi]

sylvanu

j 'ai intégré la ligne de code suivante a ma macro :

If [B7] <> "" And ([N7] <> "" Or [Y7] <> "") Then
mais la macro se lance quand même !!!
je tiens à rappeler que je suis pas vraiment à l'aise en VBA ( et d'un certain âge )

stapple1600 , merci

 

[Staple1600]

RE

fipafi
Normalement, mon exemple doit fonctionner si les trois cellules ne sont pas vides
Tu as testé sur un classeur vierge dans lequel tu auras mis des valeurs en B7,N7 et W7 avant de lancer la macro?

 

[sylvanu]

Bonsoit Fipafi, Staple,
Ca n'a rien à voir avec e VBA. C'est de la logique.
Vous avez trois variables B7, N7, Y7 qui peuvent avoir deux états : Vide / Non vides.
Remplissez le tableau de la PJ on trouvera la bonne combinaison.

Staple, vous devriez être au lit. vous l'a déjà dit.

 

[Staple1600]

Re

[aparté]
Sylvanu: merci pour votre sollicitude.
Mais l'allopathie a fait son office
(à moins que ce soit le Fitou)
La céphalée est désormais compatible avec une exposition aux écrans et un immersion dans VBE.

[/aparté]

 

[fipafi]

bonsoir a vous ,
et merci de vous pencher sur mon cas,
sylvanu,
impec. l' idée de remplir le Tab , c est plus clair pour moi .
je vous le joins

 

[sylvanu]

Bonjour Fipafi,
La solution devient simple, voir en PJ :

If [b7] <> "" And Application.CountA([N7], [Y7]) > 0 Then

On execute la macro si B7 n'est pas vide ET au moins une des deux cellules N7,Y7 n'est pas vide.

Dans l'application cela donnera :

Sub Test2()
'Avec cette ligne de code, on exécute si B7 est non vide ET une des deux cellules N7 ou Y7 est non vides
If [b7] <> "" And Application.CountA([N7], [Y7]) > 0 Then
    ' LANCER LA MACRO DESIREE
End If
End Sub

 

[fipafi]

Bonjour sylvanu,

j'ai intégré le code dans la macro toutes les conditions sont remplies sauf :

B7<>"" et N7,Y7 =""

je te retourne le fichier si tu peux encore faire quelque chose.

merci

 

[sylvanu]

Je ne comprends pas, pour "B7<>"" et N7,Y7 =""" la macro ne doit pas s'exécuter.

 

[fipafi]

J essaie aussi de comprendre, peut être rajouter cette condition à part ? je suis dans le floue