Affiché un chiffre flottant dans le ruban

[GUYANAIS]

Bonjour,
Je voudrais savoir comment faire pour afficher un chiffre provenant d'une cellule, dans le ruban d'Excel. Si le chiffre change il change dans le ruban.
Merci

 

[Hervé]

Re : Affiché un chiffre flottant dans le ruban

salut 🙂

et si tu passais plutôt par la barre d'etat ? plus simple, plus rapide

c'est la barre tout en bas qui affiche "Pret"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
    Application.StatusBar = Target
End If
End Sub

pour réinistialiser une barre d'etat par défaut :

Application.StatusBar = False

a plus

 

[GUYANAIS]

Re : Affiché un chiffre flottant dans le ruban

Merci Hervé,

J'ai donc copié le script et j'ai remplacé le A1 de la ligne

 If Target.Address(0, 0) = "J81" Then"

Par contre me chiffre n'apparaît pas? Faut-il que je fermé et que je réouvre mon fichier?
Merci

 

[Hervé]

Re : Affiché un chiffre flottant dans le ruban

re

tu as bien copié le script dans le module de la feuille concerné ?

exemple en pj

a plus

edit : salut geli

 

[Gelinotte]

Re : Affiché un chiffre flottant dans le ruban

Bonjour,

Ici, ça fonctionne bien, à l'exception que le "J" de "J81" dont absolument être en majuscule. Sinon, ça ne fonctionne pas.


Geli

 

[GUYANAIS]

Re : Affiché un chiffre flottant dans le ruban

Hervé,
Oui j'ai bien recopié mais le chiffre n'apparaît toujours pas. Quand je prends ton exemple et que je l'ouvre sur mon poste le montant n'apparaît pas non plus.
Y a t-il un réglage que je n'ai pas fait??
Merci

 

[gilbert_RGI]

Re : Affiché un chiffre flottant dans le ruban

Bonjour

un petit moceau de code

Private Sub Worksheet_Change(ByVal Target As Range)
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
If Target.Address(0, 0) = "A1" Then
Application.StatusBar = Target
End If
MsgBox "Voir StatusBar"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub

 

[Si...]

Re : Affiché un chiffre flottant dans le ruban

salut

tu dois avoir une formule en J81 non ?
Dans ce cas il faut savoir quelles cellules y interviennent.

Private Sub Worksheet_Change(ByVal R As Range)
  Application.StatusBar = [J81]
End Sub

la mise à jour ne se fait qu'au changement de valeur dans J81 sans formule !