Format "General" dans un listbox

Version imprimable

14/06/2023, 19h30
FranPier

1 pièce(s) jointe(s)

Format "General" dans un listbox

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

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:

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

16/06/2023, 13h52
FranPier

Merci pour la solution

Citation:

Envoyé par 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 :D