select macro avec "case"

[CB60]

Bonjour le Forum
Ou est l'erreur de la macro.

Private Sub Worksheet_Change(ByVal Target As Range)
'permet de lancer une macro avec une liste déroulante en "f2"
If Not Application.Intersect(Target, Range("f2")) Is Nothing Then
Select Case Target.Value
Case 1
Call H_Tableau
Case 2
Call B_Tableau
Case 3
Call LigneMiseaJour
Case 4
Call F_NOM
Case Else
Exit Sub
End Select
End If
End Sub

Si je lance les macros manuellement elles fonctionnent et si je les selectionnes par la liste déroulante rien ne ce passe.
Pouvez vous me dire Pourquoi?
Merci
Bruno

 

[CB60]

Re : select macro avec "case"

re
Bonjour à tous
dans ma liste déroulante je ne selectionne pas des chiffres mais le nom de la macro, cela doit être pour cela. je souhaite visualiser les noms de macro car ils veulent dire quelques choses, c'est vrai que lorsque je mets 1;2;3;4 dans ma liste de validation cela fonctionne.
Avez vous une idée?
Bruno

 

[CB60]

Re : select macro avec "case"

Re
merci Tatiak, j'avais essayé un truc comme ça mais j'avais oublié les "...".
Bon dimanche et encore merci.
Bruno