Comment executer un code sur des combobox dès l'ouverture de word ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment executer un code sur des combobox dès l'ouverture de word ?

yanounou91

Bonsoir,

Je travaille sur un doc Word 2007, mais pour éviter les problèmes de versions j'utilise la boite à outils contrôle activex (VBA).

Je cherche, dans le cadre d'un document Word, à faciliter la saisie des données. Par exemple, avoir un champ client dont une des valeurs est à sélectionner une fois (ComboBox); puis des textbox à travers le document qui prendront la valeur de la combobox. Le code suivant fonctionne :

Code :

Sub ComboBox1_Change()
ComboBox1.List() = Array("Renault", "PSA", "Mercedes" )
TextBox1.Value = ComboBox1.Value
TextBox11.Value = ComboBox1.Value
End Sub
Sub ComboBox2_Change()
ComboBox2.List() = Array("Pierre", "Henri", "Stephane" )
TextBox2.Value = ComboBox2.Value
TextBox22.Value = ComboBox2.Value
TextBox21.Value = ComboBox2.Value
End Sub

Mais il ne fonctionne qu'après avoir exécuté la macro dans VBE. Comment faire pour que les valeurs de zones de listes soient activées dès l'ouverture du fichier Word ? Et surtout je ne parviens pas à assembler ces actions dans une meme procédure sub ? Car par la suite il me faudra tenter une autre actions entre des combo et text box.

Info : ces procédures sont placées dans "ThisDocument", est ce la une autre erreur ?
Le fait de tenter activate ou Initialize empire les choses car la modifications des textbox ne fonctionne plus

En vous remerciant.

Cordialement.

Yannick

Message édité par yanounou91 le 25-01-2015 à 20:06:19

Publicité

yanounou91

Re moi,

J'ai pu trouvé la solution à mon problème avec le bon évènement. Je place ma solution pour ceux que cela peut aider. Sachant que n'etant pas pro, ce n'est surement pas optimisé :

Code :

Private Sub ComboBox1_DropButtonClick()
ComboBox1.List() = Array("Arnaud", "Stephane", "Michelle" ) 'noms des commerciaux
TextBox1.Value = ComboBox1.Value
TextBox11.Value = ComboBox1.Value
Select Case ComboBox1.Value 'selon le choix d'un commercial, indiquer ces coordonnées
Case "Arnaud"
TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
Case "Stephane"
TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
Case "Michelle"
TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
End Select
End Sub
Private Sub TextBox3_Change() 'ici j'ai le nom du client qui se repercute
TextBox2.Value = TextBox3.Value
TextBox22.Value = TextBox3.Value
TextBox21.Value = TextBox3.Value
End Sub

Quelqu'un saurait comment ajouter un logo dans une textbox ?

Bonne soirée

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment executer un code sur des combobox dès l'ouverture de word ?

Sujets relatifs
pourquoi ce code ne recupère plus une partie de code source d'une url?	modifier archive tar en une seule ligne de code
Parser du code Ada pour colorer et indenter automatiquement le texte !	Problème sur l'entame de ce code
WEB / Lecture code barre	renomer mon fichier excel a l ouverture par deux cellule
incorporer plusieurs variables dans du code python	prob avec mon code
prob avec mon code	Code html pour "connexion" avec identifiant et mot de passe
Plus de sujets relatifs à : Comment executer un code sur des combobox dès l'ouverture de word ?

Page générée en 0.041 secondes