Comment assemblés 3 boutons de macros en un seul ???

Guido · 20 Janvier 2017

Bonsoir le Forum

Sur ma page A de mon fichier..

Jai 3 boutons de macros comment faire l'exécutions des 3 macros ou boutons en un seul bouton.

ah, oui , je doit appuyé deux fois un boutons de macros pour exécuter une macros ,comment

rédiger en VBA le texte afin d'appuyé une seule fois le bouton afin de résoudre cette macros.,

Merci d'avance

Guido

Lone-wolf · 20 Janvier 2017

Bonsoir Guido

Private Sub CommandButton1_Click()
Code du bouton 1

CommandButton2_Click
CommandButton3_Click
end Sub

Classeur démo en PJ

Guido · 21 Janvier 2017

Re

Lone-wolf

Merci pour le fichier,

pour éviter un double clic sur le même bouton ,as tu une petite idée

Merci

Guido

Lone-wolf · 21 Janvier 2017

Bonjour Guido

VB:

Private Sub CommandButton1_Click()
Dim lig As Long
CommandButton1.Enabled = False
lig = Range("c" & Rows.Count).End(xlUp).Row + 1
Range("c" & lig) = "x"
If Range("c" & lig) <> "" Then
CommandButton1.Enabled = True
Else
Exit Sub
End If
CommandButton2_Click
CommandButton3_Click
End Sub

Private Sub CommandButton2_Click()
MsgBox "Bonsoir !"
End Sub

Private Sub CommandButton3_Click()
MsgBox "Bonne nuit !"
End Sub

Autre exemple

VB:

Private Sub CommandButton1_Click()
Dim lig As Long
lig = Range("c" & Rows.Count).End(xlUp).Row + 1

Select Case Range("c" & lig)
Case Is = ""
CommandButton1.Enabled = False
CommandButton2_Click
CommandButton3_Click
Range("c" & lig) = "x"
End Select
CommandButton1.Enabled = True
End Sub

Comment assemblés 3 boutons de macros en un seul ???

Guido

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Guido

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Discussions similaires