Help option button et colorindex

Résolu
Signaler
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007
-
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007
-
hello, g 2 optionbutton et je veux qu'un colorindex dépende du choix de l'un des bouttons. g utilisé 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 ça marche pô...pb de définition de clr?
Niikko

1 réponse

Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007

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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci