bouton de commande

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

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

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

J'ai lu ta demande trop vite. Pour détruire le bouton appelé "test" :

ActiveSheet.Shapes("test").Delete

--
Gaenonius

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

S'il est nommé CommandButton17, il faudra bien sûr adapter en :

ActiveSheet.Shapes("CommandButton17").Delete

--
Gaenonius

J'ai lu ta demande trop vite. Pour détruire le bouton appelé "test" :

ActiveSheet.Shapes("test").Delete

--
Gaenonius

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

le nom de mon bouton est bouton 17

donc j'ai remplacé test par bouton 17
mais ce me le supprime pas.

car en fait quand je genere la copie de ma feuille, je la genere quand
j'appuie sur sur le bouton 17 et ensuite quand la feuille est créer je
voudrai que le bouton 17 disparraisse.

merci

J'ai lu ta demande trop vite. Pour détruire le bouton appelé "test" :

ActiveSheet.Shapes("test").Delete

--
Gaenonius

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

ca n'a pas l'air de marcher, tu sait comment verifier le nom de mon bouton stp
moi je les nommer TEST,mais c'est pas ActiveSheet.Shapes("TEST").Delete
j'ai essayer bouton 17 c'est pareil, ca ne marche pas
merci de ton aide

S'il est nommé CommandButton17, il faudra bien sûr adapter en :

ActiveSheet.Shapes("CommandButton17").Delete

--
Gaenonius

J'ai lu ta demande trop vite. Pour détruire le bouton appelé "test" :

ActiveSheet.Shapes("test").Delete

--
Gaenonius

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

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" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
B196A801-9983-4E19-8B60-6A872134D9D7@microsoft.com...

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

Ça marche tout à fait. Aussi bien avec un bouton de la barre d'outils
Formulaires que de la boite à outils Contrôles. Testé avec Excel 2002 :

Sub CopieFeuilleEtSupprimeBouton17()
'copie la feuille "Feuil1" (à adapter)
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
'détruit le bouton nommé bouton 17
ActiveSheet.Shapes("Bouton 17").Delete
End Sub

--
Gaenonius

ca n'a pas l'air de marcher, tu sait comment verifier le nom de mon bouton stp
moi je les nommer TEST,mais c'est pas ActiveSheet.Shapes("TEST").Delete
j'ai essayer bouton 17 c'est pareil, ca ne marche pas
merci de ton aide

S'il est nommé CommandButton17, il faudra bien sûr adapter en :

ActiveSheet.Shapes("CommandButton17").Delete

--
Gaenonius

J'ai lu ta demande trop vite. Pour détruire le bouton appelé "test" :

ActiveSheet.Shapes("test").Delete

--
Gaenonius

je souhaite juste selectionnner l'objet ( bouton17) et l'effacer

comment faire?

merci

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.

--
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

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" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
B196A801-9983-4E19-8B60-6A872134D9D7@microsoft.com...

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