Discussion :

[jlppap]

Bonjour,
j'ai créé un fichier TEST.xls sous Excel 2003 comportant 2 feuilles (F1 et F2)

Sur la feuille F1 j'ai des données sur plusieurs colonnes et lignes.
j'ai aussi créé une macro pour récupérer certaines cellules afin de les copier sur la feuille F2.

Sur la feuille F2, qui va me servir pour l'impression, je devrais donc avoir tous mes articles.
Mon pb est que j'écris bien sur la feuille F2, mais TOUJOURS sur la même ligne au lieu de passer à la ligne suivante, ce qui est très embétant !

je précise que je n'y connait pas grand chose en VB.

MERCI pour aide précieuse.

[Fvandermeulen]

Bonjour,
J'ai fais quelques changements qui, je pense, répondent à ta question.
Par contre j'ai changé la syntaxe des "[feuil2!a..." car j'ai pas trop l'habitude de les utiliser donc j'allais perdre du temps.

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
27
28
Sub imp_invent()
    Dim lig As Long
    Dim r As Long
    Dim LigC As Long
 
LigC = 8 'référence pour l'incrémentation dans la boucle
    For lig = 2 To [FEUIL1!b20000].End(xlUp).Row
        If Cells(lig, 1) > 0 Then
           'test même feuille -OK- Cells(lig, 10) = Cells(lig, 6)
 
'-- comment faire pour écrire sur la ligne suivante de la feuille FEUIL2 --
'-- il faudrait incrémenter les lignes à partir de la ligne 9 --
 
LigC = LigC + 1
            Sheets("feuil2").Cells(LigC, 1) = Cells(lig, 1)
            Sheets("feuil2").Cells(LigC, 2) = Cells(lig, 2)
            Sheets("feuil2").Cells(LigC, 5) = Cells(lig, 5)
            '[FEUIL2!a & LigC] = Cells(lig, 1)
            '[FEUIL2!b & ligC] = Cells(lig, 2)
            '[FEUIL2!f & ligC] = Cells(lig, 5)
        End If
    Next
 
 
' --- aprecu avant impression ---
    Sheets("FEUIL2").Select
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

[jlppap]

Bonjour,

et un GRAND MERCI, c'est PARFAIT.

Bonne fin de semaine.