Code vba sur un bouton

JCB40 Messages postés 3464 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'aimerais savoir s'il est possible d'affecter un code Private Sub à un bouton ActivX afin que l'opération soit valider par ce bouton .
Merci pour votre aide
Crdlt



Configuration: Windows / Firefox 72.0

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour,

Tu dessines ton bouton puis tu double cliques dessus, la procédure sur l'évènement Click est créée automatiquement soit dans le module de la Feuille correspondante, soit dans le module de l'userform (selon le cas)
0
JCB40 Messages postés 3464 Date d'inscription   Statut Membre Dernière intervention   469
 
Bonjour Patrice
Merci pour ton aide
Cette procédure je sais faire quand il y a une macro
Mais avec un code du genre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Derligne As Long

c'est là ou ça se complique
Crdlt
0
Patrice33740 Messages postés 8930 Statut Membre 1 781 > JCB40 Messages postés 3464 Date d'inscription   Statut Membre Dernière intervention  
 
Développes, c'est quoi la difficulté ?

Exemple : 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 Then
    Call MaMacro
  End If
End Sub
Private Sub CommandButton1_Click()
  Call MaMacro
End Sub
Private Sub MaMacro()
  MsgBox "Bonjour JCB40"
End Sub
0
JCB40 Messages postés 3464 Date d'inscription   Statut Membre Dernière intervention   469 > Patrice33740 Messages postés 8930 Statut Membre
 
Exemple avec ce code comment le déclencher avec un bouton
Crdlt

Private Sub Worksheet_Change(ByVal c As Range)
If Range("A1") > 2 Then Exit Sub
If Range("A1") <> "" And Range("A1") = "1" Or Range("A1") = "2" Then
If Range("A1") = "1" Then Range("A1") = "Hospi"
Range("A1").Select
If Range("A1") = "2" Then Range("A1") = "Med"
End If
0
Patrice33740 Messages postés 8930 Statut Membre 1 781 > JCB40 Messages postés 3464 Date d'inscription   Statut Membre Dernière intervention  
 
Exactement pareil que ce que je t'ai déjà écrit !

c-à-d : 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call MaMacro
End Sub
Private Sub CommandButton1_Click()
  Call MaMacro
End Sub
Private Sub MaMacro()
  If Range("A1") > 2 Then Exit Sub
  If Range("A1") <> "" And Range("A1") = "1" Or Range("A1") = "2" Then
    If Range("A1") = "1" Then Range("A1") = "Hospi"
    Range("A1").Select
    If Range("A1") = "2" Then Range("A1") = "Med" 
  End If
End Sub
0
Réponse 2 / 2
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 585
 
bonjour, la solution proposée te convient-elle?
0

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses