VBA EXCEL Formulaire : prénom et initiales Fermé

Question

Bonjour, 

j'ai créé deux colonnes :  
- la première regroupe des prénoms de collaborateur 
- la seconde regroupe leurs initiales 
Evidemment, pour une ligne, une personne a son prénom dans la 1ère colonne et ses initiales dans la 2nde colonne. 

Je veux créer un formulaire (vous le trouverez dans le fichier joint: http://cjoint.com/12dc/BLBrLZiOKTJ.htm), qui me fasse choisir un prénom dans un combobox et m'affiche, en conséquence, les initiales correspondantes dans l'autre combobox. 
J'espère avoir été clair. 

J'étais parti, de manière aventureuse et avec mes maigres connaissances de vba, dans le code suivant qui est resté dans la fenêtre de code du fichier joint. 

Cela m'affiche une erreur 1004. Je ne sais jamais géré ce type d'erreur; est-ce que qqun peut m'aider sur ce point? 

Sachant qu'un autre code permet d'aller chercher les données de la feuille, voici le code commencé : 
sub Combobox1_change()
dim val1 as integer
if combobox1.value=thisworkbook.sheets("Feuil1").cells(val1,1).value then
combobox2.value=thisworkbook.sheets("Feuil1").cells(val1,2).value
end if
end sub

C'est la ligne du "if" qui bloque.

Voilà, en espérant avoir été clair. 

Merci par avance pour votre aide

Le Pingou · Answer

Bonjour,
Regarder si c'est dans le bon sens : https://www.cjoint.com/?3LBxr6NMISk

chrisdemontigny · Answer

Bonjour Le Pingou,

J'ai remplacé les initiales par des numéros de matricule. 
Cela me met une erreur d'exécution 380 qui m'indique une valeur de propriété non valide.

Peux-tu m'aider?
Pour info, j'utilisais ton code dans un autre fichier et je me suis rendu compte que c'est les nombres qui créait cette erreur.

As-tu une idée pour éviter cette erreur sachant que je veux mettre absolument des chiffres?

Merci par avance

Le Pingou · Answer

Bonjour,
Normalement il ne devrait pas y avoir de problème.
Pouvez-vous mettre le fichier tel qu'il est sur https://www.cjoint.com/  et poster le lien !
  
  
Salutations. 
Le Pingou

eriiic · Answer

Bonjour 
 
J'ai l'impression que tu compares des patates et des carottes.

if combobox1.value=thisworkbook.sheets("Feuil1").cells(val1,1).value then 
combobox1 est du texte, .cells(val1,1) est du numérique d'après ce que tu dis.
Essaie avec :
cdbl(combobox1.value)=thisworkbook.sheets("Feuil1").cells(val1,1).value then

eric

Le Pingou · Answer

Bonjour chrisdemontigny,  
Avant de vous répondre j'ai testé le fichier que je vous avais transmis avec  des nombres, des textes et un mélange chiffre et texte sans aucun problème. 
Ce serait bien de montrer le fichier sur lequel vous avez le problème .... 
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Merci.
Je vous répètes ceci : ce serait bien de montrer le fichier sur lequel vous avez le problème ....

chrisdemontigny · Answer

voici ton fichier sur lequel j'ai retravaillé: 
http://cjoint.com/12dc/BLEp21wN2lb.htm

cdlt

Le Pingou · Answer

Bonjour,
Merci, j'ai modifié le code.
Le fichier : https://www.cjoint.com/?3LEr2tQfiSg

Le Pingou · Answer

Bonjour, 
Est-ce que cela fonctionne .... ? 
Concerne : 
Je comprends que "application.enabledevents=false " bloque en particulier userform_initialize. 
Ce qui est faux ; sert à désactiver des événements avant l'attribution d'une valeur de la [Combobox]  de telle sorte que l'événement Change n'ait pas lieu. 

Mais je ne comprends pas pourquoi les chiffres gênaient 
Ce ne sont pas les chiffres qui provoque l'erreur mais simplement l'activation de la propriété [Style] sur [fmStyleDropDownList] qui oblige l'utilisation d'une valeur de la liste [Combobox] (toute valeur externe, même si cette valeur existe provoque une erreur) c'est pourquoi j'ai modifié les 2 procédures événementielle sur [xx_change] . 
Vous pouvez essayer de mettre du mélange nombre, texte, chiffre et lettre et vous constaterez que maintenant il n'y a plus de problème... !

Quelle est l'utilité de option explicit? 
Instruction utilisée au niveau module pour imposer la déclaration explicite de toutes les variables de ce module 
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Eh bien, je vous avait mentionnée ceci : c'est pourquoi j'ai modifié les 2 procédures événementielles sur [xx_change]
Si vous regardez le code vous constaterez que j'utilise les valeurs des 2 listes [cbxcolla] et [cbxinit] et de cette manière il n'y a plus de conflit possible.
Tous mes voeux pour l'an nouveau.