Erreur d'exécution 380: Invalid proprety value

**Mimiii_123** · 02/04/2019, 09h55

Bon, je débute sur vba, jai crée une listview qui me permet d'afficher 3 états du stock: critique confortable et urgent avec 3 couleurs differentes.*
Je bloque sur cette erreur: Erreur d'exécution 380: Invalid proprety value et on me dit impossible d'ouvrir le fichier mk:@MSKTStore:cmctl198.chm*

Merci d'avance pour votre aide

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
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
64
65
66
67
68
69
70
71
72
73
74
Private Sub UserForm_Initialize()
 
Dim i As Integer
Dim a As Integer
Dim tblBD As Range
Dim ligne As Integer
a = 6
Set principal = ThisWorkbook
 
Sheets("Liste des pièces").Select
Do While Range("C" & a) <> ""
 
If Range("J" & a).Value < Range("K" & a).Value Then
Range("AH" & a).Value = "CRITIQUE"
 
 ElseIf Range("J" & a).Value > Range("AG" & a).Value Then
 
Range("AH" & a).Value = "CONFORTABLE"
 
ElseIf Range("K" & a).Value < Range("J" & a).Value < Range("AG" & a).Value Then
Range("AH" & a).Value = "URGENT"
 
End If
 
 
a = a + 1
Loop
 
 
  With Me.ListView1
    With .ColumnHeaders
      .Clear
      .Add , , "Désignation", 112
      .Add , , "Référence", 112
      .Add , , "Quantité", 112
      .Add , , "Stock minimum", 112
      .Add , , "Point de Cmd", 112
      .Add , , "Etat du stock", 112
    End With
   .Gridlines = True
   ListView1.View = lvwReport
   tblBD = Range("A6:AH" & [A65000].End(xlUp).Row).Value
   ligne = 0
   For i = 1 To UBound(tblBD)
     ligne = ligne + 1
    .ListItems.Add , , tblBD(i, 1)  'désignation
    .ListItems(ligne).ListSubItems.Add , , tblBD(i, 3)    'Référence
    .ListItems(ligne).ListSubItems.Add , , tblBD(i, 10)   'Quantité
    .ListItems(ligne).ListSubItems.Add , , tblBD(i, 11)   'Stock mini
    .ListItems(ligne).ListSubItems.Add , , tblBD(i, 33)   'Point de commande
    .ListItems(ligne).ListSubItems.Add , , tblBD(i, 34)   'Etat du stock
  Next
 End With
 
 
  For x = 1 To ListView1.ListItems.Count
     If ListView1.ListItems(x).ListSubItems(5).Text = "CONFORTABLE" Then
        ListView1.ListItems(x).ListSubItems(5).ForeColor = RGB(0, 160, 0) 'vert
     End If
 
     If ListView1.ListItems(x).ListSubItems(5).Text = "CRITIQUE" Then
        ListView1.ListItems(x).ListSubItems(5).ForeColor = RGB(224, 96, 0) 'orange
     End If
 
     If ListView1.ListItems(x).ListSubItems(5).Text = "URGENT" Then
        ListView1.ListItems(x).ListSubItems(5).ForeColor = RGB(255, 0, 0) 'rouge
     End If
 
     If ListView1.ListItems(x).ListSubItems(5).Text = "" Then
        ListView1.ListItems(x).ListSubItems(5).ForeColor = xlNone
     End If
  Next x
 
End Sub

**unparia** · 02/04/2019, 10h22

Bonjour
Le code que tu montres-là utilise des membres totalement inconnus d'un contrôle Listview. Certains d'entre eux correspondent à un contrôle (msflexgrid) n'ayant absolument rien à voir avec une Listview ...

