Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Activer une macro dès qu'on active la feuille c

N

Nathalie

Guest
Bonjour a tout le forum,

Voilà mon pb:

Sur une feuille appelée 'Liste', j'ai un bouton nommé 'Rafraîchir' activant une macro (cette macro permet d'afficher tous les '1' d'une colonne par un filtre).

Ce que je souhaiterais c'est que cette macro s'execute dès que la personne arrive sur cette feuille ( en cliquant sur l'onglet ou par hyperlink). Ainsi la personne n'aurait pas à chaque fois qu'elle va sur cette feuille à rafraichir la liste en cliquant sur le bouton.

Le code de la macro dans le module est:

Sub Image1_QuandClic()
Selection.AutoFilter Field:=1, Criteria1:='1'
Range('A1').Select
End Sub

Quelle ligne dois je changer pour qu'elle s'execute automatiquement dans les conditions que j'ai détaillées précédemment, afin que je puisse supprimer le bouton?

Je vous joint mon fichier en question.

J'espère que vous pourrez m'aider.

Nathalie [file name=Fichier_20051031015809.zip size=1268]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fichier_20051031015809.zip[/file]
 

Pièces jointes

  • Fichier_20051031015809.zip
    1.2 KB · Affichages: 11
N

Nathalie

Guest
Excusez moi, le fichier que j'ai joint était vide , le voilà:

Merci

Nathalie [file name=Fichier1_20051031020517.zip size=10276]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fichier1_20051031020517.zip[/file]
 

Pièces jointes

  • Fichier1_20051031020517.zip
    10 KB · Affichages: 18

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir Nathalie, bonsoir le forum,

J'ai adoré ta pièce jointe... Était-ce un gag ?
Quoi qu'il en soit, tu dois placer la macro événementielle ci-dessous dans VBE, dans le composant Worksheet de l'onglet correspondant (Feuil1(Feuil1) par exemple). Ainsi, à l'activation de l'onglet Feuil1 la macro Image1_QuandClic se lancera automatiquement. Tu pourras donc obtenir le même résultat à l'activation de l'onglet et au clic sur l'image.


Private Sub Worksheet_Activate()
Call Image1_QuandClic
End Sub

Édition

Hou la ! Drolement en retard sur ce coup là. Alors je profite pour passer le bonsoir à Gérard la Grande Classe (dit 'Dezamis')

Message édité par: Robert, à: 31/10/2005 02:11
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…