Discussion :

[fyejumpy]

Bonjour,

J'ai une listeView du nom de Resultat celle-ci sert à stocker des donnée. InfoString, est un tableau de string comportant quelque nom de Colonnes Headers de Resultat. La chose que je veux faire est assez simple, c'est que si InfoString est égale à l'une de des ColumnHeaders de Resultat alors je prend sont contenu et je l'affecte à une cellule. Cependant, si je met listSubitems(y) alors il me sort des résultat qui sont un cran à côté de ce que je veux.

J'ai testé de mettre y-1 dans le listSubitems et là il me dit indexOutOfBound...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For x = 1 To UBound(infoString) - 1
            For y = 1 To resultat.ColumnHeaders.Count - 1
                'Si le nom d'une colonne dans le string et la même qu'un nom d'onglet alors
                If infoString(x) Like resultat.ColumnHeaders(y).text Then
                    'On concatene le nom de la colonne avec son résultat
                    contCell = contCell & " " & infoString(x) & ": " & resultat.ListItems(1).ListSubItems(y) & " "
                    'On le met dans la bonne cellule
                    Range(infoString(0)).Value = contCell
                End If
            Next y
        Next x

Je suis un peu perdu, pouvez vous m'aider ?

Cordialement,
Fyejumpy

[joe.levrai]

Bonjour,

sans creuser ton code, mais avec ta remarque indiquant que tu tapes toujours une colonne à côté.

si tu testes également ta première colonne, attention
exemple pour la première ligne

première colonne

Code :

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

resultat.ListItems(1)

deuxième colonne

Code :

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

resultat.ListItems(1).ListSubItems(1)

troisième colonne

Code :

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

resultat.ListItems(1).ListSubItems(2)

ListSubItems(0) n'existant pas, tu dois donc gérer le cas de la colonne 1 différemment des autres
(un simple If pour couper les deux cas et c'est réglé)

[fyejumpy]

Merci de ta réponse,
je vais essayer de modifier ça !

Cordialement,
Fyejumpy