Copier/coller cellules VBA

Bonjour à tous,

j'aimerais copier le contenu de deux colonnes afin qu'ils soient sur une seule ligne, et je bloque un peu sur le code.

ex : dans les colonnes E / F j'ai les valeurs suivantes :

04/05/2020 06:00 04/05/2020 13:00

05/05/2020 06:00 05/05/2020 13:00

06/05/2020 06:00 06/05/2020 13:00

07/05/2020 06:00 07/05/2020 13:00

j'aimerais les copier sur une seule ligne, a partir de la colonne G : 04/05/2020 06:00 04/05/2020 13:00 05/05/2020 06:00 05/05/2020 13:00

Merci de votre aide.

Bonjour Vikio,

Cette question est bizarre, je me demande à quoi le résultat va servir ?

voici un code à placer dans un module qui fait ce que tu demandes.

Sub CopierTransposer()
With Feuil1
   .[G1].ClearContents
   t = .Range("E1:F4")
   For i = 1 To UBound(t)
      .[G1] = .[G1] & t(i, 1) & " " & t(i, 2) & " "
   Next i
End With
End Sub

cdt

Bonjour vikio, ddetp88, le forum,

Une variante....

Cordialement,

ddetp88 a écrit :

Bonjour Vikio,

Cette question est bizarre, je me demande à quoi le résultat va servir ?

voici un code à placer dans un module qui fait ce que tu demandes.

Sub CopierTransposer()
With Feuil1
   .[G1].ClearContents
   t = .Range("E1:F4")
   For i = 1 To UBound(t)
      .[G1] = .[G1] & t(i, 1) & " " & t(i, 2) & " "
   Next i
End With
End Sub

cdt

Bonjour,

Merci de ton aide, c'est parfait.

le résultat me sert dans un planning 2X8

xorsankukai a écrit :

Bonjour vikio, ddetp88, le forum,

Une variante....

Classeur1.xlsm

Cordialement,

Bonjour,

Merci, c'est Nickel

Ok, bonne suite!