Problème dans code VBA

Bonjour à tous,

Je travaille sur une macro, mais je rencontre une erreur dans mon code.

Le problème semblerait venir d'un "if". Mais je ne parviens pas à trouver le mauvais positionnement de celui-ci.

Private Sub CommandButton13_Click()
'MRI : je rajoute un test sur la présence du verrou ou non
If SheetExists(nomWSHisto) Then
    ModeVerrou = ActiveWorkbook.Worksheets(nomWSHisto).Cells(2, 2)
        If ModeVerrou = "Roue Libre" Then
            CAT2_autoFIT.Hide
            CAT2_Valeurs_IF.Show
        ElseIf ModeVerrou = "Verrou Total" Then
            If (Msgbox("Attention ! Le classeur est actuellement verrouillé. Après cette action, le classeur sera automatiquement déverrouillé. Voulez vous continuer ?", vbYesNo, "Confirmation de déverrouillage") = vbYes) Then
                Call Verrou_BoucleDeverrou("", "", True)
                CAT2_autoFIT.Hide
                CAT2_Valeurs_IF.Show
            End If
        End If
End If
End Sub

Merci par avance pour votre aide.

Bonjour,

Merci de détailler l'erreur : code d'erreur, message affiché, résultat inattendu ou incohérent ?

Quelle ligne est surlignée par le débogueur lors de l'exécution de la macro ?

Merci pour votre réactivité.

Je n'ai pas de message d'erreur.

Cependant que je souhaite effectuer un verrou total

 ElseIf ModeVerrou = "Verrou Total" Then

Je n'ai pas de MsgBox me prévenant que :

If (Msgbox("Attention ! Le classeur est actuellement verrouillé. Après cette action, le classeur sera automatiquement déverrouillé. Voulez vous continuer ?", vbYesNo, "Confirmation de déverrouillage") = vbYes) Then

Je ne sais pas si ça peut vous aider.

Ca me semble très lié au contenu de votre fichier, est-il possible de joindre un classeur exemple ?

Bonjour,

Vérifies l'orthographe dans tes cellules B2 que ça corresponde bien avec "Roue Libre" et "Verrou Total", peut être un espace parasite !

Malheureusement je n'ai pas l'autorisation de divulguer des fichiers.

Et l'orthographe semble être correcte, sans espace apparent.

D'autres idées ?

Merci à vous 2 !

Malheureusement je n'ai pas l'autorisation de divulguer des fichiers.

Et l'orthographe semble être correcte, sans espace apparent.

D'autres idées ?

Merci à vous 2 !

Salut Theze !

@Tortank : Essaye avec un autre texte (remplace "Verrou Total" par "Test" dans le code et dans le classeur) pour commencer.

Il y a toujours 'Verrou Total' écrit dans la cellule B2 quand je verrouille le fichier.

J'ai l'impression qu'il ne prend pas en compte le faite qu'il soit écrit "Test"

J'ai trouvé par moi même.

Merci pour votre aide

Rechercher des sujets similaires à "probleme code vba"