Code vba sur un bouton

JCB40 Messages postés 3007 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 23 janv. 2020 à 18:39

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

A voir également:

Code vba sur un bouton
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Scanner un qr code sur pc - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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)

JCB40 Messages postés 3007 Date d'inscription Statut Membre Dernière intervention 464

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780 > JCB40 Messages postés 3007 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

JCB40 Messages postés 3007 Date d'inscription Statut Membre Dernière intervention 464 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780 > JCB40 Messages postés 3007 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

Réponse 2 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour, la solution proposée te convient-elle?

Discussions similaires

Bouton ON OFF, O ou I ?

Arrêt/démarrage via Bouton ON/OFF de l'alim

Votre réponse

Discussions similaires