Copier résultat d'une colonne feuil1 vers feuil2 Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Labulle44
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 4 juillet 2018
Version d'Excel : 2007

Message par Labulle44 » 4 juillet 2018, 15:07

Bonjour,
Débutant en VBA, Je recherche une commande en VBA (macro) pour copier une colonne en feuil1 (cellule A3 à A100) qui sera toujours la même mais avec des valeurs différentes et coller les valeurs sur la feuil2 et à la suite ( colonne A résultat 1 puis colonne 2 résultat 2 puis colonne 3 résultat ......).Merci de votre aide.
Cordialement
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'882
Appréciations reçues : 182
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 4 juillet 2018, 15:49

Bonjour labulle, bonjour le forum,

Si j'ai bien compris, essaie comme ça :
Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OS = Worksheets("Feuil1") 'définit l'onglet OS
Set OD = Worksheets("Feuil2") 'définit l'onglet OD
Set PL = OS.Range("A3:A100") 'définit la plage PL
'définit la cellule de destination DEST (A1 si A1 est vide, sinon, la première cellule vide de la ligne 1 de l'onglet OD)
If OD.Range("A1").Value = "" Then Set DEST = OD.Range("A1") Else Set DEST = OD.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1)
DEST.Resize(98, 1).Value = PL.Value 'renvoie dans DEST redimensionnée les valeurs de la plage PL
End Sub
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
L
Labulle44
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 4 juillet 2018
Version d'Excel : 2007

Message par Labulle44 » 4 juillet 2018, 16:21

Re bonjour, :)

Super, vous avez bien compris et en plus ça marche.

Encore Merci :btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message