Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour, je cherche à mettre un format comme ceci "1.000" (millier) dans une Combobox mais je ne trouve. Doit on mettre ça dans "Private Sub UserForm_Initialize()" ? Merci de votre aide.
re
et histoire de faire mu muse avec ça
on pourrait élargir les possibilités de la fonction à d'autres formats tel que
en nom propre , en majuscule en minuscule , etc..etc..
la fonction se ferait comme suit
VB:
Function ListFormat(tbl, forme)
Dim I&
For I = 1 To UBound(tbl)
Select Case LCase(forme)
Case "maj": tbl(I, 1) = UCase(tbl(I, 1))
Case "min": tbl(I, 1) = LCase(tbl(I, 1))
Case "proper": tbl(I, 1) = WorksheetFunction.Proper(tbl(I, 1))
'ect..etc..
Case Else: tbl(I, 1) = Format(tbl(I, 1), forme)
End Select
Next
ListFormat = tbl
End Function
et donc l'appel de cette fonction se ferait comme suit :
toujours
dans l'exemple du activate
VB:
Private Sub UserForm_Activate()
ComboBox1.List = ListFormat([A1:A20].Value, "#0 000.00")
ComboBox2.List = ListFormat([C1:C10].Value, "proper")
ComboBox3.List = ListFormat([C1:C10].Value, "maj")
ComboBox4.List = ListFormat([C1:C10].Value, "min")
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD