Copier les données d'une ligne si la variable a une valeur donnée

[Unknown_dev]

Bonjour à tous,

Je souhaiterais créer un tableur ( pour le travail) qui nous donne automatiquement une liste de matériel à commander.

Nous avons donc un tableur avec l'inventaire du matériel et si la quantité de pièce à commander n'est pas égal à 0 je voudrais qu'il copie les données de la ligne dans un autre tableur.

Pour l'instant j'y arrive avec une condition mais comme la liste est longue j'aimerais boucler cette condition.
Avec la While Wend il me sort qu'une ligne il faut donc utilisé la boucle for each mais je ne sais pas quel élément ni quel ensemble définir.

Auriez-vous une idée ? ( Je pense que je ne suis pas le premier à développer ce genre de tableur )

Merci

 

[Unknown_dev]

Re : Copier les données d'une ligne si la variable a une valeur donnée

J'ai ce code de test qui fonctionne actuellement

Sub commande()

Dim Cell As Range





For Each Cell In [G2:G40]


If Cell > 0 Then

MsgBox "ok"




Next
End Sub

 

[titiborregan5]

Re : Copier les données d'une ligne si la variable a une valeur donnée

Salut unknown_dev, le forum,

avec un fichier c'est souvent plus parlant...

tu peux par exemple faire comme ceci:

 for i = 2 to 40 'correspond à ta plage de cellules g2:g40
if cells(i,8).value>0 then
rows(i).copy destination:=sheets(2).range("a65000").end(xlup).offset(1,0)
end if
next

A+

 

[Unknown_dev]

Re : Copier les données d'une ligne si la variable a une valeur donnée

Merci je vais essayer ça me semble beaucoup mieux 😀.

J'ai mis le fichier en pièce jointe le code est dans le module 1.

 

[titiborregan5]

Re : Copier les données d'une ligne si la variable a une valeur donnée

Tu peux aussi faire un filtre avancé alors dans ce cas, ce sera encore plus simple et plus rapide (données/ filtre avancé)!
relié à une macro ça donne le fichier joint!
a+

 

[Unknown_dev]

Re : Copier les données d'une ligne si la variable a une valeur donnée

Je viens de voir ton travail c'est vraiment excellent merci !!! 😀 ça m'avance beaucoup je vais m'en inspirer encore une fois merci.

 

[titiborregan5]

Re : Copier les données d'une ligne si la variable a une valeur donnée

La base, en dehors de la macro, c'est la fonction filtre avancé!!!