Macros sur excel
Résolu/Fermé
amine69500
Messages postés
422
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
25 août 2013
-
1 oct. 2010 à 15:09
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 1 oct. 2010 à 16:57
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 1 oct. 2010 à 16:57
A voir également:
- Macros sur excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Calculer une moyenne sur excel - Guide
- Comment aller à la ligne sur excel - Guide
- Word et excel gratuit - Guide
2 réponses
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
1 oct. 2010 à 16:01
1 oct. 2010 à 16:01
Salut,
voila le code
CommandButton1.Caption = Sheets(2).[A1]
mais s'il doit changer de nom en fonction d'une valeur, tu peux poser des conditionnelles
ex. si en A1 valeur 5 caption = Titi, valeur 10 caption = Toto, valeur 20 caption = Tutu
If Sheets(2).[A1] = 5 Then
CommandButton1.Caption = "Titi"
ElseIf Sheets(2).[A1] = 10 Then
CommandButton1.Caption = "Toto"
ElseIf Sheets(2).[A1] = 20 Then
CommandButton1.Caption = "Tutu"
End If
et pour que la caption s'initialise à l'affichage de l'Userform mettre le code dans
Private Sub UserForm_Initialize()
If Sheets(2).[A1] = 5 Then
CommandButton1.Caption = "Titi"
ElseIf Sheets(2).[A1] = 10 Then
CommandButton1.Caption = "Toto"
ElseIf Sheets(2).[A1] = 20 Then
CommandButton1.Caption = "Tutu"
End If
End Sub
voila le code
CommandButton1.Caption = Sheets(2).[A1]
mais s'il doit changer de nom en fonction d'une valeur, tu peux poser des conditionnelles
ex. si en A1 valeur 5 caption = Titi, valeur 10 caption = Toto, valeur 20 caption = Tutu
If Sheets(2).[A1] = 5 Then
CommandButton1.Caption = "Titi"
ElseIf Sheets(2).[A1] = 10 Then
CommandButton1.Caption = "Toto"
ElseIf Sheets(2).[A1] = 20 Then
CommandButton1.Caption = "Tutu"
End If
et pour que la caption s'initialise à l'affichage de l'Userform mettre le code dans
Private Sub UserForm_Initialize()
If Sheets(2).[A1] = 5 Then
CommandButton1.Caption = "Titi"
ElseIf Sheets(2).[A1] = 10 Then
CommandButton1.Caption = "Toto"
ElseIf Sheets(2).[A1] = 20 Then
CommandButton1.Caption = "Tutu"
End If
End Sub
amine69500
Messages postés
422
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
25 août 2013
12
1 oct. 2010 à 16:57
1 oct. 2010 à 16:57
merci de votre aide
c'est bien ca
cordialement
c'est bien ca
cordialement