Bouton Macro utilisable uniquement sur certaines feuilles

On 8 fév, 14:08, Alex <ale...@orange.fr> wrote:

Bonjour à tous,

Savez-vous comment écrire la condition d'utilisation d'une macro
uniquement sur des feuilles précises. Mon bouton déclanchement de
macros sont sur une barre d'outils flottante, et je souhaiterais que
pour l'une de mes macros, cette dernière ne soit utilisable que si on
est positionné sur Feuil1 et Feuil3 (possibilité d'utiliser la macro)
et sur Feuil2 un msgbox : Cette macro ne fonctionne pas sur cette
feuille.

Merci par avance de votre aide.
Bien cordialement.
Alex

tester le nom de la feuille
if u_f.name <> "Feuil1" and u_f.name <> "Feuil3" then exit sub

Bonjour,
Quelque chose comme ceci
'--------------
Sub jj()
If ActiveSheet.Name = "Feuil1" Or ActiveSheet.Name = "Feuil3" Then
MsgBox "Exécution de la macro ici"
'***La macro actuelle
Else
MsgBox "Cette macro ne fonctionne pas sur cette feuille."
End If
End Sub
"----------------

--
Salutations
JJ


"Alex" <alex-m@orange.fr> a écrit dans le message de news:
77a5a0a7-8c6d-4ea6-a40a-3679ae017572@t30g2000vbx.googlegroups.com...
Bonjour à tous,

Savez-vous comment écrire la condition d'utilisation d'une macro
uniquement sur des feuilles précises. Mon bouton déclanchement de
macros sont sur une barre d'outils flottante, et je souhaiterais que
pour l'une de mes macros, cette dernière ne soit utilisable que si on
est positionné sur Feuil1 et Feuil3 (possibilité d'utiliser la macro)
et sur Feuil2 un msgbox : Cette macro ne fonctionne pas sur cette
feuille.

Merci par avance de votre aide.
Bien cordialement.
Alex

Bonjour,

Merci pour la proposition.
J'ai mis Or à la place de And mais j'ai un message d'erreur :

Erreur d'excution '424' : Objet requis

peut etre est le u-f qu'il faut déclaré en variable ? mais comment ?
alors j'ai tenté

Dim u-f as string
u-f = activesheet.name

mais du coup j'ai le message suivant :

Erreur de compilation : Qualificateur incorrecte

Quelqu'un aurait il la solution ?
Merci encore de votre aide.
Bien cordialement.
Alex

Bonjour,

Supposons que ton bouton est relié à la macro test suivante :

Dans la macro suivante, Feuil1 et Feuil3 représentent la propriété "Name" des objets feuille
visible seulement dans la fenêtre de l'éditeur de code.

La macro s'exécutera seulement si au moment de cliquer sur ton bouton, la feuille active est
Feuil1 ou Feuil3 (ne pas confondre avec le nom des onglets des feuilles)

'---------------------------
Sub test()

Dim Feuille As String
Feuille = ActiveSheet.CodeName

Select Case Feuille
Case Is = "Feuil1", "Feuil3"
'Le code de ta macro

End Select

End Sub
'---------------------------


MichD
------------------------------------------
"Alex" a écrit dans le message de groupe de discussion :
77a5a0a7-8c6d-4ea6-a40a-3679ae017572@t30g2000vbx.googlegroups.com...

Bonjour à tous,

Savez-vous comment écrire la condition d'utilisation d'une macro
uniquement sur des feuilles précises. Mon bouton déclanchement de
macros sont sur une barre d'outils flottante, et je souhaiterais que
pour l'une de mes macros, cette dernière ne soit utilisable que si on
est positionné sur Feuil1 et Feuil3 (possibilité d'utiliser la macro)
et sur Feuil2 un msgbox : Cette macro ne fonctionne pas sur cette
feuille.

Merci par avance de votre aide.
Bien cordialement.
Alex

Merci pour la réponse, cette fois ci cela fonctionne très bien.
Bien cordialement.
Alex