exporter des données d'un copier coller

[Luc Lucasse]

Bonjour à tous,

je cherche à faire la chose suivante::

Je fais un copier coller et de ce copier coller je veux exporter les nombres dans un tableau.

Exemple pour la 1er ligne de nombres:
le 1er nombre va dans la 1er case de la 1ére ligne du tableau.
le 2iéme nombre va dans la 2iéme case de la 1ére ligne du tableau
le 3iéme nombre va dans la 3iéme case de la 1ére ligne du tableau
...

Pour plus d'explications je joins un fichier

Merci pour votre aide

 

[XL_Luc]

Re : exporter des données d'un copier coller

à adapter legerement selon tes besoins exacts mais ça remet en ligne toutes les courses :

Sub test()

i = 2
Do
    Range("A" & i).Copy
        ActiveSheet.Paste (Cells((i - 2) / 2 + 5, 7))
    Cells((i - 2) / 2 + 5, 7).TextToColumns Destination:=Cells((i - 2) / 2 + 5, 7), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
i = i + 2
Loop Until Cells(i, 1) = ""
End Sub

 

[Luc Lucasse]

Re : exporter des données d'un copier coller

Merci pour ta réponse mais je n'ai vraiment pas tout compris!!!! mais j'essai

 

[Luc Lucasse]

Re : exporter des données d'un copier coller

je remonte mon message