dupliquer un tableau variable

[Sophie11]

😱Bonjour,
J'ai une tableau en feuille 2 que je voudrais dupliquer en feuille 3.
Ce tableau a des lignes qui peuvent changer. Ces colonnes sont A2:E2

je pensais faire ce code:


With Sheets(2)
Col = .Range("A2:E2")
Lig = .Range("A2").End(xlUp).Row
End With
Tableau = Sheets(2).Range(Cells(DerLig, DerCol))
Worksheets("sheet3").activate

Je pense déjà que j'ai fais une erreur en déterminant le nom 'Tableau'
Si vous pouvez m'aider... merci 🙂 🙂

 

[Efgé]

Re : dupliquer un tableau variable

Bonjour Sophie11,
Une proposition

Sub copi()
With Sheets("Feuil2")
    col = .Range("IV2").End(xlToLeft).Column
    Lig = .Range("A65536").End(xlUp).Row
    .Range(Cells(2, 1), Cells(Lig, col)).Copy Sheets("Feuil3").Range("A2")
End With
End Sub

Cordilament
EDIT Bonjour kjin
Si on est sûr du nombre de colonnes, cette version devrait suffire ;

Sub copi()
With Sheets("Feuil2")
       Lig = .Range("A65536").End(xlUp).Row
    .Range(Cells(2, 1), Cells(Lig, 5)).Copy Sheets("Feuil3").Range("A2")
End With
End Sub

 

[kjin]

Re : dupliquer un tableau variable

Bonsoir,
Si tu veux passer par un tableau

With Sheets(2)
    tableau = .Range("A2:E" & .Range("A65000").End(xlUp).Row).Value
End With
With Sheets(3)
    .Range(.Cells(2, 1), .Cells(UBound(tableau) + 1, 5)) = tableau
End With

A+
kjin

 

[Sophie11]

Re : dupliquer un tableau variable

merci a vous 🙂 ca marche 😛 😛

 

[Sophie11]

Re : dupliquer un tableau variable

Ca duplique parfaitement mon tableau, par contre à la fin de mon tableau nouvellement créer j'obtiens une ligne supplémentaire avec des "#N/A" dans chaque cellules.
Pourquoi? Et comment faire pour y remédier?

Merci d'avance pour votre aide précieuse.

 

[Efgé]

Re : dupliquer un tableau variable

Re
Sophie11, c'est pour ce genre de "problème" que l'on demande un fichier exemple. Tu n'es pas nouvelle sur le forum, tu devrais le savoir 🙄.
Donc, à te re lire
Cordialement

 

[Sophie11]

Re : dupliquer un tableau variable

me revoila 🙂
Ci-joint mon fichier si vous avez une idée pouquoi il apparait cette ligne supplementaire de #NA# ?

 

[jeanpierre]

Re : dupliquer un tableau variable

Bonjour Sophie11,

Modifie :

With Sheets(3)
.Range(.Cells(1, 1), .Cells(UBound(tableau), 7)) = tableau
End With

en supprimant le +1

Bonne journée.

Jean-Pierre

 

[Sophie11]

Re : dupliquer un tableau variable

thanks !!! 😛 😛 😛