Condition sur une et/ou plusieurs cellules

Bonjour,:D

Je débute en Vb et j'ai créer un petit classeurs de calcul.:king:

Une premiere colonne avec l'intitulé --> ("intitulé")
Une deuxieme colonne avec OUI ou NON --> ("concerné")
Une troisieme colonne avec la note attribué de 0 a 100 --> ("note")

Ainsi, l'utilisateur choisi les critères (intitulé) sur lesquels il veut attribué une note...
Il attribue ensuite OUI ou NON en fonction de ses choix.
Toutes les cases NON entrainent le verouillage (la case se grise) de la case "note" a coté.(pour ne pas saisir une note, sur un intitulé NON-concerné)

Mon problème arrive ici :

Lorsque je valide "NON" dans une case "concerné", la case a coté "note" se grise (logique!!!), mais lorsque je selectionne plusieurs case "concerné" et que je leurs attribuent "NON", il faudrait que toutes les case notes liés se grisent....

Or Vb m'indique une erreur...

Code:

---

1 2 3 4 5 6 7 8 9

'Bouton NON & Caption = NON Private Sub CommandButton7_Click() Selection = CommandeButton7_Caption   If Selection.Value = "OUI" Then Selection.Offset(0,1).Value = "" ' vide la case a coté Selection.Offset(0,1).Interior.ColorIndex = 16 'grise la case a coté EndIf

---

Ce code marche uniquement lorsque je prend cellule par cellule...

Donc,comment peut ont selectionner une plage de cellule, pour travailler sur la plage adjacente ?....Sachant que cette selection peut etre aléatoire...

J'espere que vous aurez compris mon charabia, et qu'une aide me parviendra :roll:

Merci et a bientot sur Dvp.com
++

bonjour, tu peux essayer ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Bouton NON & Caption = NON Private Sub CommandButton7_Click() Dim C as range For each C in Selection C = CommandeButton7_Caption If C.Value = "OUI" Then C.Offset(0,1).Value = "" ' vide la case a coté C.Offset(0,1).Interior.ColorIndex = 16 'grise la case a coté End If next C

---

Cordialement