Code vba sur un bouton

Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 13 janv. 2020 à 11:56
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 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 blocks free - Télécharger - Langages
Comment créer un qr code - 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 775
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 775 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461 > 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 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
23 janv. 2020 à 18:39

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

Discussions similaires

Bouton ON OFF, O ou I ?

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

Acces à snapchat temporairement désactivé

Discussions similaires

Newsletters