Formule "SI" et mise en forme cellule LISTVIEW

**fidecourt** · 25/03/2009, 15h53

Bonjour à tous,

j'ai une ListView avec 9 colonnes dont la première est :
Référence article
Désignation
etc...
QTE en STOCK en colonne 3 qui correspond à la col "Q" de ma feuille soit la col (17)
je voudrais lorsque la qté est à 0, que la ligne de la listview soit en rouge pour attirer l'attention
Ma question est il possible de mettre une formule dans une listview ? et comment cela se place-t-il ?
d'avance merci pour vos réponses
==============
Voici le code pour plus de clarté :

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
Private Sub UserForm_Initialize()
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Référence", 100
       .Add , , "Désignation", 250
       .Add , , "Qté en stock", 70, (2) 'alignement de la col est au centre (2)
       .Add , , "Prix Vente HT", 70, (1) 'alignement de la col est à droite (1)
       .Add , , "Durée", 70, (1)
       .Add , , "Poids MA", 70, (1)
       .Add , , "Calibre", 70, (1)
       .Add , , "Type", 100, (1)
       .Add , , "Fournisseur", 100, (1)
    End With
 .Gridlines = True
  For i = 2 To Sheets("STOCK").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("STOCK").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 17)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 12), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 7)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 4)
 Next: End With
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("T2").Value, "## ##0.00 €")
 
End Sub

**laetitia** · 25/03/2009, 19h50

re fidecourt le forum je suis reste sur l exemple du post precedent donc la colonne designation dailleurs sur l autre post je viens de repondre pour ton pb... de recherche

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
Private Sub UserForm_Initialize()
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Référence", 100
        .Add , , "fournisseur", 100, (2)
       .Add , , "Désignation", 150, (2)
       .Add , , "Prix public", 110, (2)
       .Add , , "Valeur Stock Totale", 110, (2)
    End With
 .Gridlines = True
  For i = 2 To Sheets("STOCK").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("STOCK").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 4), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 6), "## ##0.00 €")
  If Sheets("STOCK").Cells(i, 3) > 0 Then
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF0000
             Else
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF
             End If
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("g2").Value, "## ##0.00 €")
Next: End With
 End Sub

**fidecourt** · 26/03/2009, 10h25

c'est tout à fait cela que je cherchais
encore merci !

**fidecourt** · 26/03/2009, 12h16

Bonjour,

j'ai appliqué la condition suivant modèle de Laeticia, et si cela fonctionnait parfaitement avec mon premier formulaire dont voici le code :

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
Private Sub UserForm_Initialize()
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Référence", 100
       .Add , , "Désignation", 250
       .Add , , "Qté en stock", 70, (1) 'alignement de la col est au centre (2)
       .Add , , "Prix Vente HT", 70, (1) 'alignement de la col est à droite (1)
       .Add , , "Durée", 70, (1)
       .Add , , "Poids MA", 70, (1)
       .Add , , "Calibre", 70, (1)
       .Add , , "Type", 100, (1)
       .Add , , "Fournisseur", 100, (1)
    End With
 .Gridlines = True
  For i = 2 To Sheets("STOCK").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("STOCK").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 17)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 12), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 7), "# ##0.000")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 2)
If Sheets("STOCK").Cells(i, 17) > 0 Then
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &H4040
             Else
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF
               .ListItems(.ListItems.Count).ListSubItems(2).Bold = True
             End If
 Next: End With
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("T2").Value, "## ##0.00 €")
PTMAinf500gr = Format(Sheets("STOCK").Range("U2").Value, "## ##0.000")
PTMAsup500gr = Format(Sheets("STOCK").Range("V2").Value, "## ##0.000")
PMATOTAL = Format(Sheets("STOCK").Range("W2").Value, "## ##0.000")
 
 
End Sub

================================

cela ne fonctionne plus avec mon second formulaire dont le code de la listview est différent
j'ai une erreur d'exécution

1004 à chaque fois, et je ne vois pas où est le problème ?

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
Private Sub UserForm_Initialize()
 
'Suppression des titres de colonnes
LvwFour.ColumnHeaders.Clear
 
'Alimentation des titres de colonne :
'Titre de la colonne  : "Référence",
'Largeur de la colonne :  lvwFour.Width * 0.3, ou Nbre par ex. 100
'Alignement de la colonne : lvwColumnLeft ou rien pour gauche, (1) pour droit, (2) pour centrer
 
