Inserer une icone dans une cellule

Le
Apitos
Bonjour,

Comment pourrais-je inserer des icones, comme on fait pour les
caracteres speciaux ?

Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5100531
Bonsoir Apitos,
Rien qui convienne sur cette page ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Apitos" news:
Bonjour,

Comment pourrais-je inserer des icones, comme on fait pour les
caracteres speciaux ?

Merci.


Apitos
Le #5100501
Bonsoir Phillipe,

On a l'habitude de voir des icones (FaceID) sur les BO ou boutons.

Est-ce qu'on peut utiliser ces reference FaceId pour les inserer dans
des cellules ?

Merci.
Philippe.R
Le #5097201
Oups !
le lien manquait !
Rien qui convienne sur cette page ?
disais je ...

http://www.excelabo.net/excel/boutons.php#imagesboutons
scuses...
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe.R" news:%
Bonsoir Apitos,
Rien qui convienne sur cette page ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Apitos" news:
Bonjour,

Comment pourrais-je inserer des icones, comme on fait pour les
caracteres speciaux ?

Merci.





Apitos
Le #5097191
Bonsoir Philippe,

Je voulais dire, inserer des icones dans des cellules et non pas des
boutons.

Merci.
MichDenis
Le #5097181
Publié ici sous la plume de ChrisV.

Sub Liste_faceID()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim cbCtl As CommandBarControl
Dim cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating, _
MenuBar:úlse, temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, _
temporary:=True)
k = 1
Do While Err.Number = 0
For j = 1 To 10
i = i + 1
Application.StatusBar = "FaceID=" & CStr(i)
cbCtl.FaceId = i
cbCtl.CopyFace
If Err.Number <> 0 Then Exit For
ActiveSheet.Paste Cells(k, j + 1)
Cells(k, j).Value = i
Next j
k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
End Sub





"Apitos"
Bonsoir Philippe,

Je voulais dire, inserer des icones dans des cellules et non pas des
boutons.

Merci.
Philippe.R
Le #5097091
Et là ?
http://www.excelabo.net/excel/outilsimages.php

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Apitos" news:
Bonsoir Philippe,

Je voulais dire, inserer des icones dans des cellules et non pas des
boutons.

Merci.


Apitos
Le #5093741
Bonsoir,

MichDenis --> Le problème est dans le font de l'image (Grisé).
J'aimerais qu'il soit tout blanc.

Phillipe.R --> je n'ai pas trouvé un exemple qui me sert dans ma
question.

Merci.
MichDenis
Le #5093631
| MichDenis --> Le problème est dans le font de l'image (Grisé).
| J'aimerais qu'il soit tout blanc.

Tu ouvres un logiciel de dessin, et tu en crées un ou tu en transforme
un à ton goût !

.
Apitos
Le #5093611
Bonsoir MichDenis,

Tu ouvres un logiciel de dessin, et tu en crées un ou tu en transforme
un à ton goût !


Le probléme que je suis pas doué en dessin !!!! :-)

Bon je voulais dire, est-ce qu'il est necessaire de declarer un
boutton avant de lui ajouter une icone ?

Pourra-t-on le faire sans boutton ?

Merci.

Publicité
Poster une réponse
Anonyme