Discussion :

[grisan29]

bonjour a vous tous du forum

dans un usf j'ai une lisbox qui m'affiche mes articles sur 5 colonnes et la dernière est la quantité

donc un commentaire peut'il s'afficher dans cette lisbox type "le stock mini de l'article arrive "

quand la qté de l'article sélectionné approche a +1 par rapport au seuil imposé

est cela possible???

merci d'avance

Pascal

[casefayere]

Bonjour,
et si tu ajoutes une colonne à l'USF :

exemple : données de a2 à E2, un seuil à 5

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
Private Sub UserForm_Initialize()
Dim cel As Range, plage As Range, seuil As Long
Dim x As Long
x = Range("a" & Rows.Count).End(xlUp).Row
seuil = 5
Set plage = Range("A2", "a" & x)
For Each cel In plage
   With UserForm1.ListBox1
      .AddItem cel
      .Column(1, .ListCount - 1) = cel.Offset(0, 1)
      .Column(2, .ListCount - 1) = cel.Offset(0, 2)
      .Column(3, .ListCount - 1) = cel.Offset(0, 3)
      .Column(4, .ListCount - 1) = cel.Offset(0, 4)
      If cel = seuil + 1 Then
      .Column(5, .ListCount - 1) = "le seuil approche"
      End If
   End With
Next cel
 
End Sub