Help option button et colorindex [Résolu]

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

Merci niikkoo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 99 internautes 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.