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

Comment executer un code sur des combobox dès l'ouverture de word ? - VB/VBA/VBS - Programmation

Marsh Posté le 25-01-2015 à 19:42:49    

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 :
  1. Sub ComboBox1_Change()
  3. ComboBox1.List() = Array("Renault", "PSA", "Mercedes" )
  4. TextBox1.Value = ComboBox1.Value
  5. TextBox11.Value = ComboBox1.Value
  7. End Sub
  9. Sub ComboBox2_Change()
  11. ComboBox2.List() = Array("Pierre", "Henri", "Stephane" )
  12. TextBox2.Value = ComboBox2.Value
  13. TextBox22.Value = ComboBox2.Value
  14. TextBox21.Value = ComboBox2.Value
  16. 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
Reply

Marsh Posté le 25-01-2015 à 19:42:49   

Reply

Marsh Posté le 25-01-2015 à 23:15:38    

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 :
  1. Private Sub ComboBox1_DropButtonClick()
  3. ComboBox1.List() = Array("Arnaud", "Stephane", "Michelle" )  'noms des commerciaux
  4. TextBox1.Value = ComboBox1.Value
  5. TextBox11.Value = ComboBox1.Value
  7. Select Case ComboBox1.Value 'selon le choix d'un commercial, indiquer ces coordonnées
  8.         Case "Arnaud"
  9.         TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
  11.         Case "Stephane"
  12.         TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
  14.         Case "Michelle"
  15.         TextBox4.Text = "Tel : 01 69 88 XX XX" & vbCrLf & "Mobile : 06 69 88 XX XX" & vbCrLf & "Fax : 01 69 88 XX XX"
  17. End Select
  19. End Sub
  22. Private Sub TextBox3_Change() 'ici j'ai le nom du client qui se repercute
  25. TextBox2.Value = TextBox3.Value
  26. TextBox22.Value = TextBox3.Value
  27. TextBox21.Value = TextBox3.Value
  29. End Sub


 
 
Quelqu'un saurait comment ajouter un logo dans une textbox ?
 
Bonne soirée

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed