Suppression photo et bouton [Résolu]

[stéphanie123]

Bonjour à tous,

Une fois n’est pas coutume, je vous sollicite pour un petit problème. J’ai créé un fichier qui me permet d’importer des photos et qui me les intègre dans mon fichier. Cette application fonctionne très bien. Les fiches remplies sont ensuite converti en PDF et imprimer. J’ai créé un troisième bouton pour pouvoir effacer la fiche (page vierge). Le problème que je rencontre et que cela m’efface tout (très bien) mais si je n’ai plus de photo affichée et que je clique par inadvertance sur le bouton effacé cela m’efface les boutons un après l’autre (combox).
Quelqu’un a déjà rencontré ce problème ? Si vous avez une solution je suis preneur…

Merci d’avance pour votre aide…

Voici le bout de code pour supprimer la photo

Code :

1
2
3
4
5
6
7
8
9
10
Dim g As Variant
    For Each g In ActiveSheet.Shapes
    If g.Type = msoPicture Then
        g = ActiveSheet.Pictures.Count()
        ActiveSheet.Pictures(g).Select
        Selection.Delete
        Exit Sub
        End If
        Next g
End Sub

[mercatog]

Code :

1
2
3
4
5
Dim G As Shape
 
For Each G In ActiveSheet.Shapes
    If G.Type = msoPicture Then G.Delete
Next G

[stéphanie123]

Enfin cela fonctionne!!!! Merci

Cela ne m'efface plus les boutons mais j'ai le logo de ma boite qui s'efface aussi.
Je vais réflichir de mon côté...

[mercatog]

Code :

1
2
3
4
5
6
7
Dim G As Shape
 
For Each G In ActiveSheet.Shapes
    If G.Type = msoPicture Then
        If G.Name <> "Picture 5" Then G.Delete '"Picture 5" le nom de ton Logo
    End If
Next G