help option button et colorindexRésolu

Question

hello, g 2 optionbutton et je veux qu'un colorindex d&#233;pende du choix de l'un des bouttons. g utilis&#233; entres autres ce code:
Private Sub CommandButton1_Click()
'position absolue du jour dans le calendrier
Dim noj As Integer
noj = MultiPage1.TabIndex + 1 + (txtsem.Value - 1) * 7
'coloration de la cellule
Dim clr As Integer
If OptionButton1.Value = True Then
OptionButton2.Value False And clr 5
ElseIf OptionButton2.Value = True Then
OptionButton1.Value False And clr 10
End If
For i = 1 To 3
Range("a1").Offset(CInt(UserForm1.Controls("txtp" & i).Text), noj).Select
Selection.Interior.ColorIndex = clr
Next i
End Sub
mais &#231;a marche p&#244;...pb de d&#233;finition de clr?
Niikko

niikkoo · Accepted Answer

ne plus tenir compte du message je pense avoir trouver
Private Sub CommandButton2_Click()
Dim noj As Integer
noj = MultiPage1.TabIndex + 1 + (txtsem.Value - 1) * 7
Dim clr As Integer
If OptionButton1.Value = True Then
clr = 10
Else
clr = 7
End If
For i = 4 To 6
Range("a1").Offset(CInt(UserForm1.Controls("txtp" & i).Text), noj).Select
Selection.Interior.ColorIndex = clr
Next i
End Sub
mais si vous avez mieux
Niikko

Help option button et colorindex

1 réponse

Discussions similaires