Discussion :

[boboz2]

salut,

je cherche un fichier qui sert a gerer un stock
je me sert que d'une feuille
dans A je met les code article
dans B la designation produit
dans C le stock minimum a avoir
dans D le stock actuel
dans E les besoin a venir dans le mois
et ds la F un calcul qui fait (C-D)+E.
je voudrais creer une macro qui teste ligne par ligne la colonne F , si celle ci a un chiffre superieur ou egale a 0, il copie le code article , la designation et la valeur de la cellule en colonne F.
tout cela apres je le collerais dans une fenetre que je ferais venir grace a un macro.

j'espere avoir ete clair.

merci d'avance
boboz2

[friends80]

bonjour,

tu nous dis ce que tu veux faire mais pas ce que tu n'arrives pas à faire!

D'autre part c'est dans une fenêtre que tu veux coller les infos? pas une autre feuille?

[boboz2]

je veut coller les infos dans une fenetre.
et ce que je n'arrive pas a faire c'est la macro qui teste ligne par ligne la colonne F , si celle ci a un chiffre superieur ou egale a 0, il copie le code article , la designation et la valeur de la cellule en colonne F.
voila merci d'avance
boboz2

[boboz2]

http://cjoint.com/?gwjrGbgMnX

voila un lien sur lequel il y a un fichier exemple.
je ne sais pas si je peut y arriver avec une formule c'est pour ca que je fait appel a votre aide.

j'espere que cela pourras vous aider

[morgan47]

héhé, peu etre que pour une fois je vais pouvoir aider ou lieu de demander
d'aprés tes message j'ai essayer de fair un petit code a mettre dans UserForm1:

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
Private Sub UserForm_Initialize()
 
Dim i As Integer
Dim j As Integer
Dim copy
 
i = 2
While Feuil1.Cells(i, 1) <> ""
i = i + 1
Wend
i = i - 1
j = 1
MsgBox i
While j <= i
 
If Cells(j, 6) >= 0 Then
UserForm1.lxtb1.ColumnCount = 1
UserForm1.lxtb1.BoundColumn = 1
MsgBox Cells(j, 1)
txt = Cells(j, 1)
UserForm1.lxtb1.AddItem txt
End If
j = j + 1
Wend
 
End Sub

ceci va te mettre dans une listbox la référence des articles ou la colonnes F est suppèrieur ou égale a 0.
voila j'espere que j'aurais peu un peu t'aider.

[boboz2]

le code que tu vient de me fournir ne marche pas , ca beug.
pour que tu puisse le tester tu va sur ce lien et tu peut telecharger le fichier.
http://cjoint.com/?gwjrGbgMnX
merci d'avance d'essayer
boboz2