Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA : modifier la visibilité d'un bouton dans une feuille ?

VBA : modifier la visibilité d'un bouton dans une feuille ?

7 réponses
Avatar
Alfred WALLACE
Bonjour :-)

ma feuille "Page Initiale" comporte un bouton "LANCER" visible.

Mais, dans un module X, je souhaite modifier la visibilit=E9 =E0 true ou
false en fonction d'un certain nombre de crit=E8res.

1 - puis je acceder aux propri=E9t=E9s d'un bouton d'une feuille dans une
macro =E0 l'int=E9rieur d'un module x

2 - si oui, quelle est la syntaxe exacte ?


merci


Jos=E9
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
La réponse est oui :
Sub testeur()
Feuil1.CommandButton1.Visible = False
End Sub

Cordialement
Pascal

"Alfred WALLACE" a écrit dans le message de news:

Bonjour :-)

ma feuille "Page Initiale" comporte un bouton "LANCER" visible.

Mais, dans un module X, je souhaite modifier la visibilité à true ou
false en fonction d'un certain nombre de critères.

1 - puis je acceder aux propriétés d'un bouton d'une feuille dans une
macro à l'intérieur d'un module x

2 - si oui, quelle est la syntaxe exacte ?


merci


José
Avatar
Alfred WALLACE
Bonjour Papou, et merci pour cette réponse ultra-rapide !

Mais ma feuille s'appelle "PAGE INITIALE"

et
"PAGE INITIALE".generateur_des_fiches.Visible = True

provoque une erreur ... donc, j'ai renomé en PAGE_INITIALE
et modifié la ligne
PAGE_INITIALE.generateur_des_fiches.Visible = True

mais alors, dans ce cas, j'ai l'érreur suivante :
erreur 424 : Objet requis

le bouton s'appele generateur_des_fiches et la feuille "PAGE_INITIALE"

j'ai aussi essayé de rajouter _click à la fin du nom du bouton....
rien.

remarque : le code :
If Range("C23").Value <> 0 Then
PAGE_INITIALE.generateur_des_fiches.Visible = True
Else
PAGE_INITIALE.generateur_des_fiches.Visible = False
End If

se trouve dans la macro
Sub auto_open() et dans la macro
Private Sub Worksheet_Change(ByVal Target As Range)

est-ce que celà vient de là ?

Merci pour ton aide.


José
Avatar
papou
Re
Le code exemple fait appel au codename de la feuille et non à son nom
d'onglet.
Pour adapter il faut donc que tu utilises le codename de ta feuille
PAGE_INITIALE que tu trouveras dans les objets situés sous Microsoft Excel
objets dans l'éditeur VisualBasic.

Cordialement
Pascal

"Alfred WALLACE" a écrit dans le message de news:

Bonjour Papou, et merci pour cette réponse ultra-rapide !

Mais ma feuille s'appelle "PAGE INITIALE"

et
"PAGE INITIALE".generateur_des_fiches.Visible = True

provoque une erreur ... donc, j'ai renomé en PAGE_INITIALE
et modifié la ligne
PAGE_INITIALE.generateur_des_fiches.Visible = True

mais alors, dans ce cas, j'ai l'érreur suivante :
erreur 424 : Objet requis

le bouton s'appele generateur_des_fiches et la feuille "PAGE_INITIALE"

j'ai aussi essayé de rajouter _click à la fin du nom du bouton....
rien.

remarque : le code :
If Range("C23").Value <> 0 Then
PAGE_INITIALE.generateur_des_fiches.Visible = True
Else
PAGE_INITIALE.generateur_des_fiches.Visible = False
End If

se trouve dans la macro
Sub auto_open() et dans la macro
Private Sub Worksheet_Change(ByVal Target As Range)

est-ce que celà vient de là ?

Merci pour ton aide.


José
Avatar
lSteph
Bonjour,
Feuille dispose d'un nom d'objet (Name) et d'un libellé .Caption
correspondant au nom que tu mets dans son onglet
Soit
tu laisse donc Feuil1 ou 2... ou ..n comme donné par Papou
qui utilise le codename ainsi (Name) dans la fenêtre des propriétés.
Soit
Si tu veux utiliser le nom d'onglet
Worksheet("PAGE INITIALE")

Cordialement

lSteph


"Alfred WALLACE" a écrit dans le message de news:

Bonjour Papou, et merci pour cette réponse ultra-rapide !

Mais ma feuille s'appelle "PAGE INITIALE"

