Discussion :

[FranPier]

Bonjour
La source du listbox1 est un tableau composé de 4 colonnes d'un fichier excel 2010.
La deuxième colonne de ce tableau a le format "Personnalisée" catégorie .....General "heures" ou General "fois" etc.,
Ce format permets de multiplié un nombre accompagnée de "heures" ou "fois" où autres unités tel que l'exemple présentée dans le fichier ci-joint.
Il est important que la quantité et l'unité soit dans la même colonne.
Comment formater la deuxième colonne dans ce listbox pour faire apparaître le texte tel que vue dans le fichier excel.
Se référer au fichier ci-joint.
merci

[Franc]

Salut, voici la solution, je vérifie le format de chaque cellule de la colonne B et utilise la fonction Format appropriée pour afficher les données dans le ListBox avec les unités souhaitées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim c
    Dim f As Worksheet
    With UserForm1
        Me.ListBox1.Clear
        .ListBox1.ColumnCount = 4
        .ListBox1.ColumnWidths = "80;50;50;50"
        .ListBox1.MultiSelect = fmMultiSelectMulti
        Set f = Sheets("Feuil1")
        For Each c In f.Range("A1:A" & f.[a650].End(xlUp).Row)
            i = i + 1
            .ListBox1.AddItem c
            If InStr(c.Offset(0, 1).NumberFormat, "Heures") > 0 Then
                .ListBox1.List(i - 1, 1) = Format(c.Offset(0, 1).Value, "0 ""Heures""")
            ElseIf InStr(c.Offset(0, 1).NumberFormat, "mètres") > 0 Then
                .ListBox1.List(i - 1, 1) = Format(c.Offset(0, 1).Value, "0 ""mètres""")
            ElseIf InStr(c.Offset(0, 1).NumberFormat, "fois") > 0 Then
                .ListBox1.List(i - 1, 1) = Format(c.Offset(0, 1).Value, "0 ""fois""")
            End If
            .ListBox1.List(i - 1, 2) = Format(c.Offset(0, 2).Value, "0.00") 'format nombre
            .ListBox1.List(i - 1, 3) = Format(c.Offset(0, 3).Value, "0") 'format standard
        Next
    End With
End Sub

[FranPier]

Bonjour
La source du listbox1 est un tableau composé de 4 colonnes d'un fichier excel 2010.
La deuxième colonne de ce tableau a le format "Personnalisée" catégorie .....General "heures" ou General "fois" etc.,
Ce format permets de multiplié un nombre accompagnée de "heures" ou "fois" où autres unités tel que l'exemple présentée dans le fichier ci-joint.
Il est important que la quantité et l'unité soit dans la même colonne.
Comment formater la deuxième colonne dans ce listbox pour faire apparaître le texte tel que vue dans le fichier excel.
Se référer au fichier ci-joint.
merci

Merci