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
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"
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.
Code:
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