Bonjour le fourm,
À partir d'un userform et avec un combobox je choisis une date (9 janv. 2015). Lorsque le transfert se fait dans la cellule, j'ai 2015-01-09 ce qui ne fonctionne pas lorsque je fais un tri en fonction des dates.
Donc, comment forcé le format date (9 janv. 2015) ?
J'utilise ce code pour alimenter les combobox :
For Each cell In Worksheets("Planning").Range("d1:d200")
For I = 16 To 30
Controls("Combobox" & I) = cell
If Controls("Combobox" & I).ListIndex = -1 Then Controls("Combobox" & I).AddItem cell
Next I
Next cell
Et ceci pour le transfert sur la feuille :
ActiveCell = ComboBox1
ActiveCell.Offset(0, -2) = TextBox1
ActiveCell.Offset(0, -1) = TextBox16
ComboBox16.Value = CDate(ComboBox16)
ActiveCell.Offset(0, 1) = ComboBox16
ActiveCell.Offset(0, 2) = TextBox46
Merci de votre aide
À partir d'un userform et avec un combobox je choisis une date (9 janv. 2015). Lorsque le transfert se fait dans la cellule, j'ai 2015-01-09 ce qui ne fonctionne pas lorsque je fais un tri en fonction des dates.
Donc, comment forcé le format date (9 janv. 2015) ?
J'utilise ce code pour alimenter les combobox :
For Each cell In Worksheets("Planning").Range("d1:d200")
For I = 16 To 30
Controls("Combobox" & I) = cell
If Controls("Combobox" & I).ListIndex = -1 Then Controls("Combobox" & I).AddItem cell
Next I
Next cell
Et ceci pour le transfert sur la feuille :
ActiveCell = ComboBox1
ActiveCell.Offset(0, -2) = TextBox1
ActiveCell.Offset(0, -1) = TextBox16
ComboBox16.Value = CDate(ComboBox16)
ActiveCell.Offset(0, 1) = ComboBox16
ActiveCell.Offset(0, 2) = TextBox46
Merci de votre aide