Microsoft 365 simuler clic sur un bouton macro

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)

J'en ai une autre pour ce dimanche matin lol
1650188713763.png

Code de CommandButton1 (affichage du bouton = "RDV")
VB:
Private Sub CommandButton1_Click()
        If MsgBox("Avez-vous vérifié si pas en Outre Mer ?", vbQuestion + vbYesNo) <> vbYes Then
        'Sheets("RdV_transfert").Cells(dl, 4) = "OK agenda"
        Unload Me
        Sheets("Appels").Select
        ActiveCell.Offset(0, 3) = "X"
        ActiveCell.Offset(0, -5).Copy
        ActiveCell.Offset(0, -10).Select
        Sheets("Appels").Shapes("bulle1_affectez").Visible = True
        Exit Sub
        Else
        'MsgBox "Bouton intitulé :" & Me.CommandButton1.Caption
        ActiveSheet.Unprotect Password:=""
        Sheets("Table").Range("c6") = "RendezVous"
        [i15] = ""
        [D4] = "=IF(AND(RC[-1]="""",R[2]C[-1]=""RendezVous""),""         RdV : Date/H et Mn"","""")"
        Clignote
        [b8:c38] = ""
        [d8:e38] = ""
        [n4] = "ouvert"
        'If ActiveCell.Offset(0, 9) = "RdV Fait"
        [f8] = "=IF(AND(Appels!R11C10="""",R[-2]C[-3]=""RdV Fait"", ""Important : sans n° de Portable pas d'envoi de SMS possible""),"""")"
        [C4].Select
        Sheets("Table").Shapes("Table Connecteur droit1").Visible = False
        Sheets("Table").Unprotect Password:=""
        Sheets("Table").Range("I4") = "Affectation Appel OK"
        Sheets("Table").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        Unload Me
        End If
    'End If
End Sub
Je voudrais simuler le clic sur l'un de mes boutons (selon choix)
Il y a : "CreateObject("wscript.shell").SendKeys "{xxxxxxx}"
Je ne vois pas comment lui affecter le nom du bouton, par exemple :
"CreateObject("wscript.shell").SendKeys "{CommandButton1}"

Auriez-vous le bon code ?
Je continue mes recherches ...
Un grand merci par avance,
lionel :)
 
Dernière édition:

dysorthographie

XLDnaute Impliqué
VB:
Sub test4()
  MsgBoxPerso4 "", "RDV,Rappel,Pas Rappeler,Tant mieux,C'est tant pis !,ANNULER", "CLIC SUR LA BONNE AFFECTATION"
  MsgBoxPerso4 "", "RDV,Rappel,Pas Rappeler,Tant mieux,C'est tant pis !,ANNULER", "CLIC SUR LA BONNE AFFECTATION", "RDV"
End Sub

' Procédure générale de mise en place des éléments
Sub MsgBoxPerso4(Prompt As String, Button As String, Title As String, Optional Bt As String = "")
  TabBtn = Split(Button, ",")
  UsFMsgTest.Caption = Title
  UsFMsgTest.Label1.Caption = Prompt
  Select Case Bt
    Case "RDV": UsFMsgTest.CommandButton1_Click
    Case "Rappel"
    Case "Pas Rappeler"
    Case "ANNULER"
    Case Else: UsFMsgTest.Show (1)
    End Select
End Sub
 

Discussions similaires

Réponses
0
Affichages
267

Statistiques des forums

Discussions
299 956
Messages
1 980 368
Membres
207 067
dernier inscrit
Miks57450