Discussion :

[patricktoulon]

bonjour a tous je voudrais savoir comment faire pour:

j'ai un userform dans le quel j'ai des pettites images et je voudrais que quand je clique dessus elle se change j'explique:


position initial =image1
quand je clique=image2
si je reclique =image3 et ainsi desuite jusque a 9 changements

Code :

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

1
2
3
 
private sub imagegauche_clik()
if imagegauche=image1 then imagegauche=image2

ect... je pense a un truc dans le genre mais je ne sais pas faire du tout

merci pour le coup de main

[ucfoutu]

Bonjour,

Donne pour nom à tes images : image0, image1, image2 etc....
Utilise la propriété tag de ton contrôle imagegauche pour y stocker le n° de l'image à mettre le prochain coup
Exemple :

Code :

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

imagegauche.tag = val(imagegauche.tag) + 1

ce sera toujours bon dès la 1ère fois (puisque Val("") = 0 )
Quand tu cliques : extrais ce n° (lecture de la propriété tag) tu en déduis le n° suivant (simple ...). La nouvelle image à insérer est donc

Code :

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

Controls("image" & imagegauche.tag)

et (bien évidemment) tu incrémentes la propriété tag de 1 en l'assortissant d'une condition (si > 9 ===>> 0)

[patricktoulon]

bonjour ucfoutu

javoue n avoir rien compris la


j ai essayé ta formule elle ne fonctionne pas ou alors il manque des instruction


une question ou stock on les images

la je nage completement

[ucfoutu]

j'ai un userform dans le quel j'ai des petites images et je voudrais que quand je clique dessus elle se change j'explique:

C'est moi qui ne te comprends plus !
En te lisant : tes images sont déjà sur ton userform !
Appelle-les image0, image1, image2 ..... image8

et j'ai compr(is que tu affiches dans imagegauche

Code à main levée, alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private sub userform_initialize()
  imagegauche.picture = image0.picture
  avance
End Sub
 
Private sub Imagegauche_click()
  Imagegauche.picture = Controls("image" & Imagegauche.tag).picture
  avance
End sub
Private sub avance()
  Imagegauche.tag = (Val(Imagegauche.tag) + 1) Mod 9   ' astuce pour revenir à 0
End Sub

Je ne vois rien de complexe ici .

[patricktoulon]

ok merci ucfoutu

je vais essayer d'etre le plus clair possible


j ai un userform dans le quel je met une image grace a la petite boite a outi

dans propriete je vais chercher l'image dans mon disque dur

ca c'est l usage classique

moi ce que je veux c'est que quand je clique sur cette image elle change

en image1 ,image2 ect

j'ai bien trouver la formule qui va chercher l'image sur mon disque dur

mais de cette facon ca deviens lourd car il faut que je repette l'operation pour plusieurs image

ou alors plus simple y a t'il une fonction qui pourait me permetre de changer la couleur et le label d'un bouton

sachant que dans les propriete du bouton les couleurs sont pas jojo

car mon but final est que le bouton ou l'image change de couleur a chaque clics voila mon but final

voila j'espere avoir été sufisament clair sinon excuse moi je patoge dans le brouillard la

[ucfoutu]

ok merci ucfoutu

je vais essayer d'etre le plus clair possible


j ai un userform dans le quel je met une image grace a la petite boite a outi

dans propriete je vais chercher l'image dans mon disque dur

ca c'est l usage classique

moi ce que je veux c'est que quand je clique sur cette image elle change

en image1 ,image2 ect (pardon ? Changer quoi et comment de cette seule image ? )

j'ai bien trouver la formule qui va chercher l'image sur mon disque dur

mais de cette facon ca deviens lourd car il faut que je repette l'operation pour plusieurs image (as-tu pris connaissance de la méthode LoadPicture ? ... dans ton aide en ligne...)

ou alors plus simple y a t'il une fonction qui pourait me permetre de changer la couleur et le label d'un bouton (ben... en en changeant la propriété BackColor .... mais qu'est donc pour toi le "label" d'un "bouton" ???)

sachant que dans les propriete du bouton les couleurs sont pas jojo (comprends pas de quoi tu parles !

car mon but final est que le bouton ou l'image change de couleur a chaque clics voila mon but final (comprends de moins en moins)

voila j'espere avoir été sufisament clair sinon excuse moi je patoge dans le brouillard la

Voilà !
Lis mes commentaires et essaye d'être plus (beaucoup plus) clair et précis (si tu n'y parviens pas ===>> exemple Avant/Après). En te rappelant que (à tout hasard)
- un contrôle image n'a rien à voir avec un bouton de commande. Il contient une image, qu'il restitue telle quelle (on ne peut donc en modifier la couleur sans modifier l'image elle-même).
- Excel n'est pas un outil destiné aux modifications de type graphique, qui nécessitent des contrôles plus évolués (PictureBoxes) que les contrôles images.

[patricktoulon]

ok alors voila

je veux faire des boutons qui change de couleur quand je clique dessus

soit en superposant des image ce qui me gene car la fonction loadimage est relativement lente vu que j'ai une bonne 30aine de boutons a faire donc tres lourd

soit en changeant le code couleur d'un commandbutton a chaque fois que je clique

ca doit etre possible puisque je me souvien avoir telecharger un fichier (xls)qui avait les bouton en couleur (jaune ,orange, vert)malheureusement apres formatage j ai perdu ce fichier

et pour cela ou pourai-je trouver les codes couleurs pour faire ca

et le label c'est ce qu'il y a d'ecris sur le bouton (a l'origne commandbutton)

voila

je suppose que sa dois etre un truc tout simple mais je n 'est pas trouvé


merci de ton aide

[ucfoutu]

Allons bon !
Tout cela (7 messages) pour arriver à si peu et (surtout) sans aucun rapport avec le début :
On commence par la terminologie VB commune (c'est vraiment un minimum) :
- Un Label est un contrôle
- Le texte affiché dans un bouton correspond à sa propriété Caption

On utilise tous le même langage ou on s'inscrit à une compétition du genre "devine de quoi je cherche à parler" ...

On va ensuite à l'examen d'un contrôle :
La fenêtre de ses propriétés est la première chose à laquelle s'intéresser de près.
Parmi les propriétés d'un commandbutton, figure la propriété Style.
Mission N° 1 : ouvrir ton aide en ligne sur cette propriété et lire attentivement
Mission N° 2 : faire des petits essais, juste pour voir....

Voilà ! Désolé de le prendre ainsi, mais ta manière de tourner "autour du pot" m'a considérablement gêné... (essaye de comprendre).
Amitiés et bonne chance.