Compte a rebours et macro

bonjour a tous

plusieurs problèmes se posent et on va commencer par la premiere :

j'ai un classeur avec 3 feuilles ( 1 , 2 , 3 ) sur les 2 premieres feuille il y a des positions de jeu et sur la troisieme feuille l y a un chrono

ma premiere question :

a partir de ma feuil1 j'ai un bouton chrono qui va sur la feuille 3 (chrono ) et je voudrai que le chrono demarre automatiquement

pour ma part j'ai mis ceci comme code mais marche pas

Private Sub CommandButton8_Click()

Sheets("start").Select](start est la feuille 3 )

activate.CommandButton1_Click() ( bouton 1 est le bouton PLAY du depart du chrono )

' Bouton Play

If ChronoEnCours = True Then Exit Sub

ChronoEnCours = True

Depart = [now()]

Range("A4") = "00:10:00"

End Sub

il faudrait mettre une macro mais le probleme est que quand je veux enregistrer la macro , je met met sur feuill3 et je clic sur play , et ensuite pour arreter enregistrement cette proposition est grisée.

merci de votre aide

j'i essaye ca plus simple marche pas non plus

Private Sub CommandButton8_Click() ( bouton pour aller feuil 3 )

Sheets("start").Select ( start = feuil 3 )

lancerchrono ( macro )

End Sub

Bonjour Mimi bonjour toutes et tous

Un petit fichier ci-joint, se serai bien

crdlt,

André

ok je joint

pour explication :

tour 1 je lance chronometre userform se lance

dans cet userform il y a bouton chrono qui se dirige vers start ( derniere feuille ) et la je voudrai que le chrono se lance automatiquement a l'aide de la macro " lancechrono)

voila

apres avoiir regle cette question d'autres viendront si tu es disponible bien sur

re

1/ tu a mis pour lancer la macro lancerchrono au lieu de lancechrono

userform1

Private Sub CommandButton8_Click()
Sheets("start").Select
 lancechrono
End Sub

2/ supprime tout les modules inutile(et/ou vide)

en fait la macro ne marche pas car quand on lance tout

il selectionne le bouton play mais ne clic pas dessus .

en fait le bouton est comme en mode creation , il est selectionne

voila tu sais tous

j'ai enleve les modiles inutiles et je te remet le fichier

re,

ok

j'vais mangé bonne appétit si vous êtes à table

@ tester

Shapes("CommandButton1").OLEFormat.Object.Enabled = True

Deja bon appetit

EEnsuite j'ai mis

Private Sub CommandButton8_Click()

Sheets("start").Select

Shapes("CommandButton1").OLEFormat.Object.Enabled = True

End Sub

ca ne marche pas

Mais j'ai du pas faire comme il le faut

Merci pour ton aide andre

tu as acces a mon fichier ,? tu peut le modifier si tu veux

tu as une macro pour deproteger le tout

Re,

je vais essayé d'ici quelques minutes

j'avais réussi une fois à effectuer cela mais cela ne me revient pas

j'espère que c'est pas la cause des boutons contrôle active x qui sont en cause

je reregarde après

crdlt,

André

Re,

Arf, je viens de voir cela dans la feuille start le bouton de commande 1 est identique (le nom des boutons commande 1 des autres onglets) pour cela, je tournais en rond

bon une manière de simuler un clic

Application.SendKeys "~"

Ok je vais essayer là je suis en balade donc à tout à l'heure le tild c quoi?

comment je formule ça stp?

ma macro sert elle quelque chose.merci André

d autres questions vont suivrent

Re,

le tilde ~ s'effectue avec la touche Alt Graphique + la touche Espace de son clavier

Entrée (pavé numérique) {ENTER}

Entrée ~(tilde)

Ce qui dans le code va simuler un clic gauche sur le bouton et va lui attribué la touche entrée du clavier.

mais là, on se trouve avec un userform1 qui est lancé, qui, quant à lui à des boutons de commandes qui lui sont attribués ( à ne pas se mélanger)

on doit lui dire, en cliquant sur ce bouton de : l'userform1 (CommandButton8_Click) : chrono

va me cliqué sur ce bouton de commande contrôle activeX de la feuille start du classeur , que j'ai nommé Cmplay (afin de ne pas se mélanger les pinceaux)

et non pas sur le bouton de l'userform

dis moi André tu as modifier le fichier? car tu me dit cmplay .

peut tu mettre le d'i hier si c est ke cad

Re,

je te mets le fichier ci-joint

pas fini*

ici

EDIT:

Entrée (pavé numérique) {ENTER}

Entrée ~(tilde)

moi j'ai mis ca mais dmarche pas

doit pas etre loin a mon avis

Private Sub CommandButton8_Click()

Sheets("start").Activate

Range("A9").Select

Application.SendKeys "{ENTER}"

End Sub

Ok,

Aujourd'hui j'ai pas de chance rien ne fonctionne chez moi comme je veux, je dois mal m'y prendre

a) par contre {ENTER} pour les touches du pavé numérique aussi non le tilde ~

b) la sélection de la cellule A9 m'semble ne servira pas à grand chose car c'est le bouton qui est le fautif

en fait dans le sendkey il n'y a pas le click .

si tu vas dans start ( f3 ) tu te positionne sur paly et tu fais enter il demarre pas non plus

Private Sub CommandButton8_Click()

Sheets("start").Activate

Range("A9").Select

Application.SendKeys "{ENTER}"

End Sub

moi il va jusqu'a la selection de la cellule et s'arrete la

je desespere

BON ON AVANCE

j ai egarder sur la feuille start en fait si tu fait clic droit sur " PLAY'" il selectionne le bouton et pour le demarrer il faut appuyer sur barre espace.

reste plusqu' a mettre ca en vba

on va essayer

ABANDON

Re,

n'abandonne pas c'est bien dommage

si je trouve je poste pas de soucis

crdlt,

André