Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche liste FaceID

recherche liste FaceID

4 réponses
Avatar
Greffier
Bonjour,

Où peut-on trouver une liste des n° FaceID et de leur icônes.

Merci.

Greffier.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Francois L
Bonjour,

Où peut-on trouver une liste des n° FaceID et de leur icônes.



Bonsoir,

Par exemple chez J Walkenbach
http://j-walk.com/ss/excel/tips/tip40.htm

--
François L

Avatar
Modeste
Bonsour® Greffier avec ferveur ;o))) vous nous disiez :

Où peut-on trouver une liste des n° FaceID et de leur icônes.
pour les icones voir chez J.Walkenbach


;o))) pour une... liste
voir ci-dessous

Sub Macro1()
ThisWorkbook.Worksheets.Add
On Error Resume Next
[A1] = "Barre d'outils"
[B1] = "ID Controle"
[C1] = "N° Controle"
[D1] = "Type de controle"
[E1] = "Caption"
[F1] = "FaceID"
ligne = 2
For Each CB In Application.CommandBars
colonne = 1
ActiveSheet.Cells(ligne, colonne) = CB.NameLocal
ligne = ligne + 1
colonne = colonne + 1
For Each Controlbutton In CB.Controls
ActiveSheet.Cells(ligne, colonne) = Controlbutton.ID
ActiveSheet.Cells(ligne, colonne + 1) = Controlbutton.Type
ActiveSheet.Cells(ligne, colonne + 3) = Controlbutton.Caption
ActiveSheet.Cells(ligne, colonne + 4) = Controlbutton.FaceId
Select Case Controlbutton.Type
Case 1
ActiveSheet.Cells(ligne, colonne + 2) = "Bouton"
Case 4
ActiveSheet.Cells(ligne, colonne + 2) = "ComboBox"
Case 10
ActiveSheet.Cells(ligne, colonne + 2) = "PopUp"
Case Else
ActiveSheet.Cells(ligne, colonne + 2) = " Voir explorateur d'objets(F2)"
End Select
ligne = ligne + 1
Next
Next
Range("A:E").Columns.AutoFit
End Sub


--
--
@+
;o)))

Avatar
Apprenti.xls
Bonsoir,

Ou bien le code de Daniel Josserand :

Attribute VB_Name = "IconesIntegreesExcel"

'Afficher les icones intégrées d'Excel et leur numéro de FaceID
'Exemple affichant les 200 premières icones

Sub AfficheBoutons()
'Daniel Josserand, mpfe
Dim NewBarreOutil As CommandBar
Dim NewBouton As CommandBarButton
Dim i As Integer, IconOn As Integer, IconOff As Integer

'Supprime la barre si elle existe déjà
On Error Resume Next
Application.CommandBars("BarBouton").Delete
On Error GoTo 0

Set NewBarreOutil = Application.CommandBars.Add _
(Name:="BarBouton", temporary:=True)
NewBarreOutil.Visible = True

'Affiche les icones des boutons 1 à 200 d'Excel
'Suivant la vitesse de votre ordinateur vous pouvez passer
'le paramètre IconOff à 600 (Attente de 30 secondes)
'Ou bien modifier le paramètre de départ IconOn = 100
'et IconOff= 200 (Rapide)
IconOn = 1
IconOff = 200

For i = IconOn To IconOff
Set NewBouton = NewBarreOutil.Controls.Add _
(Type:=msoControlButton, ID:)50)
NewBouton.FaceId = i
NewBouton.Caption = "FaceID = " & i
Next i
NewBarreOutil.Width = 700
NewBarreOutil.Left = 50
NewBarreOutil.Top = 120
End Sub

Sub DelBarExemple()
Application.CommandBars("BarBouton").Delete
End Sub


"Francois L" a écrit dans le message de news:

Bonjour,

Où peut-on trouver une liste des n° FaceID et de leur icônes.



Bonsoir,

Par exemple chez J Walkenbach
http://j-walk.com/ss/excel/tips/tip40.htm

--
François L



Avatar
Greffier
Bonjour,
Je remercie le groupe.
Je vais mettre en oeuvre toutes vos suggestions.
Cordialement,

Greffier.





"Modeste" a écrit dans le message de news:

Bonsour® Greffier avec ferveur ;o))) vous nous disiez :

Où peut-on trouver une liste des n° FaceID et de leur icônes.
pour les icones voir chez J.Walkenbach


;o))) pour une... liste
voir ci-dessous

Sub Macro1()
ThisWorkbook.Worksheets.Add
On Error Resume Next
[A1] = "Barre d'outils"
[B1] = "ID Controle"
[C1] = "N° Controle"
[D1] = "Type de controle"
[E1] = "Caption"
[F1] = "FaceID"
ligne = 2
For Each CB In Application.CommandBars
colonne = 1
ActiveSheet.Cells(ligne, colonne) = CB.NameLocal
ligne = ligne + 1
colonne = colonne + 1
For Each Controlbutton In CB.Controls
ActiveSheet.Cells(ligne, colonne) = Controlbutton.ID
ActiveSheet.Cells(ligne, colonne + 1) = Controlbutton.Type
ActiveSheet.Cells(ligne, colonne + 3) = Controlbutton.Caption
ActiveSheet.Cells(ligne, colonne + 4) = Controlbutton.FaceId
Select Case Controlbutton.Type
Case 1
ActiveSheet.Cells(ligne, colonne + 2) = "Bouton"
Case 4
ActiveSheet.Cells(ligne, colonne + 2) = "ComboBox"
Case 10
ActiveSheet.Cells(ligne, colonne + 2) = "PopUp"
Case Else
ActiveSheet.Cells(ligne, colonne + 2) = " Voir explorateur d'objets(F2)"
End Select
ligne = ligne + 1
Next
Next
Range("A:E").Columns.AutoFit
End Sub


--
--
@+
;o)))