Discussion :

[adelnikov]

Bonjour à vous amis codeurs, j'ai quelques soucis avec le bout de code suivant:

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
29
30
31
 
Private Sub CopieExport(Mois As Integer)
 
    Dim myCell As Range
    Dim myRange As Range
 
   ' myRange = Worksheets("Handover").Cells(Range("65536", "1").End(xlUp).Row)
 
 
    'Parcour toutes les lignes du classeur handover
    For Each myCell In Sheets("Handover").Range("A2:A12")   '!!!!!!!!!! Changer la RANGE pour RANGE dynamique
        'Test si la ligne fait partie du mois sélectionner
        If Month(myCell.Value) - Mois = 0 Then
             'Oui
             'myCell.EntireRow.Copy Sheets("Export").Cells(Range("C65536").End(xlUp).Row + 1, 1)   'Copie la sélection & la colle sur la derniere ligne libre de la  feuille Export
             'myCell.EntireRow.Copy Sheets("Export").Cells(Range("A2").End(xlDown).Row + 1, 1)   'Copie la sélection & la colle sur la derniere ligne libre de la  feuille Export
             'myCell.EntireRow.Copy Sheets("Export").Cells(Range("A65536").End(xlUp).Row + 1, 1)  'Copie la sélection & la colle sur la derniere ligne libre de la  feuille Export
             'myCell.EntireRow.Copy Sheets("Export").Cells(Rows.Count, ActiveCell.Column).End(xlUp)
            'Sheets("Export").Range("C65536").End(xlUp).Select
            'Cells(Sheets("Export").Range("A2").CurrentRegion.EntireRow.Count + 1, 1).Select     'Selection de la 1ère ligne vierge, 1ere colonne
             'ActiveCell.Paste  'Colle la sélection
             'ActiveCell.Offset(1, 0).Select     'Selectionne ligne vide suivante pour prochaine copie
             myCell.EntireRow.Copy Sheets("Export").[A2].End(xlDown)
 
        Else
            'Non
        End If
 
    Next
 
End Sub

Les lignes en commentaires à la suite sont redondantes, ce sont les différents essaies que j'ai fait.
Mon problème est que au lieu de copier les infos sur une nouvelle ligne à chaque tour de boucle, ça m'écrase l'ancienne ligne. Si quelqu'un voit mon erreur qu'il me fasse signe .
Merci d'avance.

[fring]

Bonsoir,

Code :

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

myCell.EntireRow.Copy Sheets("Export").[A2].End(xlDown)(2)

ou

Code :

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

myCell.EntireRow.Copy Sheets("Export").[A2].End(xlDown).Offset(1, 0)

End(xlDown) = dernière ligne occupée, il faut donc ajouter un décalage d'une ligne

Afin d'éviter des problèmes en cas de lignes intermédiaires vides, il vaut mieux le faire dans l'autre sens

Code :

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

myCell.EntireRow.Copy Sheets("Export").[A65535].End(xlUp)(2)

[adelnikov]

Bonsoir,

End(xlDown) = dernière ligne occupée, il faut donc ajouter un décalage d'une ligne

Oki mon erreur se trouvait là, je croyait que je pointait la dernière ligne libre ^^
Merci t'es un boss