CB60
XLDnaute Barbatruc
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
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