VBA: Récupération d'un bouton cliqué

Fermé

Galgante - 20 juil. 2009 à 15:00
Galgante - 20 juil. 2009 à 16:04

Bonjour,

Je souhaite créer une fonction dans un programme comportant 5 Userforms.
Dans chacune de ces fonctions, il y a plusieurs boutons, ces boutons ont les mêmes fonctions quelque soit l'Userform.

Comment récupérer l'information décrivant l'événement "Clique sur un bouton" pour appeler ma fonction à ce moment avec le nom du bouton à ce moment svp?

Cordialement.

A voir également:

VBA: Récupération d'un bouton cliqué
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Galgante
20 juil. 2009 à 16:04

Ajout: Exemple...

Private Sub bout_Click()
    Select Case bout
        Case btnAbout
            MsgBox ("a propos")
        Case btnAcc
            MsgBox ("Accueil")
        Case btnAdm
            MsgBox ("Administrateur")
        Case btnCopy
            MsgBox ("Copier")
        Case btnDeco
            MsgBox ("Deconnection")
        Case btnManu
            MsgBox ("Manuel")
        Case btnOp
            MsgBox ("Opérateur")
        Case btnPaste
            MsgBox ("Coller")
        Case btnQuit
            MsgBox ("Quitter")
        Case btnSav
            MsgBox ("Enregistrer")
        Case btnSeek
            MsgBox ("Chercher")
        Case btnView
            MsgBox ("Visualiser")
        Case Else
            MsgBox ("Erreur")
    End Select

End Sub

Ce code servirait juste à tester, des fonctions pourraient, par exemple être appelées à la place des MsgBox.

Cordialement.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters