Macro pour copier un tableau

[ludozebest]

Bonjour tt le monde,

Je souhaiterais lancer une macro qui me permettrait de copier un tableau d'une Feuil1 à une Feuil 2 sans avoir à selectionner la feuil2.

J'ai écrit le code suivant :

Sub test()

NomTableau = Sheets("Feuil1").Range("A1:B4")

Sheets("Feuil2").Range(Cells(5, 2), Cells(2, 1)) = NomTableau

End Sub

Le problème est que si je ne selctionne pas la feuil2 avant l'instruction :

Sheets("Feuil2").Range(Cells(5, 2), Cells(2, 1)) = NomTableau
J'ai un message d'erreur...

Comment faire 😕

Merci d'avance pour vos réponses !

 

[Robert]

Re : Macro pour copier un tableau

Bonjour Ludo, bonjour le forum,

peut-être comme ça :

Sub test()
Dim NomTableau As Range 'déclare la variable NomTabeau
 
Set NomTableau = Sheets("Feuil1").Range("A1:B4") 'définit la variable NomTableau
NomTableau.Copy Sheets("Feuil2").Range("B5")
End Sub

 

[job75]

Re : Macro pour copier un tableau

Bonjour ludozebest, bienvenue sur XLD,

Ah VBA... 3 solutions :

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(5, 2), Sheets("Feuil2").Cells(2, 1)) = NomTableau

With Sheets("Feuil2")
.Range(.Cells(5, 2), .Cells(2, 1)) = NomTableau
End With

Sheets("Feuil2").Range("A2:B5") = NomTableau

Edit : salut Robert 🙂 pas besoin que NomTableau soit un Range...

Pour la déclaration, Dim NomTableau point barre.

A+