Bouton qui n'exécute pas tout mon code

Bonjour,

Je fais appelle à vous car j'ai un problème avec ma macro ou plus tôt avec le bouton de la macro. Quand j'exécute ma macro en faisant macros>executer ma macro marche comme je veux.

Mais j'ai creer un bouton pour la déclencher et quand on clique dessus il zappe une instruction...

En effet, voici mon code :

Sub donnees()
'
'
Dim nb As Integer

nb = ActiveWorkbook.Sheets.Count

Range("A3").Select

For i = 3 To nb

    Sheets(i).Select
    Range("F61:Y72").Select
    Selection.Copy
    Sheets("LISTE DES STATISTIQUES").Select
   Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(12, 0).Range("A1").Select

Next

End Sub

J'ai bien mis en début de code : Range("A3").Select

Cependant quand je clique sur le bouton que j'ai créé il ne tient pas compte de cette instruction et copie les données sur la cellule qui était déjà sélectionnée...

Est ce quelqu'un comprend pourquoi ?

Merci d'avance

Bonjour,

Vous voulez copier : Range("F61:Y72").Select

Dans la cellule A3 ?

Bonjour,

Tu n'as pas besoin d'utiliser tous ces SELECT

Sub donnees()
Dim nb As Integer
    Application.ScreenUpdating = False
    nb = ActiveWorkbook.Sheets.Count
    For i = 3 To nb
        Sheets(i).Range("F61:Y72").Copy
        Sheets("LISTE DES STATISTIQUES").Range("A3").Offset((i - 3) * 12, 0) _
            .PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Next
End Sub

A+

oui c'est ça enfin plutôt à partir de cette cellule comme c'est une plage

Ton code ne marche pas pour ce que je veux faire car ça me donne des problème de valeurs. Mais j'ai trouvé ce qu'il n'allait pas dans mon code et maintenant il marche. (J'ai ajouter

Sheets("LISTE DES STATISTIQUES").Select 

avant

Range("A3").Select 

car avant il sélectionnait la cellule A1 de la feuille où je me trouvais, pas forcément de celle que je voulais ! )

Mais merci beaucoup pour ton aide frangy