Exécuter macro quand valeur cellule a changé

[doclefou]

Bonsoir à tous,

Je viens vers vous afin d'avoir de l'aide sur un de mes fichiers Excel.

A partir d'un automate, je transfère des données dans un classeur Excel. Je voudrai copier une feuille nommée Lot0 quand la valeur de la cellule K13 est égale à 1.

J'ai fait une macro de copie de feuille qui est renommée avec la date et l'heure. Cela fonctionne bien quand j'éxécute la macro, mais je voudrai qu'elle soit éxécutée quand la cellule K13 reçoit la valeur 1.
La macro remet à vide la cellule K13 une fois que la feuille Lot0 est copiée et renommée
La valeur 1 est envoyée par l'automate quand une suite d'opérations est faite par l'automate.

J'ai recherché sur le net et sur ce forum, j'ai trouvé des sujets avec private sub Worksheet_Change (BaVal Target as range)... Mais impossible de les appliquer à mon fichier.

Je vous joins mon fichier avec juste la feuille Lot0 (à copier) et la macro de copie.

Merci de m'aider.

Cordialement,

Doc Le Fou

 

[MichD]

Re : Exécuter macro quand valeur cellule a changé

Bonjour,

Fais un clic droit sur l'onglet de ta feuille, commande : Visualiser le code
et copie ce code dans le module de la feuille :

Ce code appelle la macro déjà présente dans le module1 de ton classeur.

'-------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("K13").Address Then
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target = 1 Then
Call Module1.Copie
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'-------------------------------------------