Discussion :

[ethan64]

Bonjour,

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

Code :

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

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 ?

[Elstak]

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 :

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

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

[ethan64]

Voici le code que je tape :

Code :

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

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