probleme option button dans userform
bonjour*
Dans mon userform j ai deux option button
je voudrais réaliser des que je selectionne mon option button 1 cela m’écrive "valider" dans la colonne u de la ligne sélectionnée et que cela mette ma ligne en couleur verte
et je sélectionne mon option button 2 cela m’écrit "refuser" dans la colonne u de la ligne sélectionné et que cela met ma ligne en couleur rouge
mais ce que j'ai écrit cela ne fonctionne pas
merci de votre aide
mon code si dessous
Code:
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
31
32
33
34
35
36
37
38
39
40
41
42
| Private Sub CommandButton1_Click()
Dim L1 As Integer
Dim ds As Worksheet
'protection feuille
Worksheets("TABLEAU RECAP").Unprotect ("cedric")
With ThisWorkbook.Worksheets("TABLEAU RECAP")
L1 = .Cells(.Rows.Count, 2).End(xlUp).Row + 0
.Range("v" & L1).Value = ComboBox1 'NON DU RESPONSABLE'
Worksheets("TABLEAU RECAP").Protect ("cedric"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End With
Me.hide
Unload UserForm3
End Sub
Private Sub OptionButton1_Change()
If valider = True Then
.Range("u" & L1).Value = valider 'ranger valeur valider
End If
End Sub
Private Sub OptionButton2_Change()
If refuser = True Then
.Range("u" & L1).Value = refuser 'ranger valeur valider
End If
End Sub |
