Modifier bouton de commande

Bonjour,
Si je modifie le contenu de la cellule A1, et que je valide par ENTER, l'affichage de mon bouton de commande va s'actualiser en conséquence.
Mais comment faire pour actualiser ce même bouton de commande si la valeur de la cellule A1 est la résultante d'une formule de la feuille ou d'une procédure VBA ?
Je vous remercie d'avance pour votre aide.
jpma75

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() End Sub Private Sub Worksheet_selectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Sheets("Feuil1").CommandButton1.Caption = [a1].Value End Sub

---

Bonjour.

Tu peux utiliser l'événement Calculate :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Calculate() Dim target As Range Set target = Cells(1, 1) If Not Intersect(target, Range("A1")) Is Nothing Then CommandButton1.Caption = Cells(1, 1).Value End If End Sub

---

Ça fonctionne très bien, merci.
J'ai toujours un peu peur d'utiliser la fonction "activate" car je crains qu'elle consomme beaucoup de ressources. Dans l'exemple présent, penses-tu qu'il y ait un risque de cette nature ? Et indépendamment de celui-ci, y a-t-il d'autres inconvénients à utiliser "activate" ?
Cdt

Il ne s'agit pas de la fonction Activate ici.

Il s'agit de l'événement Calculate qui est déclenché de toute façon, normalement, à chaque fois que la valeur d'une ou de plusieurs cellules du classeur est modifiée. La durée du re-calcul sera plus ou moins longue selon le nombre plus ou moins grand de formules qui doivent être recalculées.

Mais la durée requise par la commande suivante sera infinitésimale. Aucun risque.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Calculate()   If CommandButton1.Caption <> Cells(1, 1).Value Then CommandButton1.Caption = Cells(1, 1).Value End If   End Sub

---

Merci beaucoup pour ce complément d'information très precieux pour moi.
Cordialement.
(Vais noter "Résolu" mais pas sûr de trouver cette option sur mon smartphone - sinon, le ferai de mon PC).