Comment faire un VBA plus simple sur des bouton de formulaires
2 réponses
Emile63
Bonjour =E0 tous,
Je souhaiterais simplifier 5 macros en une:
=20
Sur une ligne (1) j'ai 5 Bouton (Contr=F4le de formulaire) sur les colonnes=
1 =E0 5
Quand je les clic, l'action consiste =E0 effacer le contenu de la ligne qui=
lui correspond (Cellule du dessous: Vte_AA, Vte_BB, etc..), et de mettre l=
e texte "Vendu" =E0 la place.
ActiveSheet.[Vte_AA].Value =3D "Vendu"
Plut=F4t que de faire 5 macros (Chacune son bouton), je me demandais commen=
t le faire en une seule proc=E9dure (Select Case?), sachant que mes boutons=
sont identifi=E9s; Btn_A, Btn_B, Btn_C etc..=20
Je vous remercie d'avance pour votre aide et suggestions.
Cordialement,
Emile
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Emile63 a exposé le 22/09/2015 :
Bonjour à tous,
Je souhaiterais simplifier 5 macros en une:
Sur une ligne (1) j'ai 5 Bouton (Contrôle de formulaire) sur les colonnes 1 à 5 Quand je les clic, l'action consiste à effacer le contenu de la ligne qui lui correspond (Cellule du dessous: Vte_AA, Vte_BB, etc..), et de mettre le texte "Vendu" à la place.
ActiveSheet.[Vte_AA].Value = "Vendu"
Plutôt que de faire 5 macros (Chacune son bouton), je me demandais comment le faire en une seule procédure (Select Case?), sachant que mes boutons sont identifiés; Btn_A, Btn_B, Btn_C etc..
Je vous remercie d'avance pour votre aide et suggestions. Cordialement, Emile
Bonjour, Utilise "Application.Caller" pour identifier les boutons : Sub test() If Application.Caller = "Bouton 1" Then 'traitement boouton 1 ElseIf Application.Caller = "Bouton 2" Then 'traitement boouton 2 End If
End Sub Daniel
Emile63 a exposé le 22/09/2015 :
Bonjour à tous,
Je souhaiterais simplifier 5 macros en une:
Sur une ligne (1) j'ai 5 Bouton (Contrôle de formulaire) sur les colonnes 1 à
5 Quand je les clic, l'action consiste à effacer le contenu de la ligne qui
lui correspond (Cellule du dessous: Vte_AA, Vte_BB, etc..), et de mettre le
texte "Vendu" à la place.
ActiveSheet.[Vte_AA].Value = "Vendu"
Plutôt que de faire 5 macros (Chacune son bouton), je me demandais comment le
faire en une seule procédure (Select Case?), sachant que mes boutons sont
identifiés; Btn_A, Btn_B, Btn_C etc..
Je vous remercie d'avance pour votre aide et suggestions.
Cordialement,
Emile
Bonjour,
Utilise "Application.Caller" pour identifier les boutons :
Sub test()
If Application.Caller = "Bouton 1" Then
'traitement boouton 1
ElseIf Application.Caller = "Bouton 2" Then
'traitement boouton 2
End If
Sur une ligne (1) j'ai 5 Bouton (Contrôle de formulaire) sur les colonnes 1 à 5 Quand je les clic, l'action consiste à effacer le contenu de la ligne qui lui correspond (Cellule du dessous: Vte_AA, Vte_BB, etc..), et de mettre le texte "Vendu" à la place.
ActiveSheet.[Vte_AA].Value = "Vendu"
Plutôt que de faire 5 macros (Chacune son bouton), je me demandais comment le faire en une seule procédure (Select Case?), sachant que mes boutons sont identifiés; Btn_A, Btn_B, Btn_C etc..
Je vous remercie d'avance pour votre aide et suggestions. Cordialement, Emile
Bonjour, Utilise "Application.Caller" pour identifier les boutons : Sub test() If Application.Caller = "Bouton 1" Then 'traitement boouton 1 ElseIf Application.Caller = "Bouton 2" Then 'traitement boouton 2 End If