Copier/Coller avec un espacement régulier

Bonjour à vous,

J'ai une liste de valeurs les unes à la suite des autres (premier onglet du fichier exemple) que je souhaite copier et dans un autre onglet mais avec un espacement régulier (voir onglet 2 du fichier exemple).

Comment cela est possible s'il vous plaît ? :)

Bonjour,

Le petit bout de code suivant devrait faire l'affaire :

Sub export()
y = 1
For x = 2 To Feuil1.Range("A1").CurrentRegion.End(xlDown).Row
    Feuil2.Cells(y, 1) = Feuil1.Cells(x, 1)
    y = y + 9
Next
End Sub

bonjour,

bonjour JoyeuxNoel (ta fête approche!)

une solution avec une formule. Mais risque de poser des problèmes de performances si beaucoup de lignes.

Hello h2so4 !

Oui, je suis bientôt de saison :)
Une longue année d'attente pour cet éphémère moment de gloire .... Mais ça vaut le coup !

(encore que tout le monde m'appelle Fred maintenant à cause de la contrepèterie )

hello Fred

l'art de la contrepèterie est une subtilité de la langue française que je ne maîtrise pas et je n'ai donc pas compris la raison du Fred.

He fills her Soul with Hope

She showed me her tool kits.

On inverse une ou plusieurs lettres (ou syllabes) dans une phrase et, phonétiquement, on obtient une toute autre phrase.

"Salut Fred" en est une. Pas facile cependant, puisque 3 syllabes interviennent ici.

Content que ce sujet ai pu laisser certains s'adonner à la contrepèterie !

En plus, cerise sur le sapin, le code proposait par JoyeuxNoel fonctionne parfaitement ! Merci !