XL 2016 affichage automatique

[BAYANE]

Bonjour Nicopec,

Désolé pour mon post, je me suis mal exprimé.

Travaillant sur VBA, J'ai une liste déroulante nommée Reference ( de R1 à R80 ), et une case texte nommée Désignation.
Sur une feuille excel, j'ai deux tableaux du coup : Reference (80 lignes ) et Désignation ( 80 lignes )

Je souhaite par exemple quand je clique sur la Reference R5, La case Désignation se remplie autotiquement avec la 5eme case du tableau désignation (5 eme ligne)

Je ne sais pas si je suis claire cette fois mais je débute dans Excel et VBA


Merci par avance

 

[Sheldor]

bonjour,
personnellement... j'ai rien compris
il serait sans doute utile (si vous voulez une réponse) de réduire la question à quelque chose de compréhensible
nico

 

[Dranreb]

Bonjour.
C'est trop réduit, là, et sans doute encore moins compréhensible
(Conseil: mettez la description la plus détaillé de ce que vous souhaitez en face des cellules concernées dans le classeur modèle anonymisé que vous joindrez.)

 

[BAYANE]

Désolé, je ne suis pas doué pour éditer mes posts

 

[Sheldor]

bonjour Dranreb,
réduire là question.. oui là c'est un peu trop réduit

voilà ce que je voulais dire par réduire:
si par exemple j'ai deux colonnes référence et désignation dans une feuille et que je veux avoir ces infos dans un userform pour choisir ce qui me plait je peux ajouter une listbox (pj) avec les deux pour ensuite cliquer dessus et faire je ne sais pas quoi

nico

 

[BAYANE]

Nicopec,
Tout d'abord merci beaucoup pour ta reactivité.
Je t'ai mis en PJ mon exemple, Ce que j'aimerais bien c'est qu'en selectionnant une reference, la case de designation se remplie automatiquement

merci

 

[job75]

Bonjour,

Ce que je ne comprends ce sont les réponses de nicopec et de Dranreb.

Pour moi la question de BAYANE est très claire et très simple, voyez le fichier joint, pas besoin de VBA.

Doit y avoir un truc ???

A+

 

[BAYANE]

Merci Job75,
J'ai besoin de VBA car ce petit exemple n'est qu'une partie de mon projet, mais ce que tu as fait est exactement ce que je recherche

 

[job75]

Re,

Bon avec un UserForm c'est à peine plus compliqué :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then TextBox1 = "" Else TextBox1 = Application.VLookup(ComboBox1, [Référence:Désignation], 2, 0)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [Référence].Value
End Sub

Fichier .xlsm joint.

A+

 

[BAYANE]

Génial !!!
Merci beaucoup

 

[Dranreb]

Doit y avoir un truc ???

Bonjour Job75. Oui: j'avais pris la discussion alors que le message 1, en cours d'édition avait probablement été validé accidentellement, et qu'il n'en restait que "aa" pour tout texte.
Maintenant tout est clair, et classique.

 

[Sheldor]

bonjour Job75,
le premier message a été entièrement remplacé, il y avait un fichier joint avec moultes colonnes et un USF très fourni...

 

[Dranreb]

Bonjour.
La recherche par Application.Vlookup peut me semble-t-il être évitée :

Private Sub ComboBox1_Change()
If ComboBox1.MatchFound Then TextBox1 = [Designation].Rows(ComboBox1.ListIndex + 1).Value Else TextBox1 = ""
End Sub

À tester

 

[ChTi160]

Bonjour
Bonjour le Fil ,le Forum
Comme Dit et en me basant sur l'exemple :
On peut éviter les Vlookup et autre MatchFound
pour l'exemple (simplifié)

Private Sub ComboBox1_Change()
With Me.ComboBox1
If .ListIndex = -1 Then Me.TextBox1 = "" Else Me.TextBox1 = .List(.ListIndex, 1)
End With
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Range("A2:B81").Value 'méthode Simple pour la plage Lol
End Sub

Bonne journée
Jean marie

 

[Dranreb]

C'est une autre façon de faire mais .ListIndex > -1 peut être évité en utilisant directement la condition toute faite sans opérateur relationnel .MatchFound
(ou bien Not .MatchFound pour .ListIndex = -1)