click automatiser sur usf

[mimi1958]

bonjour
quelle est la formule pour automatiser un click sur un bouton d 'un USF
merci par avance

 

[phlaurent55]

Bonjour mimi,

Private Sub CommandButton1_Click()
'
'
' la procédure
'
'
End Sub

à+
Philippe

 

[mimi1958]

en fait mon code est :

Option Explicit
Public running As Boolean
Const UneSec = 1 / 86400
'**************************
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'************************
Sub compte()
Dim i As Integer
If running Then
Range("A1").Value = Range("A1").Value + UneSec
Application.OnTime Now + TimeValue("00:00:01"), "compte"
'************************
running = Range("B1").Value > Range("A1").Value
Else
Beep 1000, 250
Beep 3000, 100
Beep 1000, 500
'************************
' Attendre 5 secondes
Application.Wait Time + TimeSerial(0, 0, 2)
' Continuer après la pause
Sheets("attente").Select
Application.Wait Time + TimeSerial(0, 0, 5)
UserForm1.Show ( usf s'affiche bien )
ici je voudrai formule pour click automatique sur bouton1 de l'userform1
End If
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@mimi1958
Même remarque que pour cauvin77
Quand on multiposte, la coutume c'est de le signaler par un lien
https://forum.excel-pratique.com/viewtopic.php?f=2&t=104418&sid=f1862a24b18c8e050974d58578e376f5

Cela permets d'éviter:
1) de publier une réponse qui existe déjà sur les autres forums
2) de suivre la résolution d'une même question par diverses approches
3) de perdre du temps à résoudre une question qui a déjà été résolue sur les autre forums.

Pour info:
https://fr.wikipedia.org/wiki/Multipostage

 

[mimi1958]

oui je pensais chercher sur plusieurs forum sans penser qu 'il pourrait y avoir corelation.
desole . suis nouveau donc sais pas trop commment ca marche

 

[Staple1600]

Bonjour le fil, le forum

Désormais tu es au courant
Et c'est toi qui feras le copier/coller du lien de ta prochaine question.

Pour ta question, qu'est censer faire la macro du bouton 1 quand on clique dessu?

 

[mimi1958]

bonjour
en fait l'userform s'ouvre et dans cet userform il y a un bouton active x et je voudrai qu' à l ouverture de cet userform ce bouton soit cliquer automatiquement afin de déclencher le chrono
j'ai pas réussi à faire une macro sur ce bouton.
si on peut m'aider.merci par avance

 

[Staple1600]

Re

Ça ne répond pas à ma question.
Quelle le code VBA associé à ce bouton?
Qu'est-ce qui se passe si tu cliques manuellement sur le bouton?

 

[mimi1958]

des que mon ordi est libre je te reponds

 

[mimi1958]

ca y est c'est libre
je te joint mon classuer et je t'explique procedure
1) a l'ouverture du classeur on se positionne a TOUR1 ' feuille 2 )
2) on click sur chronometre ouverture USF1 on click chrono ( ca te dirige vers feuill2 ou le chrono decompte )
3) a la fin du decompte on attend 2 secondes et tu es dirige vers feuille "attente"
4) sur feuille "attente" un delai de 5 secondes s'applique et apres ces 5 secondes
userfor1 's'affiche
jusqu'a la tout marche nickel
5 ) ce que je voudrai :
a l'ouverture de ufs 1 de la phase 4 , on clique automatiquement sur TOUR2
j'espere avoir ete assez concis dans mon explication
merci de ton aide

 

[Staple1600]

Re

J'ai du mal à comprendre la logique de la chose
Voici la macro associée au bouton
Sub tour2()
' tour2 Macro
Sheets("TOUR 2").Select
End Sub

Pourquoi tu utilises un userform et des CommandButton si l'utilisateur ne doit pas cliquer dessus ???

 

[mimi1958]

parce que je voudrai automatiser le classeur
en fait c'st un classeur d'un tournoi de bridge.
le tour 1 chaque equipe joue 4 donnes dans un temps imparti et des que le tour 1 est fini on passe au tour 2 et ainsi de suite.
mon idée est de tout automatiser

 

[mimi1958]

je voulais te demaner
aurait tu un décompte simple sur feuille Excel.
qui part de × vers zéro ( x reglable)
avec un bouton start et arrêt
j arrive pas alke faire
si tu peu. m aider