Discussion :

[ftcalvados]

Bonjour,

Je voudrais afficher un tableau dans une case de listview.
Le tableau est une concaténation de valeur de 4 colonnes (avec à la fin un retour à la ligne)
Exemple :
ValA1/ValB1/ValC1/ValD1
ValA2/ValB2/ValC2/ValD2
ValA3/ValB3/ValC3/ValD3 ...

Mais dans ma listview j'obtiens :
ValA1/ValB1/ValC1/ValD1"carré"ValA2/ValB2/ValC2/ValD2"carré"ValA3/ValB3/ValC3/ValD3

"carré" : carré représentant un chr(10) ou un chr(13)

Code :

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

1
2
3
4
5
                ValeurConcateneA = ValeurConcateneA & Chr(10)
            End If
 
        Next k
        UserForm5.ListView1.ListItems(i).ListSubItems.Add , , ValeurConcateneA

[Le Pierre]

bonjour

La première donnée du tableau est en A1.
Essaye ceci :

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
Private Sub UserForm_Activate()
    Dim Tableau, j&, y&
 
    Range("A1").Select
    Selection.CurrentRegion.Select
    'Récupération des données
    Tableau = Selection.Value
 
    ' Sélection du mode détaillé
    Me.ListView1.View = lvwReport
    ' Création des colonnes
    Me.ListView1.ColumnHeaders.Add 1, , "Colonne 1"
    Me.ListView1.ColumnHeaders.Add 2, , "Colonne 2"
    Me.ListView1.ColumnHeaders.Add 3, , "Colonne 3"
    Me.ListView1.ColumnHeaders.Add 4, , "Colonne 4"
 
    'Ecriture données en colonne 1
    For y = UBound(Tableau, 1) To LBound(Tableau, 1) Step -1
        Me.ListView1.ListItems.Add 1, , Tableau(y, 1)
        Me.ListView1.ListItems(1).SubItems(1) = Tableau(y, 2)
        Me.ListView1.ListItems(1).SubItems(2) = Tableau(y, 3)
        Me.ListView1.ListItems(1).SubItems(3) = Tableau(y, 4)
    Next y
End Sub

à plus

[ftcalvados]

Merci pour ta réponse, mais j'ai du mal m'exprimer !!!

Je voudrais afficher dans une case de ma listview mes éléments sous forme de tableau

C'est pour cela que je les "concatene", mais c'est le saut de ligne que je n'arrive pas à réaliser (voir pièce jointe)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Sub ACT_AfficheList01_Userform5()
Dim i, j, k, l As Integer
Dim ValeurConcateneA As String
Dim Index_nbrColonne As Integer
Dim Index_nbrLigne As Integer
Dim Nbr_Car As Integer
 
    ValeurConcateneA = ""
    CompteurACT_AfficheList01_Userform5 = CompteurACT_AfficheList01_Userform5 + 1
 
    With UserForm5.ListView1
        .ListItems.Clear
        .Sorted = False
    End With
 
    Index_Colonne_BdD = 40
 
    Index_Ligne_ListView1_UserForm5 = 2
    i = 1
    Do Until IsEmpty(Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, 1))
        'Info - ID
        UserForm5.ListView1.ListItems.Add , , Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, 1)
 
        'Info - Paramètre spécifié
        Index_Colonne_BdD = 40
        UserForm5.ListView1.ListItems(i).ListSubItems.Add , , Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, Index_Colonne_BdD)
 
        'Info - Label/Unité/Signe/Valeurs
        Index_Colonne_BdD = 48
        Index_nbrColonne = Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, 46)
        Index_nbrLigne = Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, 47)
        For k = 1 To Index_nbrColonne
            For l = 1 To Index_nbrLigne
                If Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, Index_Colonne_BdD) = "" Then
                Else
                    ValeurConcateneA = ValeurConcateneA & Sheets("TempListView1").Cells(Index_Ligne_ListView1_UserForm5, Index_Colonne_BdD) & "/"
                    Index_Colonne_BdD = Index_Colonne_BdD + 1
                End If
            Next l
            Nbr_Car = Len(ValeurConcateneA)
            Nbr_Car = Nbr_Car - 1
            ValeurConcateneA = Left(ValeurConcateneA, Nbr_Car)
            If k = Index_nbrColonne Then
                'Pas d'action
            Else
                ValeurConcateneA = ValeurConcateneA & Chr(13)
            End If
 
        Next k
        UserForm5.ListView1.ListItems(i).ListSubItems.Add , , ValeurConcateneA
 
        'Changement couleur
        UserForm5.ListView1.ListItems(i).ForeColor = RGB(0, 0, 255)
        For j = 1 To UserForm5.ListView1.ListItems(1).ListSubItems.Count
            UserForm5.ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(0, 0, 255)
        Next j
 
        i = i + 1
        Index_Ligne_ListView1_UserForm5 = Index_Ligne_ListView1_UserForm5 + 1
        ValeurConcateneA = ""
    Loop
End Sub

[Le Pierre]

bonjour

que penses-tu de cet exemple ?
Est-ce qu'il répond à ton problème ?

à plus

[fring]

Bonjour à tous,

Ce que cherche à faire calvados n'est à mon avis pas réalisable, une ligne d'une ListView ou d'une ListBox n'accepte pas le retour à la ligne (multiligne dans une ligne...).
.

[ftcalvados]

Je viens d'analyser ce que le Pierre ma envoyer, mais cela ne corresponr pas à mon besoin !!!!

Ci-joint une deuxieme image réalisé avec PhotoShop (c'est plus facile)

Suite au message de "fring", ce n'est peut-être pas réalisable