Copier plage d'une feuile à une autre !

[eric87]

Bonjour le forum

Je tiens à commencer par féliciter XLD, son équipe et tous ses bénévoles pour leur performance et la richesse de leur site ! Depuis que je l'ai découvert j'y passe des moments très interessants et n'ai jamais autant progressé en VBA. Merci à tous !

Alors voilà : une simple macro de recopie de cellule qui ne donne ... rien !
pas d'erreur mais pas de copie non plus ! 🙁

Private Sub CommandButton1_Click()
datecola = ActiveWorkbook.Sheets("gu").Cells(ActiveCell.Row, 1)
jourcola = Day(datecola)
dlo = ActiveCell.Row
dld = Sheets(jourcola).Range("A65536").End(xlUp).Row + 1

ActiveWorkbook.Sheets(jourcola).Range("A" & dld & ":K" & dld) = ActiveWorkbook.Sheets("gu").Range("B" & dlo & ":L" & dlo)
  
End Sub

Si quelqu'un a une p'tite idée ... merci !

eric87

 

[Pierrot93]

Re : Copier plage d'une feuile à une autre !

bonjour Eric

A priori pas d'erreur de syntaxe, as tu essayé d'exécuter pas à pas ta macro, afin de vérifier dans la fenêtre des variables locales la bonne initialisation de ces dernières, par les bonnes valeurs.

bonne soirée
@+

 

[eric87]

Re : Copier plage d'une feuile à une autre !

Bonjour Pierrot93,

Oui j'ai essayé le pas à pas, je ne trouve aucune erreur !

as tu une autre syntaxe possible ?

merci

 

[Pierrot93]

Re : Copier plage d'une feuile à une autre !

Re

faudrait un fichier pour approfondir...

 

[Pierrot93]

Re : Copier plage d'une feuile à une autre !

Re

sinon essaye comme ca, mais bon pour moi ce serait plutôt un problème lors de l'initialisation des variables.

ActiveWorkbook.Sheets(jourcola).Range("A" & dld & ":K" & dld).Copy ActiveWorkbook.Sheets("gu").Range("B" & dlo & ":L" & dlo)

ou

ActiveWorkbook.Sheets(jourcola).Range("A" & dld & ":K" & dld).Value ActiveWorkbook.Sheets("gu").Range("B" & dlo & ":L" & dlo).Value

 

[eric87]

Re : Copier plage d'une feuile à une autre !

Bon ben ecoute pierrot93, je crois que ta seconde solution fonctionne !

je vais tester la suite !

Merci beaucoup !

eric87