Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
597 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2249301
yanounou91
Posté le 25-01-2015 à 19:42:49  profilanswer
 

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()
  2. ComboBox1.List() = Array("Renault", "PSA", "Mercedes" )
  3. TextBox1.Value = ComboBox1.Value
  4. TextBox11.Value = ComboBox1.Value
  5. End Sub
  6. Sub ComboBox2_Change()
  7. ComboBox2.List() = Array("Pierre", "Henri", "Stephane" )
  8. TextBox2.Value = ComboBox2.Value
  9. TextBox22.Value = ComboBox2.Value
  10. TextBox21.Value = ComboBox2.Value
  11. 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
mood
Publicité
Posté le 25-01-2015 à 19:42:49  profilanswer
 

n°2249320
yanounou91
Posté le 25-01-2015 à 23:15:38  profilanswer
 

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


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


Aller à :
Ajouter une réponse
  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 barrerenomer mon fichier excel a l ouverture par deux cellule
incorporer plusieurs variables dans du code pythonprob avec mon code
prob avec mon codeCode 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 ?


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR