Discussion :

[abouhossam]

bjr à tous
je cherche vos aides s.v.p.
est ce qu'il y a une expression reduite pour remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Column = 2 And Target.Row >= 17 And Target.Row <= 36 Then

merci à vous.

[Daniel.C]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, [B17:B36]) Is Nothing Then

[abouhossam]

merci Daniel.C
ça marche très bien
merci