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 FaceID : Delta

FaceID : Delta

6 réponses
Avatar
Péhemme
Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel
Signaler un problème avec ce contenu

6 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
ABED HADDOU
Bonsoir Péhemme

voici un code qui Affiche une command Barre de toutes les FaceID avec leurs
numéros, peut être que vous trouverai ton bonheur

Sub AfficheBoutons()
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 boutons 1 à 200
'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 = 0
IconOff = 1000

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

Cordialement Abed_H






Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel





Avatar
Péhemme
OK, laissez tomber, je l'ai dessiné et utilisé l'image pour mon bouton.
Bonne soirée à tous.
Michel

"Péhemme" a écrit dans le message de news:
454f9b82$0$27380$
Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de
Delta majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel




Avatar
Péhemme
Bonsoir ABED HADDOU
J'avais répondu avant de lire ta réponse.
Merci te t'être penché sur ma question, mais il n'y a pas non plus de Delta
majuscule.
Avant de poster, j'avais consulté le JWalk FaceID Identifer, le fichier de
Excelabo Icones-xl... Point de Delta majuscule.
Je l'ai donc dessiné et utilise l'image en copier/coller sur mon bouton.
C'est moins beau mais cela fonctionne.
Merci encore de ton aide
Michel

"ABED HADDOU" a écrit dans le message
de news:
Bonsoir Péhemme

voici un code qui Affiche une command Barre de toutes les FaceID avec
leurs
numéros, peut être que vous trouverai ton bonheur

Sub AfficheBoutons()
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 boutons 1 à 200
'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 = 0
IconOff = 1000

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

Cordialement Abed_H






Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque
Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de
Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel







Avatar
jps
salut michel
essaie 1238 : c'est comme le canada dry...ça y ressemble un peu
jps

"Péhemme" a écrit dans le message de news:
454fb0c6$1$27400$
Bonsoir ABED HADDOU
J'avais répondu avant de lire ta réponse.
Merci te t'être penché sur ma question, mais il n'y a pas non plus de
Delta
majuscule.
Avant de poster, j'avais consulté le JWalk FaceID Identifer, le fichier de
Excelabo Icones-xl... Point de Delta majuscule.
Je l'ai donc dessiné et utilise l'image en copier/coller sur mon bouton.
C'est moins beau mais cela fonctionne.
Merci encore de ton aide
Michel

"ABED HADDOU" a écrit dans le
message de news:
Bonsoir Péhemme

voici un code qui Affiche une command Barre de toutes les FaceID avec
leurs
numéros, peut être que vous trouverai ton bonheur

Sub AfficheBoutons()
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 boutons 1 à 200
'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 = 0
IconOff = 1000

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

Cordialement Abed_H






Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque
Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de
Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel











Avatar
Péhemme
Merci Jean-Paul de ta proposition.
C'est vrai, cela y ressemble et je dois confesser que dans mes recherches,
afin de soulager mes yeux, je sautais ces figures (pas de réflexions
déplacées s'il vous plait).
A bientôt au resto à Paris, mais où au fait ?
Bien amicalement
Michel


"jps" a écrit dans le message de news:
%
salut michel
essaie 1238 : c'est comme le canada dry...ça y ressemble un peu
jps

"Péhemme" a écrit dans le message de news:
454fb0c6$1$27400$
Bonsoir ABED HADDOU
J'avais répondu avant de lire ta réponse.
Merci te t'être penché sur ma question, mais il n'y a pas non plus de
Delta
majuscule.
Avant de poster, j'avais consulté le JWalk FaceID Identifer, le fichier
de
Excelabo Icones-xl... Point de Delta majuscule.
Je l'ai donc dessiné et utilise l'image en copier/coller sur mon bouton.
C'est moins beau mais cela fonctionne.
Merci encore de ton aide
Michel

"ABED HADDOU" a écrit dans le
message de news:
Bonsoir Péhemme

voici un code qui Affiche une command Barre de toutes les FaceID avec
leurs
numéros, peut être que vous trouverai ton bonheur

Sub AfficheBoutons()
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 boutons 1 à 200
'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 = 0
IconOff = 1000

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

Cordialement Abed_H






Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque
Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de
Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur ?
Merci d'avance de votre aide
Michel















Avatar
jps
salut michel
tu notes aussi que lorsqu'on a pas de FaceId en magasin, on se le dessine
et ensuite on se sert de PasteFaceID...mais tu le savais déjà!
quant au resto, pas encore de nom pour l'instant car les quelque 5/7 absents
par rapport aux années précédentes nous obligent à chambouler nos plans...
à suivre, donc
jps

"Péhemme" a écrit dans le message de news:
45503369$0$5065$
Merci Jean-Paul de ta proposition.
C'est vrai, cela y ressemble et je dois confesser que dans mes recherches,
afin de soulager mes yeux, je sautais ces figures (pas de réflexions
déplacées s'il vous plait).
A bientôt au resto à Paris, mais où au fait ?
Bien amicalement
Michel


"jps" a écrit dans le message de news:
%
salut michel
essaie 1238 : c'est comme le canada dry...ça y ressemble un peu
jps

"Péhemme" a écrit dans le message de news:
454fb0c6$1$27400$
Bonsoir ABED HADDOU
J'avais répondu avant de lire ta réponse.
Merci te t'être penché sur ma question, mais il n'y a pas non plus de
Delta
majuscule.
Avant de poster, j'avais consulté le JWalk FaceID Identifer, le fichier
de
Excelabo Icones-xl... Point de Delta majuscule.
Je l'ai donc dessiné et utilise l'image en copier/coller sur mon bouton.
C'est moins beau mais cela fonctionne.
Merci encore de ton aide
Michel

"ABED HADDOU" a écrit dans le
message de news:
Bonsoir Péhemme

voici un code qui Affiche une command Barre de toutes les FaceID avec
leurs
numéros, peut être que vous trouverai ton bonheur

Sub AfficheBoutons()
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 boutons 1 à 200
'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 = 0
IconOff = 1000

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

Cordialement Abed_H






Bonsoir à tous,

Je vieillis...
Je n'ai pas trouvé le n° du FaceID correspondant à la lettre grecque
Delta
majuscule.
J'ai bien trouvé le Sigma majuscule, le Omega majuscule, mais point de
Delta
majuscule.
L'un d'entre vous connaîtrait-il ce malheureux n° de FaceID par coeur
?
Merci d'avance de votre aide
Michel