Récupérer n'importe quelle donnée d'une ListView pour informer TextBox

Version imprimable

J'ai essayé ça mais ça ne marche pas, message erreur "index hors limites"
Je vous remercie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
With Me.Lv
.ListItems.Clear
For Each C In Worksheets("Assurances").Range("D4:D19")
 
X = X + 1
i = 15
    .ListItems.Add , "toto", C
    .ListItems(X).ForeColor = C.Font.Color
For i = 15 To 30
For j = 1 To 45
            .ListItems(X).ListSubItems.Add , , C.Offset(0, j)
If C.Offset(0, j) = 0 Then .ListItems(X).ListSubItems(j).ForeColor = RGB(255, 0, 0)
If C.Offset(0, j) < 0 Then .ListItems(X).ListSubItems(j).Bold = False
Next j
    Me.Controls("TextBox" & i) = Lv.ListItems(X).ListSubItems(j).text
Next i
Next C
End With

15/04/2019, 17h32
anasecu

Bonjour,

Ton index j est nécessairement hors limite puisque tu viens de boucler sur toutes tes colonnes
15/04/2019, 22h01
co_lac

Bonsoir,

Citation:

Envoyé par anasecu

Bonjour,

Ton index j est nécessairement hors limite puisque tu viens de boucler sur toutes tes colonnes

Je tourne dans tout les sens et je ne trouve pas !
Je débute avec vba et les boucles j'ai du mal!
Tu peux m'en dire plus stp, je navigue un peu partout et je ne trouve rien pour comprendre !
Merci de ton assistance !
15/04/2019, 22h45
co_lac

Re bonsoir,

Suite à ta remarque j'ai solutionné partiellement mon problème en ajoutant (J - 1)!
J'en ai un autre, j'arrive à récupérer une valeur dans les textbox mais c'est la même dans tout les textbox et elle est égal à 0.00% telle que défini dans les formats des texte box " TextBox15 = Format(TextBox15.Value, "0.00%") "!
Quand je débugue en pas à pas et que je mets ma souris sur le text du ListSubItems(j-1)."text" qui doit s'écrire dans le textbox la valeur qui s'affiche est "8.687766404199469E-02" et cette valeur est pour tout les textbox la même!
Que dois je faire ?
Merci pour ton aide
16/04/2019, 07h12
unparia

Bonjour

Citation:

Que dois je faire ?

--->> ma réponse très franche --->>

reconsidérer de A à Z l'intérêt de ta démarche, qui consiste à vouloir alimenter 15 textboxes par des données figurant déjà ailleurs (ta listview). Et le faire systématiquement au chargement même de la listview.
Peux-tu nous en préciser la finalité ?

Mon aide personnelle est subordonnée à cette démonstration de l'utilité de la chose.
16/04/2019, 09h05
co_lac

Bonjour
Bonjour et merci pour ton aide,
Ma finalité est très simple:
J'ai une feuilles excel de la colonne "A" à "Av" soit beaucoup de colonnes avec toutes mes données. Je veux récupérer les données de la dernière colonne pour les mettre en tête de ma listview. Je pourrais le faire physiquement en déplaçant ma colonne, mais j'ai peur de tout chambouler l'organisation de mon userform !
Voila mon problème!
J'ai essayé en créant une 2ème listview qui affiche simplement cette colonne qui me pose problème, le résultat est bien sauf que j'ai des difficulté pour mettre les nombres au bon format %, je récupère un format scientifique…..
Si tu as des idées je suis preneur, j'ai heureusement du temps. j'ai découvert vba depuis peu et je me régale!
Merci
16/04/2019, 09h54
anasecu

Bonjour,

Citation:

Envoyé par co_lac

Je veux récupérer les données de la dernière colonne pour les mettre en tête de ma listview

Il te faut les mettre dans l'en-tête de la listview (ColumnHeaders)
https://silkyroad.developpez.com/VBA/ListView/

