Pas de ToggleButton dans barre Formulaire ?

[Hulk]

Hello tout le monde,,

N'y a t-il pas moyen d'avoir le contrôle ToggleButton dans la barre Formulaire ?

Je m'explique :

J'ai un bouton avec ce code

Sub Efface_Image()
ActiveSheet.Pictures.Delete
End Sub

Le problème c'est qu'il m'efface aussi les ToggleButton et CommandButton de la feuille !

Donc j'ai mis des CommandButton depuis la barre Formulaire et là c'est bon, il n'efface que les images(et ToggleButton)... mais il n'y a pas, ou du moins, je n'ai pas trouvé le contrôle ToggleButton !

Si non, quel code pour effacer uniquement les images, pas les CommandButton, ToggleButton, ou Zone de Texte !

Une idée ??

Merci par avance !

Cdt, Hulk.

 

[tora]

Re : Pas de ToggleButton dans barre Formulaire ?

Hello tout le monde,,

N'y a t-il pas moyen d'avoir le contrôle ToggleButton dans la barre Formulaire ?

Je m'explique :

J'ai un bouton avec ce code

Sub Efface_Image()
ActiveSheet.Pictures.Delete
End Sub

Le problème c'est qu'il m'efface aussi les ToggleButton et CommandButton de la feuille !

Donc j'ai mis des CommandButton depuis la barre Formulaire et là c'est bon, il n'efface que les images(et ToggleButton)... mais il n'y a pas, ou du moins, je n'ai pas trouvé le contrôle ToggleButton !

Si non, quel code pour effacer uniquement les images, pas les CommandButton, ToggleButton, ou Zone de Texte !

Une idée ??

Merci par avance !

Cdt, Hulk.

sans garantie ....

Sub clean()
Dim Obj As Object
For Each Obj In ActiveSheet.Shapes
If InStr(1, Obj.Name, "Image") <> 0 Then Obj.Delete
Next Obj
End Sub

cet exemple prends pour base "Image" contenu dans le nom de tes contrôles images bien sur

 

[Hulk]

Re : Pas de ToggleButton dans barre Formulaire ?

Hello,

Merci de me répondre Tora !

J'ai essayé ton code, et il n'efface... plus rien 😀

Pourtant il a l'air correct et les images se nomment bien Image 1, Image 2 etc. jusqu'à pff car apparemment même en effacant les images, le "compteur image" ne se remet pas à zéro lui. (la j'en suis à "Image 344" et il n'y en que quelques unes dans le classeur, mais pas 344 !)

Merci bien.

Hulk.

 

[job75]

Re : Pas de ToggleButton dans barre Formulaire ?

Bonjour à tous,

J'avais fait ça :

Sub Efface_Image()
Dim p As Object
For Each p in ActiveSheet.Pictures
If p.Name Like "Image*" Then p.Delete
Next
End Sub

A+

 

[tora]

Re : Pas de ToggleButton dans barre Formulaire ?

Hello,

Merci de me répondre Tora !

J'ai essayé ton code, et il n'efface... plus rien 😀

Pourtant il a l'air correct et les images se nomment bien Image 1, Image 2 etc. jusqu'à pff car apparemment même en effacant les images, le "compteur image" ne se remet pas à zéro lui. (la j'en suis à "Image 344" et il n'y en que quelques unes dans le classeur, mais pas 344 !)

Merci bien.

Hulk.

ici (Japon) se fait tard ... suite demain, cependant si tu me passe
ton classeur je veux bien y jetter 1 oeil ou 2 pourquoi pas.

 

[Hulk]

Re : Pas de ToggleButton dans barre Formulaire ?

Hello Forum, Tora, Job,

Ok Tora no prob, au fait le classeur se compose simplement d'un CommandButton, un ToggleButton et de une ou deux images.

Salut Job, j'ai essayé ton code et idem, il n'efface rien 😕
Unbelievable !

Bonne fin de journée à toi Job et bonne nuit à Tora 😀

Cdt, Hulk.

 

[job75]

Re : Pas de ToggleButton dans barre Formulaire ?

Re Hulk,

Je suppose que tu as vérifié que la propriété Name de tes images commence par Image.

Alors c'est plus que bizarre, y a un truc derrière tout ça.

A+

 

[Pierrot93]

Re : Pas de ToggleButton dans barre Formulaire ?

Bonsoir à tous

peut être ainsi :

Option Explicit
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then s.Delete
Next s
End Sub

bonne soirée
@+

 

[Pierrot93]

Re : Pas de ToggleButton dans barre Formulaire ?

Re

ou bien également ainsi :

Feuil1.Pictures.Delete

@+

aarf, j'avais zappé le premier post... désolé.

 

[Hulk]

Re : Pas de ToggleButton dans barre Formulaire ?

Re,

C'est bien comme ça que je dois mettre le code ??

Sub Efface_Image()
Dim p As Object
For Each p In ActiveSheet.Pictures
If p.Name Like "Image*" Then p.Delete
Next
End Sub

Et tu dis "la propriété de Name de tes images commence par Image"... oui elles se nomment bien "Image ***" donc il y a un espace entre Image et son numéro.

J'ai même essayé comme ceci avec l'espace entre Image et *

Sub Efface_Image()
Dim p As Object
For Each p In ActiveSheet.Pictures
If p.Name Like "Image *" Then p.Delete ' Avec espace entre Image et *
Next
End Sub

Et non, il n'efface tjrs rien !

Je ne comprends pas, dois-je activer une référence particulière ou autre ?

Merci.

@+, Hulk.

 

[Pierrot93]

Re : Pas de ToggleButton dans barre Formulaire ?

Re

regarde mon code de 17h30, pas sur que tu ais vu mon post...

 

[Hulk]

Re : Pas de ToggleButton dans barre Formulaire ?

Re,

En effet pas vu ton poste Pierrot.

Ca joue impec avec ta première version !! 😀

Bravo et merci à tous les chefs !

@+, Hulk.