Microsoft Excel 2007 Vba

Résolu
Salut le Forum, j'ai un code qui fonctionne parfaitement quand je me trouve dans le classeur . Mais une fois que je ferme excel et que j'ouvre le fichier le code est toujours présent mais ne s'exécute pas. Voila le code et le Fichier :

Private Sub Worksheet_Change(ByVal Target As Range)  
     
      If Range("G" & Target.Row) = 0 Then MsgBox "Le stock est nul", vbCritical, "ATTENTION"
      If Range("G" & Target.Row) < 0 Then MsgBox "Le stock est négatif", vbCritical, "ATTENTION"
      Beep
      Beep
    End Sub


Help me please

4 réponses

  1. Contributeur
    Bonjour,
    Ton code aurais déjà meilleur allure comme...
    Private Sub Worksheet_Change(ByVal Target As Range)  
        If Range("G" & Target.Row) = 0 Then  
            MsgBox "Le stock est nul", vbCritical, "ATTENTION"  
            Beep  
        ElseIf Range("G" & Target.Row) < 0 Then  
            MsgBox "Le stock est négatif", vbCritical, "ATTENTION"  
            Beep  
        End If  
    End Sub

    Et je ne vois pas pourquoi ça ne fonctionnerais plus ?
    Voir s'il n'y a pas du code dans WorkBook_Open ?
    Dans quel module est ce code ?
    Tu a sauvé le classeur en mode pour macro ? Classeur.xlsm (et pas xlsx)
    Tu dis.
    Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
    NOTE : Je ne répond pas aux MP pour les questions techniques.
    0
    1. Ouais en xlsm. Mais a chaque fois a l'ouverture du fichier on me demande si je veux activer les macro. Comment faire pour qu'on me demande plus cela mais que mes macros soit activés a chaque démarrage.
      0
      1. Contributeur
        Ouais... et ta politesse.. elle est restée où ?
        Elle pourrait peut-être venir en chantant !!
        Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
        NOTE : Je ne répond pas aux MP pour les questions techniques.
        0
        1. Desolé L'ami. Excuse moi encore. Problème résolu!!!
          0