Excuse moi mais je ne comprends pas, je te mets le code! Merci

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
With Lv2
'Définit le nombre de colonnes et Entêtes
With .ColumnHeaders
'Supprime les anciens entêtes
    .Clear
'Ajoute 1 colonnes en spécifiant le nom de l'entête et la largeur des colonnes
    .Add , , "Ecart %", 65
End With
End With
    n = 1
With Me.Lv2
.ListItems.Clear
For Each D In Worksheets("Assurances").Range("C4:C19")
i = i + 1
 
(Ligne écrite avec mauvais format)
 
    .ListItems.Add , , Format(D(i, 1), "# ##0.00%")
 
(Les essais que j'ai fait qui ne marche pas!)
 
    '.ListItems.Add , , Format(D, "# ##0.00 %")
    '.ListItems(i).ForeColor = D.Font.Color
    '.ListItems(i).ListSubItems.Add , , Format(D.Offset(i, 1), "# ##0.00%")
    '.ListItems(i).ListSubItems.Add , , Format(rg.Offset(i, j) / 100, "0.00%")
    '.ListItems(i).ListSubItems.Add , , Format(D(i, 1), "# ##0.00%")
    '.ListItems(i).ListSubItems.Add , , Format(D(i, 1), "0.00")
 
' ( là ça remarche)
 
If D.Offset(i, 1) < 0 Then .ListItems(i).ListSubItems(1).ForeColor = RGB(255, 0, 0)
If D.Offset(i, 1) < 0 Then .ListItems(i).ListSubItems(1).Bold = False
 
Next D
 
End With
 
Lv2.View = lvwReport

16/04/2019, 11h52
co_lac

Je viens de mettre des conditions pour voir si le nombres sont numériques ou pas! Le problème est bien là!!!

Dans la colonne suite au remplissage de ma listview il remonte du texte et du numérique ?
Je n'arrive pas à me défaire du formatage scientifique! aussi bien dans le formatage de ma listview que par le formatage des cellules!
Comment faire?
Excuse moi d'abuser de ton temps mais je suis tétu "aussi"
Merci

Bonjour,

Citation:

Envoyé par co_lac

Dans la colonne suite au remplissage de ma listview

Pour initialiser ta listview il te faut une boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
With Lv2
'Définit le nombre de colonnes et Entêtes
    With .ColumnHeaders
    'Supprime les anciens entêtes
        .Clear
        Set cel = Worksheets("Assurances").Range("D4")
    'Ajoute 1 colonnes en spécifiant le nom de l'entête et la largeur des colonnes
        For j = 1 To 45
            .Add , , cel.Offset(j, 0).Value, 65
        Next j
    End With
End With

Pour afficher en pourcentage :

Code:

.ListItems.Add , , Format(D(i, 1), "0%")

j'ai essayé ton code mais il ne marche pas non plus, je te mets un bout du mien avec la boucle

Code:

1
2
3
4
5
6
7
8
9
10
For Each D In Worksheets("Assurances").Range("C4:C19")
Selection.NumberFormat = "General"
i = i + 1
'MsgBox "Passage" & i
 
    .ListItems.Add , , D
    .ListItems(i).ListSubItems.Add , , Format((D(i, 1)), "0%")
If D.Offset(i, 1) <= 0 Then .ListItems(i).ListSubItems(1).ForeColor = RGB(255, 0, 0)
If D.Offset(i, 1) < 0 Then .ListItems(i).ListSubItems(1).Bold = False
Next D

17/04/2019, 21h21
anasecu

Bonsoir,

Citation:

Envoyé par co_lac

j'ai essayé ton code mais il ne marche pas non plus, je te mets un bout du mien avec la boucle

Le code ne risque pas de "marcher" comme tu dis car il est totalement impossible de comprendre ton but.

En plus tu mets des informations dans l'élément 1 alors que tu viens d'insérer le zéro.

Avant d'essayer de mettre des couleurs vaudrait mieux de documenter la liste.