Pb sur copier coller...

[Sly le globe trotter]

Bonjour tout le monde,

Me voilà confronter à un problème qui doit être assez simple mais je n'arrive pas à en trouver la solution.
Je cherche à copier dans un onglet de synthèse les infos contenus dans les autres onglets de mon document.
Voici le code que j'utilise...

For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Synthèse" Then
        fin = Sheets(i).Range("A65536").End(xlUp).Row
        If fin > 2 Then
            Sheets(i).Activate
            With Range(Cells(3, 1), Cells(fin, 6))
                .Copy
            End With
            
            Sheets("Synthèse").Activate
            fin_synth = Sheets("Synthèse").Range("A65536").End(xlUp).Row + 1
            If fin_synth < 3 Then
                fin_synth = 3
            End If
            Range("A" & fin_synth).Select
            ActiveSheet.Paste
            
            Application.CutCopyMode = False
        End If
    End If
Next i

Le hic, c'est que rien ne se passe...
Merci pour vos lumières !

 

[pierrejean]

Re : Pb sur copier coller...

bonjour Sly

curieux !!

chez moi ça fonctionne bien !!!

un petit fichier exemple (sans données confidentielles) nous aiderait à y voir plus clair

 

[Sly le globe trotter]

Re : Pb sur copier coller...

Supprimé par mes soins...

 

[Sly le globe trotter]

Re : Pb sur copier coller...

Et voilà le fichier...
Merci encore pour votre aide !

 

[pierrejean]

Re : Pb sur copier coller...

RE Sly

ton fichier revu

nb: na pas hesiter à nommer les feuilles partout ou c'est utile !!

 

[Sly le globe trotter]

Re : Pb sur copier coller...

Merci pierrejean pour le coup de main, cela fonctionne à merveille !
Je me disais bien que ça ne devait pas être très compliqué mais j'étais dans une impasse.

Bonne continuation