Bonsoir tout le monde, Omicron, Michel, Wesh, Léa (y a du monde)
J'avais commencé un truc puis mon PC a crashé bien bien alors du coup j'arrive après la bataille !! lol... bon enfin moi je m'y prends tout à fait autrement...
Voici une démo qui fera la même chose que celle d'Omicro mais sur tout le classeur... avec (comme d'hab) des trucs en plus (lol)...
Pour Michel Attention à ta méthode :
If Intersect(Target, Range("B2:E6")) Is Nothing Then: End
...qui est très peu conventionnelle en programmation, car End te dégage toutes les Variables publiques... Ce qui, selon l'application, peut être vraiment très dangereux.... Je conseille la méthode traditionnelle
If Intersect(Target, Range("B2:E6")) Is Nothing Then Exit Sub
ou (au choix)
If Not Intersect(Target, Range("B2:E6")) Is Nothing Then
Par ailleurs les deux poins ne sont pas nécessaires dans une ligne If... then Action (au contraire en fait il ne les faut pas !)
Bonne soirée
@+Thierry