Bonjour Celeda, STéphane, Jpommey et le Forum
Tu n'étais vraiment pas loin du but Celeda... Intersect te permet de faire plus que :
If Not Application.Intersect(Target, Range("D4
175")) Is Nothing Then
Tu peux sélectionner des plages disctinctes et non-afjacentes en utilisant le séparateur "," tout en restant dans la même string comme suit :
If Not Application.Intersect(Target, Range("A1:A12, D4
10, D20, D22, D55, E1:E12")) Is Nothing Then
Le code restant le même basé sur la négation de la condition.
Si par ailleurs on doit faire intervenir un macro évènementielle sur une colonne précise, on peut faire comme ceci :
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
et sur Cinq colonnes :
If Not Application.Intersect(Target, Range("A:E")) Is Nothing Then
Et sur des Colonnes non-Adjacentes :
If Not Application.Intersect(Target, Range("A:A, C:C, E:E")) Is Nothing Then
En ce qui concerne les Commentaires, si vous avez envie d'en créer à la volée... Je vous recommande ce fil où on s'est bien amusé avec Mytå
=>
Lien supprimé....
Just for the fun
Bonne Journée
@+Thierry