Discussion :

[NEC14]

Bonjour le forum,

Dans le fichier joint, j'ai un tableau Excel où sont inscrit les chiffres concernant une gestion de stock.
Dans la colonne G se trouve le stock restant.
Je souhaiterai à l'aide de Vba et de la vôtre, mettre en place un message d'alerte lorsqu'un chiffre est inférieur à 20 et cela dès l'ouverture du fichier.
Il faudrait que dans ce message figure, l'intitulé de la colonne A et de la colonne B se trouvant sur la même ligne que le chiffre inférieur à 20.

Merci par avance

[Godzestla]

Salut NEC,

tu fais quoi quand tu as plus d'une ligne correspondant au critère ?
(Dans ton exemple, toute la colonne G est à 0 )

[NEC14]

C'est une bonne question.
Dans mon exemple tout est à zéro car je n'ai pas encore les chiffres du stock.
Pour répondre à ta question, et si cela est possible, il serait super que cela apparaisse dans le même message.

Du style "Attention : Stock insuffisant pour les produits suivants :
- ACEA - Billet unique
- Ciné Bank Location - Le ticket"
Ceci n'est qu'un exemple d'idée, si cela est réalisable.
Merci

[NEC14]

Bonjour ouske'l'nor,

Ce qui m'intéresse c'est l'intitulé des données se trouvant dans les colonnes A et B.

Sinon, concernant ton code, je le met où ? Je pensais le mettre dans ThisWorkBook dès l'ouverture du fichier, qu'en penses-tu ?

[Godzestla]

Code :

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

1
2
         If Tablo(i, 1) < 20 Then MsgBox "t'as ça " & Tablo(i,1) & " à la ligne " & i & _
             vbcrlf & "épi ça " &  Worksheets("Feuil1").Cells(i,2).value & " sur la colonne B"

Et Ousk, à Caen, ils ne parlent pas le Chti.

[ouskel'n'or]

Hello Nec (salut Goodzelda...)
Teste mon code sur des données existantes. Je dois m'absenter alors si ça ne va pas, Godzestla saura t'aider, il a visiblement réussi à traduire la ligne de code qui dit tout
Bon après-midi

[Godzestla]

C'est une bonne question.
Dans mon exemple tout est à zéro car je n'ai pas encore les chiffres du stock.
Pour répondre à ta question, et si cela est possible, il serait super que cela apparaisse dans le même message.

Du style "Attention : Stock insuffisant pour les produits suivants :
- ACEA - Billet unique
- Ciné Bank Location - Le ticket"
Ceci n'est qu'un exemple d'idée, si cela est réalisable.
Merci

Si c'était pour moi, je le ferais autrement, du genre, mettre en couleur tous les stock insuffisants et afficher un message à l'ouverture pour dire que les stock en couleurs sont insuffisant puis afficher une page avec un filtre élaboré où on ne verrait que les articles avec stock faible.

Car ton message, une fois cliqué ok .... tu as oublié la moitié.

mais ce n'est pas pour moi.

[ouskel'n'or]

Hello,
Tu veux réellement l'intitulé de colonne ou les données figurant dans les cellules colonnes A et B de la fameuse ligne ?

Il faudrait que dans ce message figure, l'intitulé de la colonne A et de la colonne B se trouvant sur la même ligne que le chiffre inférieur à 20.

Pour parcourir ta colonne A tu peux parcourir ta plage de cellules de la colonne avec For each cell in plage... Next, et tester la valeur de cell.
Mais tu as une autre méthode plus rapide consistant à travailler sur la plage de données en tant que tableau à deux dimensions

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Tablo As Variant
     Tablo = Worksheets("Feuil1").Range("A1:A" & Split(Worksheets("Feuil1").UsedRange.Address, "$")(4)).Value
     For i = 1 To UBound(Tablo)
          If Tablo(i, 1) < 20 Then MsgBox "t'as ça " & Tablo(i,1) & " à la ligne " & i & _
             vbcrlf & "épi ça " &  Worksheets("Feuil1").Cells(i,2).value & " sur la colonne B"
     Next
End Sub

Dans le tableau ci-dessus, la seconde dimension représente la colonne (unique dans ce cas) de ta plage de données.
Bon après-midi