YANN-56
XLDnaute Barbatruc
Bonjour à ceux qui passeront par ici.
Je charge les mois de l'année dans un ComboBox ainsi:
Les ACCENTS me dérangent puisque le choix dans le ComboBox enregistre
le chemin d'un Dossier dont le nom est en majuscules sans accent; bien entendu!
(Comme au passage, la création des mois manquants)
Merci d'avance, si vous pouvez m'aider. Je sèche lamentablement!
Yann
Je charge les mois de l'année dans un ComboBox ainsi:
Code:
Private Sub UserForm_Initialize()
For i = 1 To 12 ' CHARGEMENT DES MOIS DANS UNE ANNEE, ET MISE EN MAJUSCULES
ComboBox1.AddItem Format(Format("1/" & i, "mmmm"), ">")
Next i
ComboBox1.Value = Format(Format(CDate(Date), "mmmm"), ">")
End Sub
Private Sub ComboBox1_Change()
Label1.Caption = ComboBox1.Value
Label2.Caption = Format(Format("1/" & ComboBox1.Value, "mm"), ">")
'(Ci-dessous Juillet = 7 et non 07)
'Label2.Caption = Format(Format("1/" & ComboBox1.Value, "mm"))
End Sub
Les ACCENTS me dérangent puisque le choix dans le ComboBox enregistre
le chemin d'un Dossier dont le nom est en majuscules sans accent; bien entendu!
(Comme au passage, la création des mois manquants)
Merci d'avance, si vous pouvez m'aider. Je sèche lamentablement!
Yann
Pièces jointes
Dernière édition: