Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Barre d'état personnalisable ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion clq
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

clq

XLDnaute Nouveau
Bonjour à tous,

J'ai une question assez bête mais qui me traquasse. Est-il possible (je pense que si oui c'est par code VBA) de personnaliser la barre d'état en bas des fichiers Excel ?

Parce que je me retrouve souvent à faire des multiplication dans un case mais si cela peut se faire par la barre ce serait top. Je pense aux formes SOMME, MIN, MAX ..

Merci de votre réponse,
Chris
 
Trier par date Trier par votes
Bonsoir

Oui c'est possible (et sans VBA)
Faire un clic-droit sur la barre d'état (quand la sélection active sur la feuille contient des nombres) et choisir la fonction désirée.
Voir ici (par exemple pour les détails)
 
Vote positif 0 Vote négatif
Bonjour à tous

C'est quelque chose comme cela que tu cherches, avec un produit et non une soustraction ?

personnalisation barre d'état

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.
www.excel-downloads.com
 
Vote positif 0 Vote négatif

Bonjour Chris,

C'est exactement ce à quoi je pense. Je ne suis pas sûr de bien comprendre les modules de classe mais j'ai modifié pour le produit. Par contre est-il possible de le mettre dans le PERSONAL ? J'ai essayé mais ça n'a pas l'air fonctionner..

Chris
 
Vote positif 0 Vote négatif
Re

Super !

As-tu bien limité à une cellule de chaque côté pour éviter une erreur
VB: 
Private Sub MonExcel_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Entre 2 plages de cellules d'une seule cellule
    
    If Target.Areas.Count = 2 Then
        If Target.Areas(1).Cells.Count = 1 And Target.Areas(2).Cells.Count = 1 Then _
           Application.StatusBar = "Produit " & WorksheetFunction.Sum(Target.Areas(1)) * WorksheetFunction.Sum(Target.Areas(2))
    Else
        Application.StatusBar = ""
    End If
        
End Sub
 
Vote positif 0 Vote négatif
Re,

Non, je ne l'ai pas fait parce que quand tu le laisses sans obligation d'une seule cellule il fait une somme à l’intérieur de la plage avant. Je ne sais pas si cela me servira mais je le verrai par la suite 😉
Par contre, j'ai un peu abusé de ton code parce que du coup j'ai rajouté produit, différence, et comme je travaille avec des Francs CFA et Euros j'ai aussi ajouté les conversions avec la mise en forme des données .... 🙄 😀:
VB: 
Private Sub MonExcel_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' Entre 2 plages de cellules
   
    If Target.Areas.Count = 2 Then
       Application.StatusBar = _
       "Produit : " & Format(WorksheetFunction.Sum(Target.Areas(1)) * WorksheetFunction.Sum(Target.Areas(2)), " #,##0 ") & _
       " / Différence : " & Format(WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2)), "#,##0.00") & _
       " / Conversion € : " & Format(WorksheetFunction.Sum(Target.Areas(1)) / 655.957, "#,##0.00") & _
       " / Conversion FCFA : " & Format(WorksheetFunction.Sum(Target.Areas(1)) * 655.957, " #,##0 ")
    Else
        Application.StatusBar = ""
    End If
End Sub

En tous cas je te remercie vraiment, ça va me changer la vie !

Chris
 
Vote positif 0 Vote négatif
Bonsoir le fil, clq, chris

clq
Dois-je supprimer le message#2 de ta discussion?
Histoire de pas salir...

(Pas de réaction, pas de salutation, ça donne super envie d'aider son prochain fan d'Excel...🙄)
 
Vote positif 0 Vote négatif
Bonjour Staple(JM), Chris, clq et à toutes et tous

Je suis tombé sur le code de @chris je l'ai testé par curiosité
, mais désolé ça ne marche pas chez moi Excel2007.
j'ai donc repris le code.

VB: 
Option Explicit
'======================
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 2 Then
    Application.DisplayStatusBar = True
    Application.StatusBar = "Produit = " & Format(Target(1) * Target(2), "##,##0.00 €")
Else
    Application.StatusBar = ""
End If
End Sub
'======================

A+ Jean-Paul
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous,

Staple1600 Excuse moi je pensais t'avoir répondu. Merci pour ta réponse.

VIARD, as-tu es essayé le code dans un module simple ou bien dans un module de classe ? Car quand tu vas sur le premier lien que Chris a donné, le complément (xlam) fait intervenir un module de classe en application.
Quand j'essaie ton code sur mon ordi cela ne marche pas non plus. Surement que ça rentre en conflit avec celui qui est sur Personal. Après je l'ai encore modifié depuis le dernier post pour éviter le 1004 quand la première sélection vaut 0 et avoir un somme prod quand les plages sont de même taille.
 
Vote positif 0 Vote négatif
Bonjour à tous

clq: non pas de complément xlam.
par contre, sur mon module doit entré en conflit.
pour ma part mon module fonctionne correctement, pas de souci et simple.
A+ jean-Paul
 
Vote positif 0 Vote négatif
Bonjour à tous
VIARD à dit:
Je suis tombé sur le code de @chris je l'ai testé par curiosité
, mais désolé ça ne marche pas chez moi Excel2007.
Cliquez pour agrandir...
Ce code fonctionne pour toute feuille de tout classeur sans ajouter quoi que ce soit aux feuilles ou classeurs, sur la base d'un module de classe.
Il doit donc être installé dans le Personal ou un xlam installé : la classe doit être initialisée.
Si tu testes juste le module hors de ce contexte, sans les 2 autres modules, il est normal que cela ne fonctionne pas.

Ton code est parfait s'il doit s'appliquer au classeur qui contient le module.

Ce sont 2 besoins différents...

Mais cependant tu as confondu cells et areas : ton code ne fonctionne pas pour une double sélection (renvoie soit 0 soit une valeur erronée) et le mien ne marche pas sur une sélection unique car ce n'était pas l'objectif...
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
832
Eric 888
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
361
Dégé59
D
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
554
AtTheOne
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
489
picc
P
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
611
Lu76Fer
G
  • Question Question
Microsoft 365 Rendre dynamique un array (Résolu)
Réponses
7
Affichages
361
GClaire
G
P
  • Question Question
Microsoft 365 outil pointage adherent via code barre
Réponses
8
Affichages
931
sylvanu
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
J
  • Résolu(e)
XL pour MAC Addition de timecode
Réponses
9
Affichages
663
mapomme
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
456
Phil69970
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
1 K
Stellaire
S
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
3 K
Nicolas JACQUIN
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
489
IderMTC
I
O
  • Question Question
Microsoft 365 Activer la barre d'état des sauts de page, zoom ect...
Réponses
6
Affichages
1 K
odohe
O
S
  • Résolu(e)
Microsoft 365 Modifier une condition en fonction d'une nouvelle
Réponses
2
Affichages
529
sandfer
S
F
  • Résolu(e)
Autres Date automatique en fonction du mois et de l'année sans dimanche
Réponses
6
Affichages
780
Fitgy
F
C
  • Résolu(e)
XL 2019 Création d'une barre de progression suivant une macro
Réponses
2
Affichages
935
Chris769375
C
P
  • Résolu(e)
Microsoft 365 Calculer une somme dans un tableau qui évolue
Réponses
2
Affichages
499
Patoche42
P
E
  • Résolu(e)
XL 2013 Créer un moteur de recherche sur un fichier
2 3 4
Réponses
51
Affichages
5 K
Edmond_Dantes
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…