à quoi y servent tout ces outils de la boite à outils?

  • Initiateur de la discussion Initiateur de la discussion pascal21
  • 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 !

pascal21

XLDnaute Barbatruc
bonsoir
curieux de nature, j'ai farfouillé un peu dans mon excel du coté des barres d'outils
je m'aperçois qu'il y a de très nombreux outils dont je n'ai aucune idée de leur utilité ni même de leur fonctionnement
je suis tombé sur un certain "système moniteur" avec pleins de couleurs tout partout mais sans comprendre à quoi ça sert
quelqu'un à t-il déjà eu l'idée de crée une liste avec un tuto pour chaque outils disponible
au cas où en voila un sujet qu'il est bien et qui pourrait être utile non?
 
Re : à quoi y servent tout ces outils de la boite à outils?

Bonsoir,

Arf...je t'aurais bien répondu mais je ne voudrais pas t'importuner avec ma fumée de cigarette... 😛

N'étant pas rancunier... 😀 il me semble que la liste d'aide intégrée à Excel est déjà fort complète, as-tu essayé F1 ?

A+ 😉
 
Re : à quoi y servent tout ces outils de la boite à outils?

Bonsoir Pascal, ftho,

On peut faire un tuto, encore faudra t-il qu'il soit très exhaustif, entre deux cigarettes....

C'est simple, il faut s'y coller... au délà de l'aide d'excel...

Grognon, des fois, mais jamais rancunier non plus
 
Re : à quoi y servent tout ces outils de la boite à outils?

Bonsoir à tous


Si j'ai bien compris

Voici une macro qui liste dans un *.txt
le nom et le faceid des BO.

Code:
Option Explicit

Sub listeBO()
On Error Resume Next
Dim oCB As CommandBar
Dim oCBB As CommandBarButton
Dim i As Integer
Dim ii As Integer
Open "C:\FaceIds.txt" For Output As #1
Print #1, Application.Name & " Command Bar Button FaceIds"
Print #1,
For i = 1 To Application.CommandBars.Count
Set oCB = Application.CommandBars(i)
For ii = 1 To oCB.Controls.Count
Set oCBB = oCB.Controls(ii)
Print #1, "Nom Barre outil: [" & oCB.Name & "] Caption du bouton: [" & oCBB.Caption & "] Face ID: [" & oCBB.ID & "]"
Next
Set oCBB = Nothing
Next
Set oCB = Nothing
Close #1
End Sub
 
Dernière édition:
Re : à quoi y servent tout ces outils de la boite à outils?

Bonjour à tous


Et avec cet ajout, cela fonctionne non?

Code:
Sub listeBO()
On Error Resume Next
Dim oCB As CommandBar
Dim oCBB As CommandBarButton
Dim i As Integer
Dim ii As Integer
Open "C:\FaceIds.txt" For Output As #1
Print #1, Application.Name & " Command Bar Button FaceIds"
Print #1,
For i = 1 To Application.CommandBars.Count
Set oCB = Application.CommandBars(i)
For ii = 1 To oCB.Controls.Count
Set oCBB = oCB.Controls(ii)
Print #1, "Nom Barre outil: [" & oCB.Name & "] Caption du bouton: [" & oCBB.Caption & "] Face ID: [" & oCBB.ID & "]"
Next
Set oCBB = Nothing
Next
Set oCB = Nothing
Close #1
'chemin correct pour PC sous Windows 98
[COLOR=Red][B] Shell "C:\Windows\Write.exe C:\FaceIds.txt", vbMaximizedFocus[/B][/COLOR]
'ici chemin à adapter sous XP le chemin de Write.exe   (alias Wordpad)
'théoriquement sous XP  (à vérifier)
'[B]C:\Windows\System32\[/B][B]Write.exe[/B]
End Sub
 
Dernière édition:
Re : à quoi y servent tout ces outils de la boite à outils?

re
Code:
[COLOR=Red]Shell [/COLOR]"C:\Windows\System32\Write.exe"
j'ai activé cette ligne là et rajouté shell
ça lance bien wordpad mais rien ne s'écrit
mais au fait ç'est pour faire quoi ce code
juste lister ou plus que ça?
 
Re : à quoi y servent tout ces outils de la boite à outils?

RE


Sur mon poste (XL2000/W98SE)

Cela fonctionne:

Voici le début du fichier:
Microsoft Excel Command Bar Button FaceIds

Nom Barre outil: [Standard] Caption du bouton: [&Nouveau] Face ID: [2520]

Et effectivement cela liste les BO , leur caption et leur FaceId

Pour XP la ligne doit être:
Shell "C:\Windows\System32\Write.exe C:\FaceIds.txt", vbMaximizedFocus
 
- 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
Retour