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 bouton de commande

bouton de commande

25 réponses
Avatar
PHIL
Bonjour,

j'ai des bouton de commande sur ma feuille1 et quand je copie ma feuille 1
sur une autre feuille je recupère les boutons de comandes.

un des bouton de commande se nomme test, je voudrai l'invalider ou le masquer.

est ce possible?


merci
Signaler un problème avec ce contenu

5 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
1 2 3
Avatar
Didier
Permettez-moi mais il suffit de changer 3 par 17 ;-)

Didier


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

moi c'est bouton 17 pourquoi button 3


Bonsoir,
ActiveSheet.Shapes("Button 3").Cut
devrait convenir
--
Philippe
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

je veux juste invalider un bouton

donc ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
me detruit tout les bouton comment faire pour que seulement le bouton
17
disparraise.

merci


Je t'ai envoyé une réponse hier qui apparemment s'est perdue dans les
brumes
d'internet. Copie :

/*Début
Si tu copies la feuille entière, en effet.
Autre méthode, si tu tiens à cette copie de l'ensemble de la feuille :

Sub CopieFeuille()
'copie la feuille "Feuil1" (à adapter)
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
'sélectionne tous les objets sur la nouvelle feuille
ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
End Sub

N'oublie de changer "Feuil1" par le nom de la feuille que tu veux
copier.
/*Fin

--
Gaenonius

ta methode me fait quand meme copier mon bouton quand je copie la
feuille.

?????

merci



Si tes boutons sont bien des CommanButton (Boite à outils
Contrôles), tu peux
tout simplement empêcher leur copie :
en mode création (icone avec une équerre bleue enfoncée),
- clic gauche sur chacun des boutons en maintenant la touche Ctrl
appuyée pour
sélectionner tous les boutons
- clic droit sur l'un des boutons, choisir Format de contrôle puis
l'onglet
Propriétés et cocher l'option Ne pas déplacer ou dimensionner avec
les cellules.

--
Gaenonius


Bonjour,

j'ai des bouton de commande sur ma feuille1 et quand je copie ma
feuille 1
sur une autre feuille je recupère les boutons de comandes.

un des bouton de commande se nomme test, je voudrai l'invalider ou
le masquer.

est ce possible?


merci


















Avatar
Bisounours
Tu peux très librement adapter en remplaçant 3 par 17
Mais je n'ai pas encore vu cette guerre là.
--
Philippe
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

moi c'est bouton 17 pourquoi button 3


Bonsoir,
ActiveSheet.Shapes("Button 3").Cut
devrait convenir
--
Philippe
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

je veux juste invalider un bouton

donc ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
me detruit tout les bouton comment faire pour que seulement le bouton 17
disparraise.

merci


Je t'ai envoyé une réponse hier qui apparemment s'est perdue dans les brumes
d'internet. Copie :

/*Début
Si tu copies la feuille entière, en effet.
Autre méthode, si tu tiens à cette copie de l'ensemble de la feuille :

Sub CopieFeuille()
'copie la feuille "Feuil1" (à adapter)
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
'sélectionne tous les objets sur la nouvelle feuille
ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
End Sub

N'oublie de changer "Feuil1" par le nom de la feuille que tu veux copier.
/*Fin

--
Gaenonius

ta methode me fait quand meme copier mon bouton quand je copie la feuille.

?????

merci



Si tes boutons sont bien des CommanButton (Boite à outils Contrôles), tu peux
tout simplement empêcher leur copie :
en mode création (icone avec une équerre bleue enfoncée),
- clic gauche sur chacun des boutons en maintenant la touche Ctrl appuyée pour
sélectionner tous les boutons
- clic droit sur l'un des boutons, choisir Format de contrôle puis l'onglet
Propriétés et cocher l'option Ne pas déplacer ou dimensionner avec les cellules.

--
Gaenonius


Bonjour,

j'ai des bouton de commande sur ma feuille1 et quand je copie ma feuille 1
sur une autre feuille je recupère les boutons de comandes.

un des bouton de commande se nomme test, je voudrai l'invalider ou le masquer.

est ce possible?


merci


















Avatar
Didier
Quel humour ! quelle gentillesse ! Philippe.R
Cordialement
Didier

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

Tu peux très librement adapter en remplaçant 3 par 17
Mais je n'ai pas encore vu cette guerre là.
--
Philippe
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

moi c'est bouton 17 pourquoi button 3


Bonsoir,
ActiveSheet.Shapes("Button 3").Cut
devrait convenir
--
Philippe
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

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

je veux juste invalider un bouton

donc ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
me detruit tout les bouton comment faire pour que seulement le bouton
17
disparraise.

merci


Je t'ai envoyé une réponse hier qui apparemment s'est perdue dans les
brumes
d'internet. Copie :

/*Début
Si tu copies la feuille entière, en effet.
Autre méthode, si tu tiens à cette copie de l'ensemble de la feuille
:

Sub CopieFeuille()
'copie la feuille "Feuil1" (à adapter)
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
'sélectionne tous les objets sur la nouvelle feuille
ActiveSheet.Shapes.SelectAll
'les détruit
Selection.Delete
End Sub

N'oublie de changer "Feuil1" par le nom de la feuille que tu veux
copier.
/*Fin

--
Gaenonius

ta methode me fait quand meme copier mon bouton quand je copie la
feuille.

?????

merci



Si tes boutons sont bien des CommanButton (Boite à outils
Contrôles), tu peux
tout simplement empêcher leur copie :
en mode création (icone avec une équerre bleue enfoncée),
- clic gauche sur chacun des boutons en maintenant la touche Ctrl
appuyée pour
sélectionner tous les boutons
- clic droit sur l'un des boutons, choisir Format de contrôle puis
l'onglet
Propriétés et cocher l'option Ne pas déplacer ou dimensionner avec
les cellules.

--
Gaenonius


Bonjour,

j'ai des bouton de commande sur ma feuille1 et quand je copie ma
feuille 1
sur une autre feuille je recupère les boutons de comandes.

un des bouton de commande se nomme test, je voudrai l'invalider ou
le masquer.

est ce possible?


merci





















Avatar
Monique Brunel
Oui, un vrai Bisounours ;-)

L'hymne de mpfe : http://frag4fun.free.fr/bisounours/


Quel humour ! quelle gentillesse ! Philippe.R
Cordialement
Didier

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


Tu peux très librement adapter en remplaçant 3 par 17
Mais je n'ai pas encore vu cette guerre là.
--
Philippe
Amicales Salutations



--
Amicalement,
Monique
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/ et http://www.opquast.org/
avec des navigateurs évolutifs http://www.mozilla-europe.org/
Pour les amateurs d'athlétisme : http://users.skynet.be/osga/


Avatar
Bisounours
<{;'o)*))
--
Philippe
Bises et Amicales Salutations

"Monique Brunel" a écrit dans le message de news:

Oui, un vrai Bisounours ;-)

L'hymne de mpfe : http://frag4fun.free.fr/bisounours/


Quel humour ! quelle gentillesse ! Philippe.R
Cordialement
Didier

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


Tu peux très librement adapter en remplaçant 3 par 17
Mais je n'ai pas encore vu cette guerre là.
--
Philippe
Amicales Salutations



--
Amicalement,
Monique
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/ et http://www.opquast.org/
avec des navigateurs évolutifs http://www.mozilla-europe.org/
Pour les amateurs d'athlétisme : http://users.skynet.be/osga/




1 2 3