OVH Cloud OVH Cloud

VBA declenchement de macro selon selection...suite...

1 réponse
Avatar
Domi
Bonsoir à tous,
riri, fifi et Loulou sont de retour !
Je veux lancer macro si Riri est sélectionné ET que Calcul est > 24.
If Target.Address <> Range("Riri").Address And [Calcul].Value <= 24 Then
macro ' ça marche ;o)

Comment faire en sorte de lancer la même macro avec la même condition sur la
valeur de calcul mais si
aucune des cellules Riri, Fifi ou Loulou n'est est sélectionné ?

En très gros un truc de ce genre
SI(Selection <> riri, fifi ou loulou) ET Calcul > 24 : Macro

J'ai essayé d'adapter la soluce proposée par AV hier avec UNION...en vain.
Merci
Domi

1 réponse

Avatar
JpPradier
Bonjour Domi

Voici une façon :

If (Intersect(Target, Union(Range("riri"), Range("fifi"), Range("loulou"))) Is Nothing And [calcul]
24) Then MsgBox "Ok"


j-p