Bonjour,
Voici mon problème.
Dans une feuille de mon classeur j'ai mis le code suivant :
Lorsque je change la valeur de la cellule "L1" manuellement tout fonctionne parfaitement.
Par contre si cette même cellule est modifiée via des "Cases d'options" qui elles-mêmes modifient la valeur de la cellule "L1" rien ne se passe ; que faut-il modifier ?
Merci de m'expliquer lentement, mes neurones sont usagés
Voici mon problème.
Dans une feuille de mon classeur j'ai mis le code suivant :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("$L$1")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Target.Value = 1 Then
Call importlundi
End If
If Target.Value = 2 Then
Call importmardi
End If
If Target.Value = 3 Then
Call importmercredi
End If
If Target.Value = 4 Then
Call importjeudi
End If
If Target.Value = 5 Then
Call importvendredi
End If
If Target.Value = 6 Then
Call importsamedi
End If
End If
End Sub
Lorsque je change la valeur de la cellule "L1" manuellement tout fonctionne parfaitement.
Par contre si cette même cellule est modifiée via des "Cases d'options" qui elles-mêmes modifient la valeur de la cellule "L1" rien ne se passe ; que faut-il modifier ?
Merci de m'expliquer lentement, mes neurones sont usagés