Bonjour à tous
Je voudrais copier les données d'une page à une autre.
J'ai utilisé ce code:
Private Sub CommandButton1_Click()
Dim k As Long
k = 0
For k = 1 To 65530
Workbooks("Classeur2.xls").Worksheets("Feuil1").Cells(k, 1) = Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(k, 1)
Exit For
Next
End Sub
Le k ne s'incrémente pas. Et voici les fichiers.
Est ce que quelqu'un aurait une idée pour l'opération s'effectue sur une colonne complète ?
Merci d'avance.
Bonne journée.
Loic
Je voudrais copier les données d'une page à une autre.
J'ai utilisé ce code:
Private Sub CommandButton1_Click()
Dim k As Long
k = 0
For k = 1 To 65530
Workbooks("Classeur2.xls").Worksheets("Feuil1").Cells(k, 1) = Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(k, 1)
Exit For
Next
End Sub
Le k ne s'incrémente pas. Et voici les fichiers.
Est ce que quelqu'un aurait une idée pour l'opération s'effectue sur une colonne complète ?
Merci d'avance.
Bonne journée.
Loic