Macro après modification d'une cellule

Bonjour/Bonsoir,

Étant novice dans le domaine, je n'arrive pas à terminer ma macro. J'explique :

J'ai en Feuil1!A1 une cellule où je mets une donnée. Cette donnée engendre des fonction RECHERCHEV/H sur la feuille 1 et 2.

En Feuil2!B17 j'ai un bouton bascule, Bouton_B1, avec comme texte (au milieu du bouton) la valeur de la cellule qu'il recouvre.

Le résultat attendu est le suivant : j'entre une donnée en Feuil1!A1, la cellule Feuil2!B17 s'actualise et le Bouton_B1 s'actualise également.

Là où ça coince, c'est que le bouton ne s'actualise pas automatiquement et donc il me faut une macro qui le fasse.

Je vous montre ce que j'ai arrivé à faire et où je bloque à finir :

'Début Macro
'Si valeur Feuil2!B17 change alors
Sheets("Feuil2").Bouton_B1.Caption = Sheets("Feuil2").Range("B17").Value
'Début Macro

Je vous remercie d'avance de bien vouloir m'aider.

Bonjour,

Dans le module de la feuille "Feuil2" tu colle ce code :

Private Sub Worksheet_Change(ByVal Target As Range)

    With Sheets("Feuil2"): .Bouton_B1.Caption = .Range("B17").Value: End With

End Sub

J'ai mis la macro en Feuille 1 car la macro dépend d'une saisie manuelle et donc elle doit dépendre de Feuil1!A1.

On passe par un détour obligatoire mais on retombe sur nos pattes, l'important c'est que ça fonctionne parfaitement.

Encore une fois merci.