Rechercher et afficher dans LABEL

[chaelie2015]

Bonsoir Forum

J’ai une liste sur ComboBox1 (tous les numéros de la colonne « P » d’un tableau),je souhaite afficher dans Label1 la date (colonne O) qui correspond au numéro sélectionné dans combobox1
salutations

 

[job75]

Bonsoir chaelie2015,

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.

 

[chaelie2015]

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

 

[Eric C]

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

 

[job75]

Bonjour Eric C,

Au lieu de :

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

utilisez :

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

A+

 

[Eric C]

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

 

[job75]

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.

 

[Eric C]

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