Lancement automatique de macro

[papypog]

Bonjour,

Voici mon problème.

Dans une feuille de mon classeur j'ai mis le code suivant :

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

 

[phlaurent55]

Re : Lancement automatique de macro

Bonjour papypog

fais un essai en mettent ton code dans une procédure Calculate

Private Sub Worksheet_Calculate()
.............. ton code
End Sub

à+
Philippe

Édit: ou alors met le fichier en pièce jointe pour plus de compréhension

 

[papypog]

Re : Lancement automatique de macro

Re,

Merci pour cette réponse rapide.

Ci-joint le fichier.

Il faut impérativement que la macro ne se lance qu'après modification de cellule.