Discussion :

[patricktoulon]

re
Bonjour si tu veux des truc fun pour ton usf
regarde bien ce qui suit
si tu le veux je te donne un fichier en exemple

et tout ca sans importer une seule image

[eliot.raymond]

Salut Patrick,

Merci pour ta réponse, ca m'a l'air bien sympa ton programme.

ca me donne envie d'essayer alors ok pourquoi pas, je regarderais comment c'est fait.

Quand tu a le temps, pas presser, merci pour la démo.

bonne après midi et a plus tard.

Cdlt Ray

[patricktoulon]

Bonjour elliot
pour commencer en ce qui concerne les icones

pour le coup j'ai fouillé mes archives vba et réuni toute les façons de mettre une icone dans un label ou commandbuton

j'ai donc fait une compil démo DANS CETTE CONTRIBUTION

JE FERAIS UNE COMPIL SIMPLIFIER POUR LA TRANSFORMATION DES BOUTON/LABELS AVEC GIF,PNG,SHAPES y compris les texturation, dégradés de couleur etc....
bonne lecture
tu a un fichier en démo dans la contrib

[unparia]

Bonjour eliot.raymond
Regarde bien le "décor" de la présente page du site (ou les autres) : il est sobre, frugal, discret et efficace. Cette page serait beaucoup moins agréable en agrémentant ses onglets, ses boutons, etc ... de toutes sortes de "bébelles" (formes, images, couleurs, animations, etc ...) qui finiraient pas être contreproductives, voire carrément rébarbatives.
Amitiés.

[patricktoulon]

Bonjour
oui c'est vrai unparia a raison le skin de DVP et bien pour les yeux par rapport a l'ancien

[TSAFACK-M]

Bonsoir.

pour faire plus simple, tu peux aussi utiliser les FaceID intégrés dans Office

essayes ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub IDiconeDansControl() 'Icones dans les boutons de commande: à placer dans le UserForm
On Error Resume Next 
Dim Cmb As CommandBarControl
Dim cBar As CommandBar
    Set cBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
    Set Cmb = cBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
 
 
    'Pour les FaceID Tu peux aller sur http://fring.developpez.com/vba/excel/faceid/
    'pour plus d'icone et personnaliser l'appli
 
 
    'Avant tout faire un clique droit sur les Objets qui prendront  une icone, et dans
    'les propriétés pictureposition, spécifier la position de l'icone (fmPicturePositionLeftCenter par exemple)
    'Activer la procédure à l'initialisation de l'Usf par Call IDiconeDansControl
 
    'Appliquer ce code pour ajouter autant d'icone que possible dans les controles
    CommandButton1.FaceId =1087 'pour croix valider
    Me.CommandButton1.Picture = Cmb.Picture
 
    'autre objets(.........
 
   .Picture = Cmb.Picture
    cBar.Delete
 
On Error Goto 0
End Sub

[patricktoulon]

re
Bonsoir TSAFACK-M
exemple déjà démontré dans cette contribution

[TSAFACK-M]

Oups !!

Trop tard pour une modeste contribution.

Merci du rappel !


Salut !

[patricktoulon]

c'est pas grave
pat contre tu n'est pas intervenu pour rien
je vais t'apprendre quelque chose
les bars floating,top ne servent plus a rien depuis office 2007

d'ailleurs selon les mises a jour et system ton exemple ne marche pas
tandis qu'avec une commandbarpopup ca marche a tout les coup

re
d'ailleurs je ne l'ai pas mentionner auparavant mais si tu connais le ID du bouton que tu veux

tu peut te passer de te servir d'une barre temporaire !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Label1_Click()
With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With
End Sub

[eliot.raymond]

Bonjour eliot.raymond
Regarde bien le "décor" de la présente page du site (ou les autres) : il est sobre, frugal, discret et efficace. Cette page serait beaucoup moins agréable en agrémentant ses onglets, ses boutons, etc ... de toutes sortes de "bébelles" (formes, images, couleurs, animations, etc ...) qui finiraient pas être contreproductives, voire carrément rébarbatives.
Amitiés.

Salut unparia

Rien a redire sur l'aspect du site, tous les gouts sont dans la nature.

Pour ma part et comme je l'ai déjà dit sur le site, j'essais, je cherche, je regarde comment ca marche, etc etc, je ne suis pas créateur de logiciel.
et je sais très bien qu'avant tout Excel est un tableur mais puisque des possibilités sont possibles autant sans servir.

Je fais des petits programmes utiles pour moi, c'est tout

et puis mes questions peuvent servir aux autres.

Bon dimanche a tous.

Cdlt Raymond

[eliot.raymond]

re
d'ailleurs je ne l'ai pas mentionner auparavant mais si tu connais le ID du bouton que tu veux

tu peut te passer de te servir d'une barre temporaire !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Label1_Click()
With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With
End Sub

Salut Patrick,

Merci beaucoup pour toutes ces infos et démos.

C'est quand même pas des plus simples, sans aucun doute pour toi mais moi j'ai un peu de mal a suivre.

Ceci dit c'est très bien ces démos, félicitations.

Mais je n'ai pas envie d'une usine a gaz pour 1 bouton ou un label, encore un ca va mais imagine plusieurs
le code pour gérer tous ça va vite devenir énorme.

Je voulais juste agrémenter mon programme avec une image, ou un gif mais bon j'ai vu.

Encore merci a toi Patrick pour les démos et ton savoir partager.

Je te souhaite un agréable dimanche

Bien Cordialement Raymond

[TSAFACK-M]

Bonsoir

Merci de m'en apprendre davantage, c'est super sympa de ta part !
cette façon de procéder est beaucoup plus simple et explicite, je l'adopte
avec assurance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Label1_Click()
    With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With
End Sub

Bon debut semaine !