Discussion :

[co_lac]

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

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

[anasecu]

Bonjour,

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

[co_lac]

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 !

[co_lac]

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

[unparia]

Bonjour

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.

[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