CommandButton avec plusieurs actions ???
oasisjf
Messages postés
30
Statut
Membre
-
Reivax962 Messages postés 3742 Statut Membre -
Reivax962 Messages postés 3742 Statut Membre -
Bonjour,
est il possible qu'un CommandButton puisse réaliser plusieurs commandes :
pour l'instant j'arrive à en faire 2 avec changement de couleur, mais puis je en faire 3 ou 4 ou + et si oui comment ???
merci d'avance
est il possible qu'un CommandButton puisse réaliser plusieurs commandes :
pour l'instant j'arrive à en faire 2 avec changement de couleur, mais puis je en faire 3 ou 4 ou + et si oui comment ???
merci d'avance
A voir également:
- CommandButton avec plusieurs actions ???
- Nous limitons la fréquence de certaines actions que vous pouvez effectuer sur instagram - Forum Instagram
- Virginie n’a pas les droits d’administrateur sur son ordinateur. quelles sont les actions qu’elle ne peut pas faire ? - Forum Windows
- Je n'ai plus aucune commande administrateur sur mon pc ✓ - Forum Windows 7
- Quels sont les pouvoirs des administrateurs - Forum Windows
- Comment avoir les droits d'administrateur? ✓ - Forum Matériel & Système
3 réponses
Bonjour,
Actuelement j'arrive à luis faire faire 2 actions le bouton change de couleur suivant les actions:
Exemple :
Private Sub CommandButton19_Click()
Dim Motif As String
Motif = CommandButton19.Caption
'----------- Couleur du bouton et action --------------
If Motif = "Acceuil" Then
UserForm4.Height = 42 'Agrandir
CommandButton19.Caption = "Acceuil "
With CommandButton19
.BackColor = RGB(100, 255, 255) 'bleu
With .Font
.Size = 10
.Bold = True
End With
CommandButton18.Visible = False
CommandButton2.Visible = False
CommandButton17.Visible = False
CommandButton9.Visible = True
CommandButton16.Visible = True
End With
Else
UserForm4.Height = 42 'Réduire
CommandButton19.Caption = "Acceuil"
With CommandButton19
.BackColor = RGB(255, 128, 128) 'vert
With .Font
.Size = 10
.Bold = True
End With
CommandButton18.Visible = True
CommandButton2.Visible = True
CommandButton17.Visible = True
CommandButton9.Visible = False
CommandButton16.Visible = False
End With
End If
End Sub
Mais est il possible de lui en faire faire +
Actuelement j'arrive à luis faire faire 2 actions le bouton change de couleur suivant les actions:
Exemple :
Private Sub CommandButton19_Click()
Dim Motif As String
Motif = CommandButton19.Caption
'----------- Couleur du bouton et action --------------
If Motif = "Acceuil" Then
UserForm4.Height = 42 'Agrandir
CommandButton19.Caption = "Acceuil "
With CommandButton19
.BackColor = RGB(100, 255, 255) 'bleu
With .Font
.Size = 10
.Bold = True
End With
CommandButton18.Visible = False
CommandButton2.Visible = False
CommandButton17.Visible = False
CommandButton9.Visible = True
CommandButton16.Visible = True
End With
Else
UserForm4.Height = 42 'Réduire
CommandButton19.Caption = "Acceuil"
With CommandButton19
.BackColor = RGB(255, 128, 128) 'vert
With .Font
.Size = 10
.Bold = True
End With
CommandButton18.Visible = True
CommandButton2.Visible = True
CommandButton17.Visible = True
CommandButton9.Visible = False
CommandButton16.Visible = False
End With
End If
End Sub
Mais est il possible de lui en faire faire +
