personnalisation barre d'état

[Pol]

Bonjour,

Est-il possible d'obtenir en lecture directe dans la barre d'état en bas de l'écran la différence entre 2 cellules ou plages de cellules ? (de la même manière que la somme/moyenne/minimun/maximun....)

Je vous remercie vivement !

Pol.

 

[Grand Chaman Excel]

Re : personnalisation barre d'état

Bonjour Pol,

En supposant que une des deux cellules ou plages est une référence fixe, ceci devrait fonctionner :
(code à mettre dans la feuille).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ' Référence à cellule fixe, exemple A1
    'Application.StatusBar = ActiveCell.Value - Range("A1")
    
    ' Entre 2 plages de cellules
    Application.StatusBar = WorksheetFunction.Sum(Selection) - WorksheetFunction.Sum(Range("A1:B2"))
    

End Sub

A+

 

[Pol]

Re : personnalisation barre d'état

Merci Grand Chaman,

Mes deux plages sont malheureusement variables,

Auriez-vous une autre solution ?

Merci beaucoup.

 

[chris]

Re : personnalisation barre d'état

Bonjour

En partant

• de l'idée de Grand Chaman
• du principe d'une sélection limitée à deux plages

calcul de la somme de la plage 1 - somme de la plage 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    ' Entre 2 plages de cellules
    If Target.Areas.Count = 2 Then Application.StatusBar = _
        "Différence " & WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2))
   
End Sub

à mettre dans le module de la feuille.

Peut-être adapté au module workbook...

Edit : version Workbook améliorée (effacement de la mention si le contexte est différent)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Ecart entre 2 plages de cellules
    
    If Target.Areas.Count = 2 Then
       Application.StatusBar = "Différence " & WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2))
    Else
        Application.StatusBar = ""
    End If
End Sub

 

[JCGL]

Re : personnalisation barre d'état

Bonjour à tous,

Ajout d'une fonction "Différence" dans la barre d'état (AutoCalculate) :
Ici la différence entre le Maxi et le Mini

Option Explicit


Sub NouvelleFonction()
    With Application.CommandBars("AutoCalculate").Controls.Add
        .Caption = "Différence"
        .OnAction = "Difference"
    End With
End Sub


Sub EffaceFonction()
    Application.CommandBars("AutoCalculate").Controls("Différence").Delete
End Sub


Private Sub Difference()
Dim Valeur As Long
    On Error Resume Next
    Valeur = Application.Max(ActiveWindow.RangeSelection) - _
            Application.Min(ActiveWindow.RangeSelection)
    MsgBox "Différence = " & Valeur
    Range("A1") = Valeur
End Sub

Bise à Chris
A + à tous

 

[chris]

Re : personnalisation barre d'état

Bonjour
Bise à JCGL

Il ne se passe rien dans ma barre d'état.

En mode debug je vois bien un item 8 ajouté ou supprimé mais dans l'interface je ne vois rien.

 

[Grand Chaman Excel]

Re : personnalisation barre d'état

Bonjour,
Même chose pour moi, sous Excel 2007, rien ne se passe.
Pas contre avec Excel 2003, ça fonctionne.

 

[JCGL]

Re : personnalisation barre d'état

Bonjour à tous,

Merci pour vos tests.
Effectivement cette procédure ne fonctionne qu'avec XL 2003 :


Dans le fichier joint : Création à l'Ouverture et Suppression à la Fermeture

A + à tous

 

[tototiti2008]

Re : personnalisation barre d'état

Bonjour à tous,

Bizarrement, en Excel 2007, si on lance

Application.CommandBars("AutoCalculate").ShowPopup

On voit bien que Différence a été ajouté, mais pas de lien avec ce qui apparaît dans la barre d'état
Je suppose qu'il faut faire du XML pour modifier les menus de la barre d'état

 

[Pol]

Re : personnalisation barre d'état

Merci beaucoup chris,

ça fonctionne parfaitement,

Est-il possible d'avoir cette option à chaque ouverture de classeur ?

Je ne connais pas VBA et voir de tel résultat m'encourage à débuter ,

Que préconisez vous pour apprendre VBA, (usage comptable, gestion, finance) ?

Merci chris.

Merci aussi à grand chaman, JCGL et tototiti

 

[chris]

Re : personnalisation barre d'état

Bonjour

Si le code est dans le classeur concerné cela marche pour ce classeur.

J'ai regardé rapidement pour le faire fonctionner dans tous les classeurs mais n'ai pas trouvé de solution simple.

La méthode la plus simple a priori serait de mettre le code dans un modèle de classeur (xltx) ou bien, pour généraliser, dans le modèle par défaut, mais dans les deux cas cela oblique à enregistrer les classeurs en xlsm.

La solution de JCGL serait plus générale : reste à trouver comment l'implémenter en 2007.

A suivre

 

[Pol]

Re : personnalisation barre d'état

OK merci CHRIS,

si vous pourriez trouver ça, ça serait génial !

Je ne comprends pas d'ailleurs pourquoi la soustraction ne figure pas par défaut dans la barre d'état.

 

[chris]

Re : personnalisation barre d'état

Re

J'ai mis ma solution dans un xlam : il suffit d'installer le complément et cela marche dans tous les classeurs

 

[Pol]

Re : personnalisation barre d'état

Merci, Merci, Merci !!!!!!!!!!!!!

Super Chris!!!!!!!

Magnifique !!!!!!!!

Top!!!!!!


A+

Pol.😀

 

[Pol]

Re : personnalisation barre d'état

Chris,

Je reviens vers vous demander si vous seriez faire la même chose (personnalisation barre d'état) avec un affichage du montant HT et du montant TTC (taux de TVA 19.60%) correspondant à une cellule ou plage de cellules. Bien entendu en gardant l'affichage de la différence que vous m'aviez gentiment programmé la dernière fois.

Enfin, savez-vous si on peut avoir un affichage des nombres avec un séparateur des milliers et arrondi à 2 chiffres après virgule (logique monétaire),

Je vous joins un fichier exemple.

Je vous remercie infiniment !

Sachez que j'utilise très très souvent cette différence,

Simple et efficace !