Je ne saurais par ailleurs jamais trop conseiller d'éviter d'utiliser des contrôlees non natifs de VBA/Excel (Listview n'est pas un contrôle natif de VBA).

**Mimiii_123** · 02/04/2019, 10h31

Salut est ce qu'il faut déclaré les variables ou quoi exactement? sinon j'en ai vraiment besoin d'utiliser la listeview vu que je veux obtenir des résultats qui dépendent des couleurs, donc la solution d'éviter la listeviex est exclu

**OrDonc** · 02/04/2019, 11h15

Envoyé par unparia

Je ne saurais par ailleurs jamais trop conseiller d'éviter d'utiliser des contrôlees non natifs de VBA/Excel (Listview n'est pas un contrôle natif de VBA).

unparia

, il est vrai que la portabilité de ce contrôle d’une version à une autre n’est guère prévue, mais dans un cas comme celui-ci …
L’erreur vient de

Code :

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

1
2
3
If ListView1.ListItems(x).ListSubItems(5).Text = "" Then
  ListView1.ListItems(x).ListSubItems(5).ForeColor = xlNone
End If

Remplace xlNone par vbBlack (noir) ou autre.
Mieux
- supprime ces 3 lignes
ou
- remplace, en faisant attention à la casse, la partie couleurs par

Code :

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

1
2
3
4
5
6
7
For x = 1 To ListView1.ListItems.Count
     Select Case ListView1.ListItems(x).ListSubItems(5)
       Case "CONFORTABLE": ListView1.ListItems(x).ListSubItems(5).ForeColor = VbGreen      'vert
       Case "CRITIQUE": ListView1.ListItems(x).ListSubItems(5).ForeColor = RGB(224, 96, 0) 'orange
       Case "URGENT": ListView1.ListItems(x).ListSubItems(5).ForeColor = VbRed             'rouge
     End Select
  Next

Edit : j’ai oublié de préciser que tblBD étant un tableau, remplace, la déclaration, Dim tblBD As Range par Dim tblBD()

**unparia** · 02/04/2019, 11h24

Bonjour ordonc

mais dans un cas comme celui-ci …
L’erreur vient de ..... etc ...

Pas uniquement. Chez moi, par exemple et entre autres, ma listview n'a pas de membre Gridlines
Tu n'as peut-être pas la même version de ce contrôle ...
Cette propriété (gridlines) existe bien sur les listviews, mais ... celles natives de VB.Net

EDIT : Mimiii_123 voudra bien (puisqu'il ne l'a pas fait) nous dire quelle est la première ligne dénoncée ... ?

**Mimiii_123** · 02/04/2019, 16h04

Envoyé par OrDonc

unparia

, il est vrai que la portabilité de ce contrôle d’une version à une autre n’est guère prévue, mais dans un cas comme celui-ci …
L’erreur vient de

Code :

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

1
2
3
If ListView1.ListItems(x).ListSubItems(5).Text = "" Then
  ListView1.ListItems(x).ListSubItems(5).ForeColor = xlNone
End If

Remplace xlNone par vbBlack (noir) ou autre.
Mieux
- supprime ces 3 lignes
ou
- remplace, en faisant attention à la casse, la partie couleurs par

Code :

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

1
2
3
4
5
6
7
For x = 1 To ListView1.ListItems.Count
     Select Case ListView1.ListItems(x).ListSubItems(5)
       Case "CONFORTABLE": ListView1.ListItems(x).ListSubItems(5).ForeColor = VbGreen      'vert
       Case "CRITIQUE": ListView1.ListItems(x).ListSubItems(5).ForeColor = RGB(224, 96, 0) 'orange
       Case "URGENT": ListView1.ListItems(x).ListSubItems(5).ForeColor = VbRed             'rouge
     End Select
  Next

Edit : j’ai oublié de préciser que tblBD étant un tableau, remplace, la déclaration, Dim tblBD As Range par Dim tblBD()

Salut j'ai essayé avec ça, j'ai obtenu un mauvais résultat au lieu de m'afficher les colonnes on 'affiche les lignes de la première colonne répartie sur les colonnes du tableau

**unparia** · 02/04/2019, 17h54

Envoyé par unparia

EDIT : Mimiii_123 voudra bien (puisqu'il ne l'a pas fait) nous dire quelle est la première ligne dénoncée ... ?

**OrDonc** · 02/04/2019, 19h44

re

Je n’aime pas travailler à l’aveuglette donc pour finir … le type d’affichage d'un tel contrôle est déterminé par ListView1.View = lvwReport (ce que tu avais au départ !).
Chez moi :

**Mimiii_123** · 03/04/2019, 10h09

Envoyé par OrDonc

re

Je n’aime pas travailler à l’aveuglette donc pour finir … le type d’affichage d'un tel contrôle est déterminé par ListView1.View = lvwReport (ce que tu avais au départ !).
Chez moi :

Salut, bah effectivement j'ai déclaré .View = lvwReport mais c'est pas la source du problème.
Voilà deux images qui illustrent le résultat obtenu chez moi.