Discussion :

[mikael2403]

Bonjour,

Je cherche de l'aide concernant un code VBA.
J'ai trouvé différents échanges sur le forum mais pas de solutions.

J'ai une feuille Active avec un Bouton qui active la macro ci-dessous.
Le but est de copier en dernier une feuille masquée nomée "TRAME_PERIODE" en changeant le nom mais de vérifier que le nom entré dans l'inputbox n'est pas une feuille déjà existante.
J'ai un message d'erreur qui m'indique "Erreur d'exécution '438' : Propriété ou méthode non gérée pour cet objet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CREER_PERIODE_Click()
 
    Dim periode As String
    Dim WS As Worksheet
    Dim WSname As String
 
    periode = InputBox("Veuillez entrer le nom de votre Période")
 
    For Each WS In Worksheets
        If WS.Name = periode Then
            MsgBox ("Cette période existe déjà, merci d'entrer un autre nom")
            Exit Sub
        End If
    Next
    Sheets("TRAME_PERIODE").Visible = True
    Sheets("TRAME_PERIODE").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = periode
    ActiveSheet.Unprotect
    Selection.OnAction = "ACCUEIL"
    Range("A3").Select
End Sub

Avez-vous une solution ou une modification de mon code ?

Je vous remercie de votre aide.

Mikael

[Manu3100]

Bonjour,

Je pense que ton erreur viens de cette ligne:

Code :

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

ActiveSheet.Unprotect

Normalement c'est :

Code :

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

ActiveSheet.Unprotect Password:="YourPassWord"

[mikael2403]

Bonjour Manu3100,

Je te remercie pour ta réponse.

Ma feuille n'est pas protégé par un mot de passe. Elle est juste vérrouillée.

Cdt,
Mikael2403

[Manu3100]

Ok, j'ai telecharge ton fichier et l'erreur vient de cette ligne:

Code :

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

Selection.OnAction = "ACCUEIL"

Je ne suis pas sure de ce que tu veux faire, mais si tu veux juste revenir sur l'onglet ACCUEIL, tu n'as juste a la changer par:

Code :

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

Sheets("ACCUEIL").Select

Et la macro fonctionne sans probleme

[mikael2403]

En fait ce que je souhaite dans la fonction Selection.OnAction = "ACCUEIL" c'est d'affecter une macro nommée ACCUEIL à un bouton retour déjà créé.

Ce n'est peut être pas le bon code. :-(

[Manu3100]

J'ai compris, ca marche pour moi donc j'espère que ca va être la meme pour toi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CREER_PERIODE_Click()
 
    Dim periode As String
    Dim WS As Worksheet
    Dim WSname As String
    Dim wb As Workbook
    Dim objBtn As Object
 
    Set wb = ThisWorkbook
 
    periode = InputBox("Veuillez entrer le nom de votre Période")
 
    For Each WS In Worksheets
 
            If WS.Name = periode Then
 
                    MsgBox ("Cette période existe déjà, merci d'entrer un autre nom")
                    Exit Sub
 
            End If
 
    Next
 
    Sheets("TRAME_PERIODE").Visible = True
    Sheets("TRAME_PERIODE").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = periode
    ActiveSheet.Unprotect
 
     Set objBtn = ActiveSheet.Shapes("Button 1")
    objBtn.OnAction = "ACCUEIL"
 
    wb.ActiveSheet.Range("A3").Select
 
End Sub