Bonjour, j'ai une séquence de Delete Shape qui fonctionnait bien et qui ne marche plus :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sheets("Modele").Copy After:=Worksheets("Modele")
            With ActiveSheet
            .Name = "SIG"
                    If Param.Range("D2") = user Then    ' si User, autorisation restreinte
                    .Shapes("Parchemin*: horizontal 7").Delete
                    .Shapes("Parchemin*: horizontal 6").Delete
                    Else
                        If Param.Range("D2") = superuser Then    ' si SuperUser, autorisation moins restreinte
                            .Shapes("Parchemin*: horizontal 7").Delete
                        Else    ' Admin
                        End If
                    End If
            End With
J'ai bien vérifié, les boutons ont toujours le même nom, l'erreur survient sur le premier Shapes avec le message :
Erreur d'exécution (80070057)
La valeur tapée est en dehors des limites
Je n'ai aucune idéé