Reproduire une série de chiffres sous autre format

Bonjour,

bon, je ne suis pas très sûr du titre ni de la définition exacte de ce que je veux.

J'ai joint un fichier. Le départ est la colonne A est le résultat voulu est la colonne D.

Cela me ferait gagner un temps précieux car, actuellement, je fais tout un par un.

Merci d'avance

Bonsoir Veddam, bonsoir le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Dim J As Byte 'déclare la variable J (incrément)
Dim K As Long 'déclare la variable K (incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
K = 1 'initialise la variable K
For I = 1 To UBound(TV, 1) 'boucle 1 : sur toutes les lignes I du tableau des valeurs TV
    For J = 1 To 4 'boucle 2 : sur les 4 fois
        ReDim Preserve TL(1 To K) 'redimensionne le tableau des lignes TL
        TL(K) = TV(I, 1) 'récupère dans la ligne K de TL la donnée ligne I du tableau des valeurs TV
        K = K + 1 'incrémente K 
    Next J 'prochaine fois de la boucle 2
Next I 'prochaine ligne de la boucle 1
'si K est supérieure à 1, revoie en D1 redimensionnée le tableau TL transposé
If K > 1 Then O.Range("D1").Resize(UBound(TL), 1).Value = Application.Transpose(TL)
End Sub

Bonjour,

ou bien :

=DECALER($A$1;(LIGNE()-1)/4;)

à tirer du nombre de lignes nécessaires.

eric

eriiic a écrit :

Bonjour,

ou bien :

=DECALER($A$1;(LIGNE()-1)/4;)

à tirer du nombre de lignes nécessaires.

eric

Joli !

eriiic a écrit :

Bonjour,

ou bien :

=DECALER($A$1;(LIGNE()-1)/4;)

à tirer du nombre de lignes nécessaires.

eric

Et cela marche!

Merci ++