Rechercher et afficher dans LABEL

job75

XLDnaute Barbatruc

• 17 Septembre 2019

• #2

Bonsoir chaelie2015,

VB:

Private Sub ComboBox1_Change()
Dim c As Range
Label1 = "" 'RAZ
Set c = Sheets("Feuil1").[P:P].Find(ComboBox1, , xlValues, xlWhole)
If Not c Is Nothing Then Label1 = c(1, 0).Text
End Sub

Bonne nuit.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 17 Septembre 2019

• #3

Bonsoir Job
merci c'est parfait.
a+ et bonne nuit

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 17 Septembre 2019

• #4

Bonjour le forum
Bonjour chaelie2015, bonjour job75

Comme d'habitude, je viens avec mon petit problème. J'ai voulu tenter d'aider notre ami (job75 est passé par là il y a bien longtemps pour résoudre le problème) en utilisant un ComboBox à 2 colonnes. Mon soucis est la restitution de la date dans le label, elle est convertie en nombre et je ne parviens à lui donner son format originel. Merci à vous
Bonne journée à toutes & à tous

 

Pièces jointes

• charlie RECHERCHER COMBOBOX et AFFICHER LABEL -16 sept.xlsm

  22 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2019

• #5

Bonjour Eric C,

Au lieu de :

VB:

.RowSource = "Feuil1!O4:P" & L

utilisez :

VB:

.List = Sheets(1).Range("O4:P" & L).Value

A+

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 17 Septembre 2019

• #6

Je vous remercie . Pourriez-vous, je vous prie m'expliquer le pourquoi du parce ... Merci d'avance et bonne après-midi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2019

• #7

Avec .RowSource les valeurs récupérées ne sont pas formatées, .List utilise .Value qui récupère les valeurs formatées en dates.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 17 Septembre 2019

• #8

Bonsoir le fil
Bonsoir et merci job75 pour vos précieux conseils .
Bonne soirée

 

Vote positif 0 Vote négatif