Archiver valeur excel VBA

mysti54

XLDnaute Nouveau
Bonsoir à tous

J'ai parcouru le forum et je n'arrive pas à adapter ma recherche par code VBA sur ce que je trouve.
J'aimerais archiver les valeurs de la feuille 1 qui sont en vertical à la feuille 2 qui doivent être archiver en horizontal à la suite.
En feuille 1 les valeurs en M13 M14 et M15 changent à chaque fois.
Fichier joint.

Merci à tous
 

Fichiers joints

Dernière édition:

i20100

XLDnaute Nouveau
Bonjour,

à tester,
Code:
Sub transfert_données_colonne_ligne()
Dim sh1 As Worksheet, sh2 As Worksheet, LastRw As Long, i As Long
Set sh1 = Sheets("Feuil1") ' adapter le nom de l'onglet
Set sh2 = Sheets("Feuil2") ' adapter le nom de l'onglet
LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row ' adapter pour la colonne concernée
For i = 2 To LastRw
 sh2.Cells(2, i).Value = sh1.Cells(i, 1).Value  ' adapter pour la colonne et ligne concernée
Next
End Sub
 

Fichiers joints

mysti54

XLDnaute Nouveau
bonjour iso100

Merci pour la réponse mais comment l'adapter aux cellules sur le premier fichier joint.
Colonne n°13 (M) ligne 15.
 

Discussions similaires


Haut Bas