vba : condition une macro: la selection appartient à une zone

[miguelangelo]

Bonsoir à tous,

j'ai une macro qui s'applique aux valeurs qui se trouvent dans la zone a16:q45

en dehors, elle tombe en erreur.

j'ai besoin de conditionner que la selection en cours appartient bien à la zone a16:q45

la selection peut etre une cellule ou une zone (a20:a35) par exemple.

sub traitement()

for each c in selection
'je pense faire faire le controle a ce niveau là
application.run ("toto")
next c
end sub


merci à vous

 

[bérylion]

Re : vba : condition une macro: la selection appartient à une zone

Bonsoir à tous,

j'ai une macro qui s'applique aux valeurs qui se trouvent dans la zone a16:q45

en dehors, elle tombe en erreur.

j'ai besoin de conditionner que la selection en cours appartient bien à la zone a16:q45

la selection peut etre une cellule ou une zone (a20:a35) par exemple.

sub traitement()

for each c in selection
'je pense faire faire le controle a ce niveau là
application.run ("toto")
next c
end sub


merci à vous

Salut

tu peux essayer comme ça :

Sub traitement()
For Each c In Selection
    Set cross = Intersect(Range("a16:q45"), Range(c.Address))
    If cross Is Nothing Then Exit Sub
Next
Application.Run ("toto")
End Sub

 

[miguelangelo]

Re : vba : condition une macro: la selection appartient à une zone

Merci bcp berylion !! exactement ce qu'il me faut

 

[bérylion]

Re : vba : condition une macro: la selection appartient à une zone

y'avait plus court :

Sub traitement()
Set cross = Intersect(Range("a16:q45"), Range(Selection.Address))
If cross.Count = Selection.Count Then Application.Run ("toto")
End Sub

😉