Hello tout le monde,

J'ai créé une macro qui a l'air de pas trop mal fonctionner mais le problème vient plutôt du fait que je ne sais pas comment la déclencher quand je veux.

En fait, en complétant différent tableaux, je calcule une somme et en fonction du résultat de cette somme, ma macro doit rentrer en jeu. A chaque fois que la somme change, la macro doit refonctionner.

Y-a-t-il une fonction qui permettrait de détecter les changements de valeur de la cellule et à chaque changement lancerait la macro?

J'espère avoir été assez clair et merci beaucoup !!!!!!

bonjour

tiens voici un exemple pratique

 Si un contenu en cellule A1 alors appel de la macro nommée Copie

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$A$1" Then Call copie
End Sub

Bonjour,

Dans Feuil1, mets la macro :

Public AncienneSomme As Currency, Fois1 As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If Fois1 = False Then
Fois1 = True
AncienneSomme = Cells(4, 1)
MsgBox "Ancienne somme = " & AncienneSomme
Exit Sub
End If

If Cells(4, 1) <> AncienneSomme Then
AncienneSomme = Cells(4, 1)
MsgBox "Nouvelle somme = " & AncienneSomme
Call SuiteTraitement
End If

End Sub

Dans Module1, mets l'autre macro :

Sub SuiteTraitement()
MsgBox "Le traitement se poursuit car la somme a changé !"
End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj201007/cijs1mfZjM.xls

Merci beaucoup pour vos réponses !

J'ai testé la solution de Marmotte qui marche bien, il y a juste un petit problème, c'est que ca ne fonctionne pas pour le premier changement effectué. En effet, je pense que le premier changement doit initialiser la valeur 'ancienne somme' et donc ca ne lance pas ma macro.

Quelqu'un a-t-il une idée ? Merci !

Bonsoir kezav,

Tu as raison, il y a un bug sur le fonctionnement. J'ai fait des corrections et voilà le résultat des courses :

Dans Feuil1, mettre le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(4, 1) <> AncienneSomme Then
AncienneSomme = Cells(4, 1)
MsgBox "Nouvelle somme = " & AncienneSomme
Call SuiteTraitement
End If

End Sub

Dans ThisWorkbook, mettre le code :

Private Sub Workbook_Open()
AncienneSomme = Cells(4, 1)
MsgBox "Valeur de la somme à l'ouverture du classeur = " & AncienneSomme & " => aucune macro n'est lancée !"
End Sub

Dans Module1, mettre le code :

Public AncienneSomme As Currency

Sub SuiteTraitement()
MsgBox "Une macro est lancée car la somme a changé !"
End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj201007/cijmxZwqlj.xls

Super !

Ca marche super bien

Un grand merci à Marmotte !!!