Test changement automatique (calcul) valeur

Peyo -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour à tous,

Merci d'avance pour votre aide !

En A1, j'ai une formule qui me donne un résultat numérique variable (calculé à partir des valeurs de très nombreuses autres cellules).
Je cherche à faire le test : "si la valeur de A1 change, alors ...".

Le code suivant fonctionnerait si je modifiai manuellement (en sélectionnant) la valeur de A1 : 
If Target.Address = "$A$1" Then


Je pourrais utiliser le test précédent pour toutes les cellules utilisées pour le calcul de A1, or c'est précisément ce que je cherche à éviter car elles sont très nombreuses (il me faudrait donc autant de tests que de cellules utilisées dans le calcul !).
Je soupçonne que la solution est extrêmement simple, mais quelqu'un pourrait-il m'éclairer ?

MERCI BEAUCOUP :D !

2 réponses

  1. Peyo
     
    Rebonjour à tous !

    Alors, personne ne voit comment faire ?

    Merci beaucoup d'avance !
    0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    je ne sais pas si j'ai bien compris, mais il me semble qu'il te faut tester un changement dans les cellules utilisées par ta formule et si oui, appliquer ta formule
    un exemple où une modif dans les cellules A1 ou B1 ou C1 recalcule D1 

    Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("A1:C1"), Target) Is Nothing Then
    [D1].Value = [A1] + [B1] + [C1]
  End If
End Sub

    bonne suite
    0