Discussion :

[cbredeche]

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 :

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
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

[Invité]

bonjour,

Code :

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

1
2
3
Private Sub OptionButton1_Change()
.Range("v" & L1).Value = Array("refuser", "valider")(Abs(OptionButton1))
End Sub

Code :

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

1
2
3
4
Private Sub OptionButton2_Change() 
If refuser = True Then
.Range("u" & L1).Value = refuser 'ranger valeur valider
 EndIf

Code ET AU CHARGEMENT :

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

1
2
 
OptionButton1=.Range("v" & L1).Value = "valider"

pour le reste c'est de la mise en forme conditionnel dans Excel!