XL 2016 affichage automatique

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 20 Juillet 2018

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2018

• #3

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.)

 

Vote positif 0 Vote négatif

B

BAYANE

XLDnaute Nouveau

• 20 Juillet 2018

• #4

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 20 Juillet 2018

• #5

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

 

Pièces jointes

• Classeur93.xlsm

  19.3 KB · Affichages: 30

Vote positif 0 Vote négatif

B

BAYANE

XLDnaute Nouveau

• 20 Juillet 2018

• #6

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

 

Pièces jointes

• Classeur1.xlsm

  15.3 KB · Affichages: 25
• sss.png

  15.4 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juillet 2018

• #7

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+

 

Pièces jointes

• Classeur(1).xlsx

  17.6 KB · Affichages: 24

Vote positif 0 Vote négatif

B

BAYANE

XLDnaute Nouveau

• 20 Juillet 2018

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juillet 2018

• #9

Re,

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

Code:

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+

 

Pièces jointes

• USF(1).xlsm

  25.5 KB · Affichages: 39

Vote positif 0 Vote négatif

B

BAYANE

XLDnaute Nouveau

• 20 Juillet 2018

• #10

Génial !!!
Merci beaucoup

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2018

• #11

job75 à dit:

Doit y avoir un truc ???

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 21 Juillet 2018

• #12

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...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2018

• #13

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

VB:

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

À tester

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Juillet 2018

• #14

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é)

VB:

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

 

Dernière édition: 21 Juillet 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2018

• #15

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)

 

Vote positif 0 Vote négatif