et
"PAGE INITIALE".generateur_des_fiches.Visible = True

provoque une erreur ... donc, j'ai renomé en PAGE_INITIALE
et modifié la ligne
PAGE_INITIALE.generateur_des_fiches.Visible = True

mais alors, dans ce cas, j'ai l'érreur suivante :
erreur 424 : Objet requis

le bouton s'appele generateur_des_fiches et la feuille "PAGE_INITIALE"

j'ai aussi essayé de rajouter _click à la fin du nom du bouton....
rien.

remarque : le code :
If Range("C23").Value <> 0 Then
PAGE_INITIALE.generateur_des_fiches.Visible = True
Else
PAGE_INITIALE.generateur_des_fiches.Visible = False
End If

se trouve dans la macro
Sub auto_open() et dans la macro
Private Sub Worksheet_Change(ByVal Target As Range)

est-ce que celà vient de là ?

Merci pour ton aide.


José
Avatar
lSteph
worksheets("PAGE INITIALE")
"lSteph" a écrit dans le message de news:

Bonjour,
Feuille dispose d'un nom d'objet (Name) et d'un libellé .Caption
correspondant au nom que tu mets dans son onglet
Soit
tu laisse donc Feuil1 ou 2... ou ..n comme donné par Papou
qui utilise le codename ainsi (Name) dans la fenêtre des propriétés.
Soit
Si tu veux utiliser le nom d'onglet
Worksheet("PAGE INITIALE")

Cordialement

lSteph


"Alfred WALLACE" a écrit dans le message de news:

Bonjour Papou, et merci pour cette réponse ultra-rapide !

Mais ma feuille s'appelle "PAGE INITIALE"

et
"PAGE INITIALE".generateur_des_fiches.Visible = True

provoque une erreur ... donc, j'ai renomé en PAGE_INITIALE
et modifié la ligne
PAGE_INITIALE.generateur_des_fiches.Visible = True

mais alors, dans ce cas, j'ai l'érreur suivante :
erreur 424 : Objet requis

le bouton s'appele generateur_des_fiches et la feuille "PAGE_INITIALE"

j'ai aussi essayé de rajouter _click à la fin du nom du bouton....
rien.

remarque : le code :
If Range("C23").Value <> 0 Then
PAGE_INITIALE.generateur_des_fiches.Visible = True
Else
PAGE_INITIALE.generateur_des_fiches.Visible = False
End If

se trouve dans la macro
Sub auto_open() et dans la macro
Private Sub Worksheet_Change(ByVal Target As Range)

est-ce que celà vient de là ?

Merci pour ton aide.


José




Avatar
lSteph
...décidément, il y a des jours où...
Feuille dispose d'un nom d'objet (Name) et d'un libellé Name
...


"lSteph" a écrit dans le message de news:

Bonjour,
Feuille dispose d'un nom d'objet (Name) et d'un libellé .Caption
correspondant au nom que tu mets dans son onglet
Soit
tu laisse donc Feuil1 ou 2... ou ..n comme donné par Papou
qui utilise le codename ainsi (Name) dans la fenêtre des propriétés.
Soit
Si tu veux utiliser le nom d'onglet
Worksheet("PAGE INITIALE")

Cordialement

lSteph


"Alfred WALLACE" a écrit dans le message de news:

Bonjour Papou, et merci pour cette réponse ultra-rapide !

Mais ma feuille s'appelle "PAGE INITIALE"

et
"PAGE INITIALE".generateur_des_fiches.Visible = True

provoque une erreur ... donc, j'ai renomé en PAGE_INITIALE
et modifié la ligne
PAGE_INITIALE.generateur_des_fiches.Visible = True

mais alors, dans ce cas, j'ai l'érreur suivante :
erreur 424 : Objet requis

le bouton s'appele generateur_des_fiches et la feuille "PAGE_INITIALE"

j'ai aussi essayé de rajouter _click à la fin du nom du bouton....
rien.

remarque : le code :
If Range("C23").Value <> 0 Then
PAGE_INITIALE.generateur_des_fiches.Visible = True
Else
PAGE_INITIALE.generateur_des_fiches.Visible = False
End If

se trouve dans la macro
Sub auto_open() et dans la macro
Private Sub Worksheet_Change(ByVal Target As Range)

est-ce que celà vient de là ?

Merci pour ton aide.


José




Avatar
Alfred WALLACE
Merci à tous pour votre aide. çà marche !
José