Problème dans code VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 09:00

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.
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'934
Appréciations reçues : 401
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 22 novembre 2019, 09:18

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 de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 09:39

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.
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'934
Appréciations reçues : 401
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 22 novembre 2019, 09:43

Ca me semble très lié au contenu de votre fichier, est-il possible de joindre un classeur exemple ?
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 22 novembre 2019, 09:55

Bonjour,

Vérifies l'orthographe dans tes cellules B2 que ça corresponde bien avec "Roue Libre" et "Verrou Total", peut être un espace parasite !
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 10:13

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 !
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'934
Appréciations reçues : 401
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 22 novembre 2019, 10:17

Tortank a écrit :
22 novembre 2019, 10:13
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.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 10:22

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"
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 11:21

J'ai trouvé par moi même.

Merci pour votre aide :)
T
Tortank
Membre habitué
Membre habitué
Messages : 62
Inscrit le : 22 novembre 2019
Version d'Excel : 2016

Message par Tortank » 22 novembre 2019, 11:21

:btres:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Problème code VBA doublon et autre code VBA
    par Marius07 » 13 avril 2018, 23:51 » dans Excel - VBA
    2 Réponses
    313 Vues
    Dernier message par Marius07
    14 avril 2018, 09:27
  • Probleme code if-then-else
    par maxgib » 12 mai 2016, 09:16 » dans Excel - VBA
    8 Réponses
    99 Vues
    Dernier message par maxgib
    12 mai 2016, 11:10
  • Problème code
    par aude21 » 28 mars 2017, 14:12 » dans Excel - VBA
    1 Réponses
    61 Vues
    Dernier message par curulis57
    2 avril 2017, 05:26
  • Probleme Code
    par poutch89 » 6 janvier 2015, 22:34 » dans Excel - VBA
    6 Réponses
    113 Vues
    Dernier message par poutch89
    7 janvier 2015, 09:18
  • Probleme de code
    par Richard58 » 8 janvier 2020, 15:59 » dans Excel - VBA
    8 Réponses
    97 Vues
    Dernier message par AFEH
    24 janvier 2020, 12:35
  • Problème de code
    par AugustinAuburtin » 11 août 2014, 10:43 » dans Excel - VBA
    5 Réponses
    122 Vues
    Dernier message par EngueEngue
    11 août 2014, 14:59