LvwFour.ColumnHeaders.Add , , "Fournisseur", 100
LvwFour.ColumnHeaders.Add , , "Référence", 100
LvwFour.ColumnHeaders.Add , , "Désignation", 250
LvwFour.ColumnHeaders.Add , , "Qté en Stock", 70, (1)
LvwFour.ColumnHeaders.Add , , "Prix Vente HT", 70, (1)
LvwFour.ColumnHeaders.Add , , "Durée", 70, (1)
LvwFour.ColumnHeaders.Add , , "Poids MA", 70, (1)
LvwFour.ColumnHeaders.Add , , "Calibre", 70, (1)
LvwFour.ColumnHeaders.Add , , "Type", 100, (1)
 
 
Dim iLigArticle As Integer
iLigArticle = 2
 
'Suppression des éléments de la liste
LvwFour.ListItems.Clear
 
While Workbooks("STOCK.xls").Sheets("FOURNISSEURS").Cells(iLigArticle, 1) <> ""
 
    'Alimentation des éléments de la liste
    LvwFour.ListItems.Add iLigArticle - 1, , Sheets("FOURNISSEURS").Cells(iLigArticle, 1)
    LvwFour.ListItems(iLigArticle - 1).SubItems(1) = Sheets("FOURNISSEURS").Cells(iLigArticle, 2)
    LvwFour.ListItems(iLigArticle - 1).SubItems(2) = Sheets("FOURNISSEURS").Cells(iLigArticle, 3)
    LvwFour.ListItems(iLigArticle - 1).SubItems(3) = Sheets("FOURNISSEURS").Cells(iLigArticle, 17)
    LvwFour.ListItems(iLigArticle - 1).SubItems(4) = Format(Sheets("FOURNISSEURS").Cells(iLigArticle, 12), "## ##0.00 €")
    LvwFour.ListItems(iLigArticle - 1).SubItems(5) = Sheets("FOURNISSEURS").Cells(iLigArticle, 6)
    LvwFour.ListItems(iLigArticle - 1).SubItems(6) = Sheets("FOURNISSEURS").Cells(iLigArticle, 7)
    LvwFour.ListItems(iLigArticle - 1).SubItems(7) = Sheets("FOURNISSEURS").Cells(iLigArticle, 5)
    LvwFour.ListItems(iLigArticle - 1).SubItems(8) = Sheets("FOURNISSEURS").Cells(iLigArticle, 4)
    iLigArticle = iLigArticle + 1
 
Wend
   If Sheets("FOURNISSEURS").Cells(i, 17) > 0 Then
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).ForeColor = &H4040
             Else
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).ForeColor = &HFF
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).Bold = True
             End If
 
End Sub

=====================
Que peut il se passer ?
Merci pour votre aide

**laetitia** · 26/03/2009, 12h31

rebonjour fidecourt le forum comme cela brute!! pas facile essai de deplacer
Wend juste avant end sub pour voir.

**fidecourt** · 26/03/2009, 12h54

rebonjour Laeticia,

j'ai déjà fait le test mais c'est identique que je mette le if avant ou après le Wend !

**laetitia** · 26/03/2009, 13h34

re, envoi un bout de fichier je regarderais en fin de journee a+

**fidecourt** · 26/03/2009, 18h12

Bonsoir Laeticia,

voici le bout de code pour voir si tu arrives à trouver la solution

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
Private Sub UserForm_Initialize()
 
'Suppression des titres de colonnes
LvwFour.ColumnHeaders.Clear
 
'Alimentation des titres de colonne :
'Titre de la colonne  : "Référence",
'Largeur de la colonne :  lvwFour.Width * 0.3, ou Nbre par ex. 100
'Alignement de la colonne : lvwColumnLeft ou rien pour gauche, (1) pour droit, (2) pour centrer
 
LvwFour.ColumnHeaders.Add , , "Fournisseur", 100
LvwFour.ColumnHeaders.Add , , "Référence", 100
LvwFour.ColumnHeaders.Add , , "Désignation", 250
LvwFour.ColumnHeaders.Add , , "Qté en Stock", 70, (1)
LvwFour.ColumnHeaders.Add , , "Prix Vente HT", 70, (1)
LvwFour.ColumnHeaders.Add , , "Durée", 70, (1)
LvwFour.ColumnHeaders.Add , , "Poids MA", 70, (1)
LvwFour.ColumnHeaders.Add , , "Calibre", 70, (1)
LvwFour.ColumnHeaders.Add , , "Type", 100, (1)
 
 
Dim iLigArticle As Integer
iLigArticle = 2
 
