Discussion :

[jao.itaparic]

Bonjour,
1-je cherche a exécuter une macro qui lance un formulaire VBA sans rentrer dans Excel. Est ce possible?
Actuellement je rentre dans Excel 2007 je clique sur développeur, sur macro puis j'exécute la macro..... Peut on le faire directement?
2- C'est un formulaire de saisie avec plusieurs textbox. Dans ma première textbox je contrôle la saisie ( soit E soit S) et je voudrais passer a la textbox suivante des que l'une de ces 2 lettres est tapée..... ( Focus) mais je n'arrive pas a le faire avec VBA excell 2007....Est ce possible?
Merci -
Jao

[Fvandermeulen]

Salut,
Pour ta question une, tu dois placer ton code actuel dans le module ThisWorkbook sur l'évènement Open. La macro se déclenche alors à l'ouverture d'Excel. Mais pour ouvrir un formulaire créer dans Excel sans ouvrir Excel, je vois pas...

Pour le point deux, tu dois créer un évènement de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private sub textBox_AfterUpdate()

Vérifie l'ordre de tabulation de tes éléments dans ton userform et je crois que ton problème est résolu.

A+

[jao.itaparic]

Merci Fvandermeulen de m'avoir répondu.
pourrais je avoir plus de précisions?
1- Que dois je mettre comme code dans ThisWorkbook/open?
2- Quelle instruction mettre dans Private sub textBox_AfterUpdate() pour passer automatiquement par exemple a la textbox16?

[Fvandermeulen]

Re,

Tu dis lancer une macro manuellement, cette macro est celle qui ouvre ton UserForm non? Si oui, tu copie ce code sauf la première ligne (sub ...) et le dernière (end sub) dans le module Thisworkbook dont tu utilise Open.
Donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
'Ici le code que tu lancais manuellement
End Sub

Pour ce qui est du passage à la TextBox 16, pas besoin de code, pour chaque élément de ton userform tu trouveras un TabIndex, Admettons ton TextBox 1 avec TabIndex1, si tu veux que le TextBox16 soit le suivant tu lui indique comme TabIndex 2.
Le 'Private sub textBox_AfterUpdate()' te sert à pouvoir vérifier la valeur saisie.

A+

[jao.itaparic]

1-Pour la macro OK cela se lance automatiquement.... mais alors est il possible que la sortie ferme excell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton5_Click()
End
End Sub

2- Sorry! J ai mal formulé.
Je repose ma question : y a t il un moyen de passer automatiquement de Tabindex1 a Tabindex2 sans appuyé sur la touche Tablature?

[jao.itaparic]

1- donc pour fermer le classeur en sortant du formulaire il faut taper ce code dans un bouton "FIN" par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton5_Click()
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
end sub

2-Pour le passage entre tabindex il est impossible de les contrôler autrement que par les tablatures

Merci a tous
Ciao
Jao