Problème affichage dans combobox

[wachoo31]

Bonsoir a toute et tous

J'ai une combobox dans un USF mais je n'arrive pas a fixer l'affichage

Les valeurs sont prise dans une feuille sous le format JJ / MM / AAAA
Mais pas dans la combobox
Si joint le code que j'essaye

Private Sub Ini()
Dim L As Integer
Dim Plage As String
L = Sheets("Info").Range("A65536").End(xlUp).Row
Plage = Sheets("Info").Range("A3:A" & L).Address
ComboBox1.RowSource = "Info!" & Plage
ComboBox1.Value = Format(ComboBox1.Value, "dd / mm / yyyy")
End Sub


comment faire

 

[Yohng]

Re : Problème affichage dans combobox

Bonjour,
tout simplement non?

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd / mm / yyyy")
End Sub

 

[wachoo31]

Re : Problème affichage dans combobox

Bonsoir Yohng

J'essaie ta solution mais j'ai une erreur
Nom ambigu détecté : combobox1.change

 

[Yohng]

Re : Problème affichage dans combobox

Bonsoir,

Ce n'était qu'un exemple!
La procédure "ComboBox1_Change" existe déjà dans ton projet (nom ambigu), rajoute simplement "ComboBox1.Value = Format(ComboBox1.Value, "dd / mm / yyyy")" dans la procedure "ComboBox1_Change"

 

[ftho]

Re : Problème affichage dans combobox

Bonjour,

Une solution éventuelle pour charger le Combo avec le texte qui apparaît dans la cellule, texte qui peut différer de la valeur selon la mise en forme.

Private Sub UserForm_Initialize()
Dim L As Integer, Plage As Range, cel As Range

L = Sheets("Info").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Info").Range("A3:A" & L)

For Each cel In Plage
    ComboBox1.AddItem cel.Text
Next

End Sub

 

[wachoo31]

Re : Problème affichage dans combobox

merci a vous je vais tester