Help option button et colorindex [Résolu]

Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Dernière intervention
4 septembre 2007
- - Dernière réponse : niikkoo
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Dernière intervention
4 septembre 2007
- 21 juil. 2005 à 11:28
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Dernière intervention
4 septembre 2007
3
Merci
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

Dire « Merci » 3

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

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.