Supprimer un shape avec le même nom sur plusieurs onglets

Fermé

anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022 - 12 août 2017 à 22:19
yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 13 août 2017 à 23:27

Bonjour aux pro de VBA.

J'ai un soucis.

J'ai un menu déroulant sur un onglet de 12 positions sur lequel en double cliquant je selectionne une image que je renomme "PHOTO" sur tous les onglets du dossier.

Je souhaite pouvoir supprimer cette image renommée (et uniquement celle-ci, car j'ai des boutons et d'autres photos sur d'autres onglets), si je selectionne une nouvelle position sur mon menu déroulant puis en double cliquant.

J'ai actuellement une formule qui fonctionne lors de la première selection.
lors de la seconde selection, j'ai des superpositions d'images et à la troisième j'ai un message d'erreur.
Voici des extraits de ma macro

Macro de la première page pour inclure l'image (pour les autres pages c'est pareil

Dim a As Integer
Dim Sh1 As Shape

For a = 1 To Worksheets.Count
    If Worksheets(a).Name = "1 - Page de garde" Then
    
        For Each Sh1 In Worksheets("1 - Page de garde").Shapes
 
            If Sh1.Name = "PHOTO" Then ActiveSheet.Shapes("PHOTO").Delete

        Next Sh1
    
        If Sheets("Information").Range("AAN8").Value = "1" Then
        Worksheets("Photos").Visible = True
        Sheets("Photos").Select
        ActiveSheet.Shapes.Range(Array("Pix_1")).Select
        Selection.Copy
        ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
        Sheets("1 - Page de garde").Select
        Range("$K$5").Select
        ActiveSheet.Pictures.Paste.Select
        Selection.ShapeRange.Height = 100
        Selection.Name = "PHOTO"
        Worksheets("Photos").Visible = False
        
        ElseIf Sheets("Information").Range("AAN11").Value = "2" Then
        Worksheets("Photos").Visible = True
        Sheets("Photos").Select
        ActiveSheet.Shapes.Range(Array("Pix_2")).Select
        Selection.Copy
        ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
        Sheets("1 - Page de garde").Select
        Range("$K$5").Select
        ActiveSheet.Pictures.Paste.Select
        Selection.ShapeRange.Height = 100
        Selection.Name = "PHOTO"
        Worksheets("Photos").Visible = False
        End If
        
    End If
Next a

Merci d'avance

A voir également:

Supprimer un shape avec le même nom sur plusieurs onglets
Comment supprimer une page sur word - Guide
Supprimer compte instagram - Guide
Restaurer onglets chrome - Guide
Comment recuperer un message supprimé sur whatsapp - Guide
Nom de l'adresse - Forum Réseaux sociaux

3 réponses

Réponse 1 / 3

yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 août 2017 à 23:27

essaie d'éviter ceci

Sheets("Photos").Select
        ActiveSheet.Shapes.Range(Array("Pix_1")).Select
        Selection.Copy

fais plutôt:

Sheets("Photos").Shapes.Range(Array("Pix_1")).Copy

en règle générale, évite les

.select

et les

Active

Réponse 2 / 3

yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 août 2017 à 11:19

bonjour, quel message d'erreur, sur quelle ligne?

Réponse 3 / 3

anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022
13 août 2017 à 21:39

Merci tout d'abord d'essayer de m'aider.

Je mets un lien de mon document simplifié.

il suffit de choisir le modèle (de 1 à 12) d'image avec la case F8 puis double click. Faire l'opération 2 autres fois pour avoir le message d'erreur dans le module 01

http://www.cjoint.com/c/GHntzeuELy7

Cordialement

yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 août 2017 à 23:04

le code suivant me semble faux:

For Each Sh4 In Worksheets("4.0 - Welding").Shapes
 
    If Sh4.Name = "PHOTO" Then ActiveSheet.Shapes("PHOTO").Delete

Next Sh4

pourquoi pas:

For Each Sh4 In Worksheets("4.0 - Welding").Shapes
 
    If Sh4.Name = "PHOTO" Then Sh4.Delete

Next Sh4

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Comment trouver un numéro à partir du nom et prénom

Trouver un nom avec une adresse

Comment trouver une adresse avec un nom de famille ?

Discussions similaires

Newsletters