je souhaiterais importer des données d'une feuille à une autre dans un même classeur excel.
J'ai une liste de données (feuille "List" en colonne A) que je souhaiterais importer dans une feuille "Copy" Ligne 2.
J'aimerais importer ces données en ligne mais avec un pas de 2, autrement dit toutes les 2 cellules.
Mon problème est qu'avec la macro que j'ai réalisé, je n'importe que la dernière donnée de la colonne A.
Je n'arrive pas bien à gérer le "Next" dans le code.
Je vous laisse voir dans le fichier, vous comprendrez sans doute mieux.
Je vous remercie d'avance pour vos réponses.
Sub test()
Set g = Sheets("List")
Set f = Sheets("Copy")
For i = 1 To Range(g.[A1], g.[A65000].End(xlUp)).Rows.Count
f.Cells(2, i * 2 - 1) = g.Cells(i, 1)
Next i
End Sub
A+
[Edit] bonjour francedemo.
P.S. personne ne grille personne ici, c'est pas une compétition
bonjour,
avec ça, ça marche chez moi
(nota: je préfère toujours mettre un "Option Explicit" en tête de module, ça évite pas mal de loupés)
Code:
Option Explicit
Sub test()
Dim F As Worksheet
Dim j As Integer
Set F = Sheets("Copy")
With Sheets("List")
For j = 1 To .[A65000].End(xlUp) Step 2
F.Cells(2, j) = .Cells(j, 1)
Next j
End With
End Sub
Pardon pour mon erreur.
Le code qui me convient est celui de Hasco. En effet je souhaite conserver la liste complète. SImplement lors de la copie laisserun cellule vide entre les cellules copiées.