Mon code VBA n'est plus reconnu ?

Hello le forum!

J'étais tout content du code VBA que vous m'avez aidé à produire et je l'ai utilisé sans problème plusieurs jours mais il y a une heure le code s'est arrêté de fonctionner

Sans raison et sans que ça ouvre la fenêtre de debogage (?)

Je ne comprends pas car rien a changé! Les deux feuilles sur lesquelles il y avait du code ne fonctionnent plus.

Voici le code d'une des feuilles pour info :

Private Sub Worksheet_Change(ByVal Target As Range)
'
'On facilite la saisie de l'utilisateur en préremplissant certaines cellules
'
'Permet de supprimer une plage de cellule sans que ça bug
If Selection.Count > 1 Then Exit Sub
'
Application.EnableEvents = False
'
'Extensions
If Not Intersect(Target, Range("E16")) Is Nothing Then
    [E17] = IIf(Target = "Oui", "Oui", "NA")
    [E18] = IIf(Target = "Oui", "Non", "NA")
End If
'
'Types d'article
If Not Intersect(Target, Range("C22:C50")) Is Nothing Then
'Clés
    If Target.Value = "Clé" Then Target.Offset(0, 2).Resize(1, 4).Value = "NA"
'Cylindres
    If Target.Value = "Cylindre" Then Target.Offset(0, 4) = "Standard (Laiton nickelé satiné)"
End If
'
'Articles
If Not Intersect(Target, Range("D22:D50")) Is Nothing Then
    If Target.Value = "Double entrée" Then Target.Offset(0, 1).Resize(1, 2).Value = 31.5
    If Target.Value = "Bouton" Then Target.Offset(0, 4) = "Standard (forme H)"
    If Target.Value = "Demi-cylindre" Then
        Target.Offset(0, 1) = 10
        Target.Offset(0, 2) = 31.5
        Target.Offset(0, 4) = "NA"
    End If
End If
'
Application.EnableEvents = True
'
'
End Sub

Si quelqu'un a une idée je suis preneur

Vip4rk

Je viens de voir que j'avais plusieurs "projets VBA" (voir fichier en PJ) mais je ne comprends pas bien pourquoi? Est-ce lié?

Vip4rk

Up ! Je suis toujours dans l’incompréhension, personne n’a une idée ?

Vip4rk

bonsoir,

1) si tu as plusieurs projets VBA, c'est parce que tu as plusieurs classeurs ouverts,

2) si le code ne s'exécute plus, c'est peut-être parce que le gestionnaire d'événements est désactivé, ce qui peut arriver si tu as eu une erreur dans la macro ou si tu l'as interrompue.

Pour résoudre ce problème

soit tu fermes et tu rouvres ton classeur

soit tu exécutes la macro suivante

sub eventon()
application.enablevents=true
end sub

Hello @h2so4,

Merci pour ton aide.

J'ai réouvert mon fichier aujourd'hui et ça refonctionnait nikel...

Je ne comprends pas!

En tout cas je garde tes tips pour la prochaine fois au cas ou

(par contre pour les projets VBA je n'avais pas d'autres fichiers ouverts justement... Mais maintenant c'est de nouveau normal j'en ai plus qu'un!)

Merci encore en tout cas.

Vip4rk