Séquence de Delete Shape KO

Version imprimable

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

Code:

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 :

Citation:

Erreur d'exécution (80070057)
La valeur tapée est en dehors des limites

Je n'ai aucune idéé

29/06/2018, 14h42
MarcelG

Bnjour,

Peut-être 1 protection de feuille.
Plutôt que des

Code:

If

imbriqués, utiliser la méthode

Code:

Select Case
29/06/2018, 15h04
retraite83
Merci, oui c'est cela j'ai protégé récemment mes feuilles contre les mauvaises manips…
En déprotégeant plus de pb...

Comment désactiver la protection d'une feuille avec VBA puis la ré-activer le temps de faire ce que j'ai besoin ?
quelque chose dans ce style
Code:

1 2 3 4 5 On Error GoTo EndHandler Application.EnableEvents = False …. EndHandler: Application.EnableEvents = True
Je vais voir pour remplacer mes imbrications de IF par

Select Case

Code:

Select Case

Ca dans une doc je vais trouver
29/06/2018, 15h12
MarcelG
Salut,

Méthode
Code:

1 2 .Unprotect Password:="lemotdepasse"
Idem en fin de procédure

Code:

.Protect Password:="lemotdepasse"

Pour ma part, je préfère identifier les paramètres, comme pour d'autres méthodes (Save...)
J'évite donc
.Unprotect("lemotdepasse")
29/06/2018, 15h22
Menhir

Citation:

Envoyé par retraite83

Comment désactiver la protection d'une feuille avec VBA puis la ré-activer le temps de faire ce que j'ai besoin ?

https://msdn.microsoft.com/fr-fr/lib.../ff840611.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff841143.aspx
29/06/2018, 15h36
MarcelG

Il est vrai que le site de Microsoft présente toutes les Méthodes et Propriétés pour chaque objet.
De façon claire.
Personnellement, j'ai toujours un peu de mal à me retrouver dans l'explorateur d'objet du VBE.
Plutôt que d'indiquer la méthode ou la propriété, indiquer le lien Microsoft.
OK Menhir.
29/06/2018, 15h50
Menhir

Perso, dans les favoris de mon explorateur Internet, j'ai la page des membres de Application, Workbook, Worksheet et Range.
Ca permet très rapidement de trouver quelle propriété ou quelle méthode peut faire ce que je souhaite, avec syntaxe, paramètres et explications.