Discussion :

[gu000]

Bonjour,

J'ai créé une petite macro, qui fonctionne, mais lorsque je souhaite l'attribuer à un bouton, donc en copiant le code de la macro dans le code du bouton, alors la macro ne fonctionne plus.

Voici la macro:
Sub refresh()
Sheets("output").Select
Range("H6:N6").Select
hauteur = Range("H6:N6").CurrentRegion.Rows.Count
Plage = "H6:N" & hauteur
Range(Plage).Delete
ActiveSheet.PivotTables("PivotTable4").PivotCache.refresh
hauteur = Range("E6").CurrentRegion.Rows.Count
Plage = "D" & hauteur + 2
Range(Plage).Value = "end"
Range("H5:N5").Copy
Plage = "H6:N" & hauteur + 1
Range(Plage).Select
ActiveSheet.Paste
Sheets("HOW-TO").Select
End Sub

Le message d'erreur quand associé à un bouton est "méthode de sélection incorrecte" quand il tente d'exécuter la ligne " Range("H6:N6").Select".

Pourquoi la macro fonctionne-t-elle et pas lorsque lancée du bouton? Comment faire pour que cela fonctionne?

Je pense qu'un bouton ne peut interragir que sur la page sur laquelle il se trouve?
Je ne veux pas passer par un menu macro car d'autres utilisateurs vont utiliser le fichier.

Merci de votre aide.

[Drost]

Hello,

Tu ne peux pas mettre ton code de macro dans celui de ton bouton.

utilises :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
Application.Run "'fichier.xls'!macro"
End Sub

[gu000]

Ah oui!

Super et merci pour la rapidité de ta réponse