Discussion :

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

Bonjour.

Tu peux utiliser l'événement Calculate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

Ç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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

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).