Action si selection d'une ligne d'une listview

Version imprimable

Bonjour,
J'ai une list view avec plusieurs lignes et je souhaiterais qu'un graphique apparaisse, dans une zone image unique, selon la ligne sélectionnée, si ligne 1, le graphique 1 apparaisse ect.
J'ai un code qui affiche uniquement si la dernière condition est remplie, cela ne marche pas pour les lignes précédentes.
Pourriez-vous y jeter un coup d'œil?

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
Private Sub UserForm_Initialize()
Set LeGraph1 = Sheets("Répartition financeurs").ChartObjects(1).Chart
  NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp1.gif"
  LeGraph1.Export Filename:=NomImage, FilterName:="GIF"
Set LeGraph2 = Sheets("Répartition financeurs").ChartObjects(2).Chart
  NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"
  LeGraph2.Export Filename:=NomImage2, FilterName:="GIF"
  Set LeGraph3 = Sheets("Répartition financeurs").ChartObjects(3).Chart
  NomImage3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif"
  LeGraph3.Export Filename:=NomImage3, FilterName:="GIF"
End Bub
 
Private Sub ListView1_Click()
    If ListView1.ListItems(1).Selected = True Then _
  NomImage1 = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
  Me.Image1.Picture = LoadPicture(NomImage1)
 
     If ListView1.ListItems(2).Selected = True Then _
  NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"
    Me.Image1.Picture = LoadPicture(NomImage2)
 
     If ListView1.ListItems(3).Selected = True Then _
  NomImage3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif"
    Me.Image1.Picture = LoadPicture(NomImage3)
 
End Sub

29/03/2023, 14h52
Valtrase

Salut,
Je trouve ce code trop restrictif, si tu changes les chemins ou images tu dois réécrire le code.
Pourquoi ne pas ajouter une colonne cachée avec le noms des images que tu chargerais depuis un TS par exemple, il ne te reste plus qu' a faire une seule procédure pour l'ensemble des lignes.
De plus un coup c'est nommé "temp.gif" et un coup "temp1.gif" ...
29/03/2023, 15h16
Toro74

Bonjour Valtrase,
Merci pour ce retour rapide,
Les images sont générées directement depuis le tableur et enregistrées dans le fichier parent du tableur, c'est des graphiques issus du tableau source du list view. J'avais pensé essayer de faire une boucle mais les graphiques ne sont pas nommés dans le bon ordre.
S'il y a un autre moyen plus propre et qui marche je suis preneur, il faut que j'ajoute le nom de chaque graphique dans une dernière colonne et fasse une boucle?

Salut,
Ne serait-il pas mieux d'écrire tes boucles de test de façon à exclure les 2 autres boucles quand l'une des 3 est vraie ? Ou alors pour toi les 3 peuvent être vraies ? Si ce n'est pas le cas, tu pourrais peut-être essayer:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListView1_Click()
    If ListView1.ListItems(1).Selected = True Then
        NomImage1 = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
        Me.Image1.Picture = LoadPicture(NomImage1)
    ElseIf ListView1.ListItems(2).Selected = True Then
        NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"
        Me.Image1.Picture = LoadPicture(NomImage2)
    ElseIf ListView1.ListItems(3).Selected = True Then
        NomImage3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif"
        Me.Image1.Picture = LoadPicture(NomImage3)
    End If
End Sub

Hello,
Citation:
Envoyé par Toro74
J'ai un code qui affiche uniquement si la dernière condition est remplie, cela ne marche pas pour les lignes précédentes.
Pourriez-vous y jeter un coup d'œil?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub ListView1_Click() If ListView1.ListItems(1).Selected = True Then _ NomImage1 = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" Me.Image1.Picture = LoadPicture(NomImage1) If ListView1.ListItems(2).Selected = True Then _ NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif" Me.Image1.Picture = LoadPicture(NomImage2) If ListView1.ListItems(3).Selected = True Then _ NomImage3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif" Me.Image1.Picture = LoadPicture(NomImage3) End Sub
En fait c'est normal que tu ais un problème car tu n'as pas de mis de End If sur tes If alors seule l'instruction après le then est effectuée si la condition est vraie. Cela veut dire que toutes tes instructions Me.Image1.Picture = sont effectuées et c'est la dernière effectuée qui affiche l'image celle avec NomImage3. La solution à Franc enlève ce problème.

Ami calmant, J.P

03/04/2023, 11h54
Toro74

Bonjour Franc, jurassic pork
Merci beaucoup pour vos propositions, effectivement la solution de Franc fonctionne, c'est top!
Je n'ai pas eu de notification pour vos messages, donc je ne pensais pas avoir d'autre réponse, je suis repassé par hasard et j'ai bien fait, :D