Code vba sur un bouton

Fermé

JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 13 janv. 2020 à 11:56
yg_be Messages postés 23463 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 11 février 2025 - 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 asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
13 janv. 2020 à 13:25

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 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 464
Modifié le 13 janv. 2020 à 14:03

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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025
13 janv. 2020 à 14:25

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 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 464 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
13 janv. 2020 à 15:51

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

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 23463 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 11 février 2025 Ambassadeur 1 568
23 janv. 2020 à 18:39

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

Discussions similaires

symbole arrêt marche

Code de renvoi d'appel : Ooredo, Mobilis...

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