Importer valeurs dans cellules avec un pas

g.mir87

XLDnaute Nouveau
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
 

Pièces jointes

  • Test.xlsm
    17.7 KB · Affichages: 36
  • Test.xlsm
    17.7 KB · Affichages: 42
  • Test.xlsm
    17.7 KB · Affichages: 41
G

Guest

Guest
Re : Importer valeurs dans cellules avec un pas

Bonjour,
Code:
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:D
 
Dernière modification par un modérateur:

francedemo

XLDnaute Occasionnel
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)
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

à+


grillé par Hasco, boujour à toi Hasco
 

g.mir87

XLDnaute Nouveau
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.
 

Discussions similaires

  • Résolu(e)
XL pour MAC ISBN
Réponses
37
Affichages
1 K
Réponses
13
Affichages
241
Réponses
8
Affichages
321