Discussion :

[krobart301]

Bonsoir à tous,

Je débute en Excel VBA et je suis en train de faire une gestion de stock de produits d'entretien pour mon travail.
J'ai déjà réussi à créer le fichier fournisseurs, les contacts et l'ajout, la modification ou la suppression d'un produit dans le stock.

Je souhaiterais que si pour un produit, le stock est inférieur au seuil de commande, qu'une cellule me marque "A commander".
Je sais que c'est possible avec la mise en forme conditionnelle mais je souhaiterais que cela soit intégré au code VBA de mon projet car mon tableau de stock augmente ou diminue en fonction de l'ajout ou de la suppression d'un produit.

J'ai fait des recherches, il y a beaucoup de sujets là-dessus mais je n'arrive pas à trouver ce que je veux.

Si quelqu'un peut m'éclairer, merci d'avance.

[bboy-eazy]

Bonjour,


Il faut passer par une boucle dans le code et passer par une condition if then:

N'ayant pas plus d'info voilà le code à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub test
dim i as integer
with thisworkbook.worksheets("nom dela feuille")
for i = 1 to .Cells(Rows.Count, mettre le n° de la colonne).End(xlUp).Row 'pour i allant de 1 à la dernière ligne
if .Cells(i,n° col).value < mettre ici la cellule qui définit le seuil de commande  then
.Cells(i,n° col).value = "A Commander" 'adapter le n° col pour la colonne ou A commander devra être marquer
else
.Cells(i,n° col).value = ""
end if
next i
end with
end sub

[vinc_bilb]

Bonjour,

Et pensez Excel avant le VBA si vous voulez, donc

1.

je souhaiterais que cela soit intégré au code VBA de mon projet car mon tableau de stock augmente ou diminue en fonction de l'ajout ou de la suppression d'un produit

=> vous pouvez sauvegarder le range de votre tableau est appliquer la MFC dessus

2. Mieux: vous transformez votre tableau en table, Excel se charge de la propagation et de la mise à jour (formules, format, ....) tout seul

[krobart301]

@bboy-eazy et @ vinc_bilb
Merci pour vos réponses, je vais étudier tout ça et je vous tiendrais au courant. Merci beaucoup.