Discussion :

[retraite83]

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éé

[MarcelG]

Bnjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If

imbriqués, utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Select Case

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case

Ca dans une doc je vais trouver

[MarcelG]

Salut,

Méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Unprotect Password:="lemotdepasse"

Idem en fin de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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")

[Menhir]

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

[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.

[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.