[VBA Excel] - Copie Aléatoire de données entre 2 feuilles

Bonjour,

J'ai des données en feuille 1 présentées comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Zone 1 : A B C Qté Désignation Prix 1 XXX 0 XX 2 xxxx   Zone 2 :   Qté Désignation Prix 0 XX 0 XX 1 XXX

---

J'aimerais recopier en feuille 2 les données où Qté est différent de 0. Quelqu'un peut-il m'aider svp ?

En feuille 2 tu copie les ligne de feuille 1 où Qté différent 0 c'est bien ca?

Si c'est ca rien de dur... tu parcours la colonne 1 de ta feuille 1, si elle vaut 0 alors tu copie dans feuille 2. pour savoir la premiere ligne libre de ta feuille 2 utilise :

Code:

---

Selection.End(xlDown).Row + 1

---

(que tu adaptes)

ca te renvoi la premiere ligne libre (attention si tu n'a aucune ligne utilisée il te met une erreur).

Bref pas super compliqué commence à nous faire un peu de code et reviens si ca bloque :D

Voici le code que je tape :

Code:

---

1 2 3 4 5 6 7 8 9

For Each objCell In ThisWorkbook.Worksheets("Tab1").Range("B80:B86") If objCell.Value <> 0 Then objCell.Select Selection.Copy Workbooks("Tab1.xls").Worksheets("Bon de cde").Select Workbooks("Tab1.xls").Worksheets("Bon de cde").Range("A23").Select ActiveSheet.Paste End If Next

---

Si une seule cellule n'est pas vide ça marche. Si je remplis 2 cellules, ça plante...
De plus, je teste la cellule A1 par exemple, mais ce que je veux récopier c'est d'abord B1 puis après A1...Comment faire ?

Pense à mettre les balises "Code". Sélection du code, un clic sur #
Balises ajoutées par ouskel'n'or