Exécuter macro quand cellule remplie

Bonjour à tous,

J'ai 3 cellules (B2, B3 et B4) qui sont des variables, susceptible de changer selon ma guise. Avec ces 3 variables j'ai une formule qui me détermine une valeur en A30. J'ai déjà formulé la macro pour lancer une valeur cible, mais je l'active au moyen d'un bouton.

J'aimerais que cette macro s'active directement quand les 3 cellules sont remplies ou modifiées sans avoir besoin d'appuyer sur le bouton macro.

Sub Diamminimal()
'
' Diamminimal Macro

'Valeur cible à atteindre B2 en H30 et A30 valeur qui change
'il y a une formule entre A30 et H30 en fonction de 3 valeurs B2, B3 et B4

    Range("H30").GoalSeek Goal:=Range("B2"), ChangingCell:=Range("A30")
End Sub

En espérant que j'ai été clair, merci de votre aide!

Benjy08

Bonjour benjy08,

A essayer, code à mettre dans la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)()
    If Range("B2") <> "" And Range("B3") <> "" And Range("B4") <> "" Then
        Call Diamminimal
    End If
End Sub

Cordialement,

Bonjour IronBoule,

En insérant votre code cela ne fonctionne pas comme espérer.

C'est à dire que si je remplis mes 3 cellules et que ensuite je les modifie une nouvelle fois, les changements ne se font pas plus loin dans les autres formules.

Je vous joints le fichier, au cas où:

J'ai corrigé, a essayer, normalement cela devrait être bon

C'est Top, merci de l'aide!

Bonne journée

Benjy08