'Suppression des éléments de la liste
LvwFour.ListItems.Clear
 
While Workbooks("STOCK.xls").Sheets("FOURNISSEURS").Cells(iLigArticle, 1) <> ""
 
    'Alimentation des éléments de la liste
    LvwFour.ListItems.Add iLigArticle - 1, , Sheets("FOURNISSEURS").Cells(iLigArticle, 1)
    LvwFour.ListItems(iLigArticle - 1).SubItems(1) = Sheets("FOURNISSEURS").Cells(iLigArticle, 2)
    LvwFour.ListItems(iLigArticle - 1).SubItems(2) = Sheets("FOURNISSEURS").Cells(iLigArticle, 3)
    LvwFour.ListItems(iLigArticle - 1).SubItems(3) = Sheets("FOURNISSEURS").Cells(iLigArticle, 17)
    LvwFour.ListItems(iLigArticle - 1).SubItems(4) = Format(Sheets("FOURNISSEURS").Cells(iLigArticle, 12), "## ##0.00 €")
    LvwFour.ListItems(iLigArticle - 1).SubItems(5) = Sheets("FOURNISSEURS").Cells(iLigArticle, 6)
    LvwFour.ListItems(iLigArticle - 1).SubItems(6) = Sheets("FOURNISSEURS").Cells(iLigArticle, 7)
    LvwFour.ListItems(iLigArticle - 1).SubItems(7) = Sheets("FOURNISSEURS").Cells(iLigArticle, 5)
    LvwFour.ListItems(iLigArticle - 1).SubItems(8) = Sheets("FOURNISSEURS").Cells(iLigArticle, 4)
    iLigArticle = iLigArticle + 1
 
Wend
   If Sheets("FOURNISSEURS").Cells(i, 17) > 0 Then
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).ForeColor = &H4040
             Else
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).ForeColor = &HFF
               LvwFour.ListItems(iLigArticle - 1).ListSubItems(3).Bold = True
             End If
 
End Sub

bonne soirée

**laetitia** · 26/03/2009, 18h32

re au premier abord comment tu determine la variable i puis le 17 si tu as 9 colonne a moins que ta base contrairement a l autre ne partes de la colonne a jusqu a f
ou commencent ta base de donnees ou elle se termine c est pas forcement comme l autre post???

ps je pense avoir compris je regarde ce soir a+

**fidecourt** · 26/03/2009, 19h19

C'est une base identique puisque c'est la copie de la base articles triés par fournisseur
j'ai :

une feuille "STOCK" tous les arts triés par ref
une feuille "FOURNISSEURS" tous les arts triés par fournisseurs afin d'obtenir la Listview LvwFour

ainsi sur mon formulaire je peux visualiser le stock

soit par référence article
soit par fournisseur

est ce plus clair pour toi ?

**laetitia** · 26/03/2009, 22h03

re, si jai compris!!

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
Private Sub UserForm_Initialize()
With LvwFour
    With .ColumnHeaders
       .Clear
       .Add , , "Fournisseur", 100
        .Add , , "Référence", 100
       .Add , , "Désignation", 250
       .Add , , "Qté en Stock", 70, (1)
       .Add , , "Prix Vente HT", 70, (1)
       .Add , , "Durée", 70, (1)
       .Add , , "Poids MA", 70, (1)
       .Add , , "Calibre", 70, (1)
       .Add , , "Type", 100, (1)
        End With
.Gridlines = True
 For i = 2 To Sheets("FOURNISSEURS").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("FOURNISSEURS").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 17)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("FOURNISSEURS").Cells(i, 12), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 7)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("FOURNISSEURS").Cells(i, 4)
    If Sheets("FOURNISSEURS").Cells(i, 17) > 0 Then
    .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &HFF0000
     Else
    .ListItems(.ListItems.Count).ListSubItems(3).ForeColor = &HFF
    .ListItems(.ListItems.Count).ListSubItems(3).Bold = True
    End If: Next: End With
 End Sub

**fidecourt** · 27/03/2009, 10h03

Merci Laeticia,

c'est ça, ta façon de déterminer la listview est la bonne, de cette façon, tout fonctionne impec !
encore merci pour ton aide fructueuse
j'ai enfin pu faire ce que je souhaitais avec mes listview
je suis admirative de ton savoir en VBA, peut être que moi aussi un jour qui sait....
très bonne journée

Formule "SI" et mise en forme cellule LISTVIEW

Macros et VBA Excel

Discussions similaires

Partager

Partager