Importer valeurs dans cellules avec un pas

[g.mir87]

Bonjour à tous,

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.

Bonne journée

 

[Guest]

Re : Importer valeurs dans cellules avec un pas

Bonjour,

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😀

 

[francedemo]

Re : Importer valeurs dans cellules avec un pas

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)

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

à+


grillé par Hasco, boujour à toi Hasco

 

[g.mir87]

Re : Importer valeurs dans cellules avec un pas

Merci à vous deux!
Vos deux codes marchent à merveille.

Meci encore pour votre rapidité de réponse!

 

[g.mir87]

Re : Importer valeurs dans cellules avec un pas

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.