Transfert de données d'une feuille à une autre avec une macro

[mcarjacker]

Bonjour à tous,

Comment transférer une plage de données d'une feuille 1 vers une feuille 2 à l'aide d'une macro?

En gros je veux faire comme dans cet exemple :

Cours VBA : premire macro

mais d'une feuille à une autre.

Merci d'avance.

 

[phlaurent55]

Re : Transfert de données d'une feuille à une autre avec une macro

Bonjour mcarjacker, et bienvenue sur le forum

voir fichier joint

à+
Philippe

 

[mcarjacker]

Re : Transfert de données d'une feuille à une autre avec une macro

Ok c'est cool Philippe, ça marche, merci beaucoup.

J'ai une deuxième question,

est-il possible que les données envoyées vers la deuxième feuille se succèdent?

Donc en gros que l'adresse de destination se modifie entre deux copies?


Merci d'avance.

 

[CATPLUS]

Re : Transfert de données d'une feuille à une autre avec une macro

Bonjour à toutes et à tous
Ci-joint fichier en réponse à la seconde question
J'ai 2 nouvelles questions
1 comment puis-je aller à une ligne autre que la cellule A1 dans la feuille 2
2 comment transferer une seconde colonne B dans la feuille 2
Cordialement

 

[phlaurent55]

Re : Transfert de données d'une feuille à une autre avec une macro

Re bpnjour

Ok c'est cool Philippe, ça marche, merci beaucoup.

J'ai une deuxième question,

est-il possible que les données envoyées vers la deuxième feuille se succèdent?

Donc en gros que l'adresse de destination se modifie entre deux copies?


Merci d'avance.

avec ce code:

Sub Macro1()
    Range("A1:A" & Range("A65535").End(xlUp).Row).Copy
    Sheets("Feuil2").Select
    Range("A" & Range("A65535").End(xlUp).Row).Select
    ActiveSheet.Paste
    [A1].Select
    Application.CutCopyMode = False
End Sub

à+
Philippe

 

[Staple1600]

Re : Transfert de données d'une feuille à une autre avec une macro

Bonjour à tous


Sans utiliser le copier/coller (à utiliser seulement si on veut transférer les valeurs seules)

Sub Macro1a()
Dim a As Range, nbl&, f1 As Worksheet: Set f1 = Sheets("Feuil1")
Set a = f1.Range([A1], [A65536].End(xlUp)): nbl = a.Rows.Count
With Sheets("Feuil2")
    .Range("A" & .[A65536].End(xlUp).Row)(2).Resize(nbl).Value = a.Value
End With
End Sub

 

[CATPLUS]

Re : Transfert de données d'une feuille à une autre avec une macro

Merci de vos réponses rapides
Je bloque sur la feuille 2, le transfert se fait sans probléme mais je n'arrive pas à pouvoir inscrire les données ailleurs que dans la cellule A1
Cordialement,
MJ