Copie rapide de données d’1 feuille dans 1 autre

Bonjour à tous,

J’espère que vous allez bien

J’ai une feuille qui porte le nom : "Parents", elle contient des données très importantes, elle est composée de 10 colonnes et un nombre (variable) de lignes très importantes.

Je cherche un code qui pourrait copier d’une manière très rapide, la totalité des données de la feuille "Parents" vers la feuille "Resultat".

Pour votre information, la colonne "A" de la feuille "Parents" contient des cellules uniques.

Je vous communique cette information, ainsi vous pouvez vous orienter pour l’utilisation d’un dictionnaire en combinaison avec UBound(Ary, 1), pour élaborer un code vba très rapide.

Je reste à votre disposition pour d’autres informations supplémentaires.

Bien à vous.

Bonjour à tous!

Harzer, voici le code pour ta macro

Sub copie_Rapide()
Dim xrg As Range
Dim F1, F2 As Worksheet
Set F1 = Worksheets("Parents")
Set F2 = Worksheets("Resultat")
F2.Cells.ClearContents
Set xrg = F1.Range("a1").CurrentRegion
xrg.Copy Destination:=F2.Range("A1")
End Sub

Bonne journée !

Bonsoir Nordik_Nation,

Merci pour votre réponse.

J’ai oublié de préciser dans ma demande, qu’il y’a d’autres colonnes après la 10^e colonne, d’ailleurs, j’ai oublié de supprimer la 11^e avant de poster ma demande.

Comment pourriez-vous modifier le code afin qu’il puisse copier seulement les données sur les 10 premières colonnes.

Bonjour à tous !

Harzer, comme cela

Sub copie_Rapide()
Dim xrg As Range
Dim F1, F2 As Worksheet
Set F1 = Worksheets("Parents")
Set F2 = Worksheets("Resultat")
F2.Cells.ClearContents
Set xrg = F1.Columns("A:J")
xrg.Copy Destination:=F2.Range("A1")
End Sub

Bonne journée!

Bonsoir Nordik_Nation,

Merci pour l’adaptation du code àselon ma demande.

Ça marche très bien et me donne le résultat souhaité.

Bonne soirée.

Cordiale poignée de mains.