Icones et boutons

[Olive]

Coucou et bonjour à tous!!!

J'ai des tites questions ...

J'ai crée une barre de commandes avec des boutons dedans. Jusque la ca va! Mais le problemes c'est que sous VB les icones sont choisis avec ".faceid = numéro" et j'aimerais savoir si il y a un moyen de les visualiser toutes pour pouvoir choisir celle que je veux?

(Surtout que sur mon ordi apparemment numéro max = 3519, et j'aimerais éviter de les essayer toutes une par une !!!)

Autre petit truc, je n'arrive pas à mettre du texte sur mes boutons en plus ou à la place des icones, pouriez vous m'aider aussi à ce sujet ?

Avant dernière question : comment on fait pour mettre une icone "personnalisée" ???

Et enfin : ...a zut le temps que j'écrive elle m'est sortie de la tête celle ci...
;-) c'est pas grave je reviendrai la posée sur le fil !!!

Merci à tous et bon WE !!!

 

[Jean Charles]

Salut Olive
je vais traiter un seul sujet car les autres je pêche !!
pour modifier tes icones :
outils/personnaliser et clic droit sur ton bouton
tu dois pouvoir modifier pas mal de choses
bon courage
JC

 

[Jacquesderyes]

Bonsoir Olive , Jean-Charles et à tous les amis
Pour ce qui est de l'affichage des FaceID cette macro devrait t'aider.


Sub faceIDS()
Dim tBar As Object, nouveaubout As Object
Dim Y As Integer
Dim depart As Integer
depart = Val(InputBox("Entrer le numéro pour le" & _
" bouton numéro (1, 251, 501, etc)"))
If depart = 0 Then Exit Sub

On Error Resume Next
CommandBars("Tous les boutons!!!").Delete


CommandBars.Add Name:="Tous les Boutons!!!"
Set tBar = CommandBars("Tous les Boutons!!!")


For Y = depart To depart + 249
Application.StatusBar = "creation faceID " & Y
Set newButton = tBar.Controls.Add
With newButton
.Caption = "FaceId = " & Y
.FaceId = Y
End With
Next Y
Application.StatusBar = False

tBar.Visible = True
tBar.Width = 504

Application.StatusBar = False
End Sub


Bien cordialement
Jacques de ryes

 

[Olive]

Merci à tous les deux !!!

En ce qui concerne l'icone personnalisé j'aurais aimé savoir comment on la déclare en VB car j'ai essayé ta méthode mais comme je supprime les boutons crées à la fermeture d'excel et que je l'ai crées quand j' ouvre les modifications ne sont pas gardées !!!!

Olive