Script VBA ne marche quand je créer un module

Bonjour je viens vers vous pour trouver une solution.

Quand je créer un script VBA dans un module, il fonctionne pas. Mais dès que j'insère le script dans le fichier feuil 1, le script s’exécute et affiche la boite de dialogue.

Le fichier est en xlms :

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Définir la cellule de test comme A1
    Dim CelluleTest As Range
    Set CelluleTest = Me.Range("A1")

    ' Vérifier si le changement se trouve dans la cellule de test
    If Not Intersect(Target, CelluleTest) Is Nothing Then
        ' Afficher un message de test
        MsgBox "La cellule A1 a été modifiée !"
    End If
End Sub

Bonjour,

Avant d'aller plus loin, c'est quoi cette extension "Xlms"? Ne serait-ce pas plutôt "Xlsm" !

Cdlt

Oui c'est du xlsm. Je me suis trompé.

La macro n'est pas au bon endroit.

Si la solution vous convient, passez le sujet en "Résolu".

Cdlt

Je vous remercie de votre réponse. Que dois-je faire pour que ça marche déplacer le module dans le fichier Microsoft objet Excel ? Ou modifier le code ?

Je suis débutant en excel, si vous pouvez m'éclairer à ce sujet ça va beaucoup m'aider

il faut copier le code dans le module de la "feuil1" et pas dans un module standard.

Sur l'image que j'ai fourni, , j'ai entouré le module de la "feuil1" et barré le module1 standard.

Donc vous copiez le code qui se trouve actuellement dans le module1 et le coller dans le module "Feuil1" puis vous pouvez supprimer le module1 (en répondant NON à la question qui vous sera posée").

Essayez de le faire de par vous-même sinon voici le fichier.

D'accord merci de votre aide !

Bonjour,

Il faut quand même dire que tout ce code ne sert pas à grand chose :

Vous pouvez le remplacer par :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then MsgBox "La cellule A1 a été modifiée !"
End Sub

Dans ce type de code Target est toujours le déclencheur de la macro donc faire un isNothing entre CelluleTest et Target est inutile.

A+