Discussion :

[michton44]

Bonjour,

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

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 :

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

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

Merci et a bientot sur Dvp.com
++

[fred65200]

bonjour, tu peux essayer ceci

Code :

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

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