Erreur 5 sur une macro "if no intersect "

[MrBMCi]

Bonjour a tous ,

J'ai grâce a votre aide réalisé une macro qui ce déclenche lors d'un choix sur une liste déroulante :

Private Sub Worksheet_Change(ByVal Target As Range)



If Not Intersect(ActiveCell, [C5]) Is Nothing Then
Select Case Target
Case "Inverseur": Affichage
Case "Non-inverseur": Affichage
Case "Suiveur": Affichage
Case "Sommateur-inverseur": Affichage
End Select
End If

Le code en lui même fonctionne , la macro s'exécute lors d'un choix avec la listre comme prévu .

En revanche quand je déclenche une autre macro sans lien apparent j'ai une erreur 5 sur la premiére ligne de ce code .

Une idée de ce qui pourrait clocher ?

 

[Pierrot93]

Re : Erreur 5 sur une macro "if no intersect "

Bonjour,

modifie peut être comme suit :

If Target.Address <> "$C$5" Then Exit Sub
Select Case Target
Case "Inverseur": Affichage
Case "Non-inverseur": Affichage
Case "Suiveur": Affichage
Case "Sommateur-inverseur": Affichage
End Select
End If

bon après midi
@+

 

[MrBMCi]

Re : Erreur 5 sur une macro "if no intersect "

Tous fonctionne maintenant , je te remercie .