Problème affichage dans combobox

Y

Yohng

XLDnaute Nouveau

• 2 Septembre 2008

• #2

Re : Problème affichage dans combobox

Bonjour,
tout simplement non?

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

 

Vote positif 0 Vote négatif

wachoo31

XLDnaute Occasionnel

• 2 Septembre 2008

• #3

Re : Problème affichage dans combobox

Bonsoir Yohng

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

 

Vote positif 0 Vote négatif

Y

Yohng

XLDnaute Nouveau

• 2 Septembre 2008

• #4

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"

 

Vote positif 0 Vote négatif

ftho

XLDnaute Occasionnel

• 2 Septembre 2008

• #5

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.

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

 

Vote positif 0 Vote négatif

wachoo31

XLDnaute Occasionnel

• 2 Septembre 2008

• #6

Re : Problème affichage dans combobox

merci a vous je vais tester

 

Vote positif 0 Vote négatif