Effacer 3 boutons

michdenis

30/03/2006 à 22:41

Bonjour Peponne31,

ce code détruit tous les boutons de commande de ta feuille qui
sont issus de la barre d'outils "contrôle".

'-------------------
Sub test()
Dim Sh As Shape
For Each Sh In Worksheets("Feuil1").Shapes
If TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
Next
End Sub
'-------------------

Salutations!

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

Bonsoir,

Je voudrais effacer 3 boutons qui sont dans la colonne "J", mais à des
positions différentes et ils se déplacent en mème temps que le curseur, (de
haut en bas) voici le code:

ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete

ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete

ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete

Si quelq'un a la solution, merci d'avance.
Cordialement
Peponne31

Peponne31

31/03/2006 à 21:19

Bonsoir Michdenis
Merci pour ton aide, mais ça plante sur " If
TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then"
Salutations
Peponne31

michdenis

01/04/2006 à 14:06

Bonjour Peponne31,

D'abord, ceci représente une ligne de code :
If TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then

| mais ça plante sur " If

Quelle version d'excel as-tu ?
Quel est le message d'erreur ?
Qu'est-ce que tu as comme objets dans ta feuille de calcul ?
Des contrôles issues de la boîte d'outils "contrôle", "Formulaire"...Dessin...?
Est-ce que les objets de ta feuille sont protégés ?

Sans autres explications de ta part sur ce qui se passe, je n'ai pas d'autres solutions
à te proposer.

Salutations!

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

Bonsoir Michdenis
Merci pour ton aide, mais ça plante sur " If
TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then"
Salutations
Peponne31

Peponne31

01/04/2006 à 19:01

Bonjour Michdenis,

Je suis sur Excel 2003, Les bouton ont été crées avec la boite à outils
contrôle, je te fais parvenir la feuille avec les codes pour que tu puisse
mieux comprendre, les boutons sont dans une zone non imprimable mais ils
apparaissent dans l'enregistrement de la feuille dans un dossier c'est pour
cela que je voudrais les supprimers.
Merci
Peponne31

Bonjour Michdenis,

Je suis sur Excel 2003, Les bouton ont été crées avec la boite à outils
contrôle, je te fais parvenir la feuille avec les codes pour que tu puisse
mieux comprendre, les boutons sont dans une zone non imprimable mais ils
apparaissent dans l'enregistrement de la feuille dans un dossier c'est pour
cela que je voudrais les supprimers.
Merci
Peponne31

Peponne31

01/04/2006 à 19:03

Re
Oups voici le liens
http://cjoint.com/?ebtbRNb55I
Cordialement.
Peponne31

michdenis

01/04/2006 à 19:42

Essaie ceci :

Si tu places la propriété "PrintObject" de chaque bouton = False
aucun des boutons ne va s'imprimer... c'est quand plus simple que
de supprimer des boutons pour les recréer !

Si ta feuille est protégée, tu dois la déprotéger et la protéger après :

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

Dim Sh As Shape
On Error Resume Next
Worksheets("Devis1page").UnProtect 'mot de passe si nécessaire
For Each Sh In Worksheets("Devis1page").Shapes
If TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
Next
Worksheets("Devis1page").Protect 'mot de passe si nécessaire
End Sub
'-------------------------

Salutations!

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

Re
Oups voici le liens
http://cjoint.com/?ebtbRNb55I
Cordialement.
Peponne31

Essaie ceci :

Si tu places la propriété "PrintObject" de chaque bouton = False
aucun des boutons ne va s'imprimer... c'est quand plus simple que
de supprimer des boutons pour les recréer !

Si ta feuille est protégée, tu dois la déprotéger et la protéger après :

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

Dim Sh As Shape
On Error Resume Next
Worksheets("Devis1page").UnProtect 'mot de passe si nécessaire
For Each Sh In Worksheets("Devis1page").Shapes
If TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
Next
Worksheets("Devis1page").Protect 'mot de passe si nécessaire
End Sub
'-------------------------

Salutations!

"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
0B0B7D2A-3AF6-4576-9ADD-0643377B590A@microsoft.com...
Re
Oups voici le liens
http://cjoint.com/?ebtbRNb55I
Cordialement.
Peponne31

Vous avez filtré cet utilisateur ! Consultez son message

Essaie ceci :

Si tu places la propriété "PrintObject" de chaque bouton = False
aucun des boutons ne va s'imprimer... c'est quand plus simple que
de supprimer des boutons pour les recréer !

Si ta feuille est protégée, tu dois la déprotéger et la protéger après :

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

Dim Sh As Shape
On Error Resume Next
Worksheets("Devis1page").UnProtect 'mot de passe si nécessaire
For Each Sh In Worksheets("Devis1page").Shapes
If TypeName(Sh.OLEFormat.Object.Object) = "CommandButton" Then
If Err = 0 Then
Sh.Delete
Else
Err = 0
End If
End If
Next
Worksheets("Devis1page").Protect 'mot de passe si nécessaire
End Sub
'-------------------------

Salutations!

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

Re
Oups voici le liens
http://cjoint.com/?ebtbRNb55I
Cordialement.
Peponne31

Peponne31

03/04/2006 à 22:23

Bonsoir michdenis

Sur le principe tu as raisson, mais ils ne s'impriment pas, lorsque
j'enregistre le devis, les boutons s'enregistrent aussi c'est cela que je
voudrais éviter.
Cordialement
Peponne31

Bonsoir michdenis

Sur le principe tu as raisson, mais ils ne s'impriment pas, lorsque
j'enregistre le devis, les boutons s'enregistrent aussi c'est cela que je
voudrais éviter.
Cordialement
Peponne31

Vous avez filtré cet utilisateur ! Consultez son message

Bonsoir michdenis

Sur le principe tu as raisson, mais ils ne s'impriment pas, lorsque
j'enregistre le devis, les boutons s'enregistrent aussi c'est cela que je
voudrais éviter.
Cordialement
Peponne31

Effacer 3 boutons

7 réponses

Veuillez sélectionner un problème