1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Archiver valeur excel VBA

Discussion dans 'Forum Excel' démarrée par mysti54, 29 Novembre 2018.

  1. mysti54

    mysti54 XLDnaute Nouveau

    Inscrit depuis le :
    31 Octobre 2011
    Messages :
    33
    "J'aime" reçus :
    0
    Habite à:
    NANCY
    Utilise:
    Excel 2007 (PC)
    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
     

    Pièces jointes:

    Dernière édition: 29 Novembre 2018
  2. Chargement...

    Discussions similaires - Archiver valeur excel Forum Date
    Macro pour archiver les valeurs sauf lignes ayant un zéro.... Forum Excel 12 Mai 2016
    VBA pou archiver les valeurs d'une cellule à la fin de la journée Forum Excel 5 Octobre 2015
    Modif ,sur macro pour archiver les valeurs d'une zone et sans lignes vides... Forum Excel 17 Février 2013
    archiver valeur cellule Forum Excel 17 Février 2009
    Macro pour archiver des données Forum Excel 25 Octobre 2018

  3. i20100

    i20100 XLDnaute Nouveau

    Inscrit depuis le :
    4 Décembre 2018
    Messages :
    1
    "J'aime" reçus :
    0
    Bonjour,

    à tester,
    Code (Text):
    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
     

    Pièces jointes:

  4. mysti54

    mysti54 XLDnaute Nouveau

    Inscrit depuis le :
    31 Octobre 2011
    Messages :
    33
    "J'aime" reçus :
    0
    Habite à:
    NANCY
    Utilise:
    Excel 2007 (PC)
    bonjour iso100

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

Partager cette page