Discussion :

[zamoht]

Bonjour,

J'ai programmé un qcm en rendant certaines cases cliquables, et en faisant en sorte que les cases contenant les questions correspondantes prennent une couleur spécifique selon la réponse.

Lorsque je soumets le questionnaire, je veux que l'utilisateur ne puisse pas changer les intitulés des questions, en revanche, je veux que mon programme change les couleurs des cases verrouillées. Sauriez-vous comment faire?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Range("K" & Target.Row & ":Q" & Target.Row).ClearContents
Target = "X"
 
For i = 11 To 56 Step 3
 
If Range("K" & i).Value = "X" Then
 
Cells(i, 1).Interior.Color = RGB(9, 255, 56)
Cells(i, 1).Interior.Color = RGB(9, 255, 56)
 
ElseIf Range("M" & i).Value = "X" Then
 
Cells(i, 1).Interior.Color = RGB(125, 255, 150)
Cells(i, 1).Interior.Color = RGB(125, 255, 150)
 
ElseIf Range("O" & i).Value = "X" Then
 
Cells(i, 1).Interior.Color = RGB(255, 133, 133)
Cells(i, 1).Interior.Color = RGB(255, 133, 133)
 
ElseIf Range("Q" & i).Value = "X" Then
 
Cells(i, 1).Interior.Color = RGB(255, 29, 29)
Cells(i, 1).Interior.Color = RGB(255, 29, 29)
 
 
End If
Next
 
End Sub

Merci, et à bientôt.

[diude54]

Il faut mettre

Code :

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

1
2
3
ActiveSheet.Unprotect
'ou
Worksheets("Nom").Unprotect 'si tu connais le nom

au debut de la macro et

Code :

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

ActiveSheet.Protect

a la fin

[zamoht]

Merci!