Tableau dans une listview

Version imprimable

29/09/2008, 09h15
ftcalvados

Tableau dans une listview
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:

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

bonjour

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

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
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

1 pièce(s) jointe(s)

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:

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

30/09/2008, 19h04
Le Pierre

1 pièce(s) jointe(s)

bonjour

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

à plus
30/09/2008, 20h15
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...).
.
30/09/2008, 20h31
ftcalvados

1 pièce(s) jointe(s)

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 :cry:

bonsoir

voici une amorce de solution mais à retravailler :

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
26
27
28
29
30
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)
        x = InStr(Tableau(y, 4), Chr(13))
        T1 = Left(Tableau(y, 4), x - 1)
        T2 = Right(Tableau(y, 4), x - 1)
        'Me.ListView1.ListItems(1).SubItems(3) = Tableau(y, 4)
        Me.ListView1.ListItems(1).SubItems(3) = T1
        Me.ListView1.ListItems.Add 1, , ""
        Me.ListView1.ListItems(1).SubItems(3) = T2
    Next y
End Sub

à plus

01/10/2008, 09h44
Le Pierre

1 pièce(s) jointe(s)

bonjour

voici la nouvelle proposition rectifiée.
tu nous dis quoi.
à plus
01/10/2008, 13h24
ftcalvados

Bonjour Pierre,

Merci pour tes recherches, ta nouvelle solution pourrait-être intéressante, mais risque de modifier beaucoup mon code pour la suite.

Suite à discutions, l'affichage de mes lignes de tableau avec un carré de séparation n'est pas trop gênante pour l'utilisateur

Donc je ne vais pas poursuivre plus loin.
Je garde précieusement ta solution

Merci encore à tous