case à cocher pour afficher image Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
patrick67
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 janvier 2016
Version d'Excel : 2007

Message par patrick67 » 13 mars 2016, 10:05

bonjour à tous les passionnés qui sont sur ce forum,

Si une âme charitable pouvait me venir en aide, ce serait sa B.A. du dimanche matin!

Problème :
dans un classeur , une feuille de calcul nommée "devis" comporte des cases à cocher liées à des cellules validant par VRAI ou FAUX. Chaque case à cocher est nommée . J'aimerai faire afficher des images appelées Image 1; Image 2......... lorsque la case à cocher est en valeur VRAI. Ensuite en cliquant sur l'image choisie, il faudrait indiquer sont nom dans une autre cellule, toujours la même cellule.
Par exemple, en cochant case à cocher 10, les images 1,2,3,4 s'affichent. En cliquant sur image 1, sont nom s'affiche en G11 de la feuille de calcul nommée "DEVIS".
Cette opération doit se faire par VBA, mais là, je bloque.

merci par avance pour le précieux coup de main que vous m'apporterez.

Patrick
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 13 mars 2016, 14:24

Bonjour patrick67,
:joindre:
Travailler sans fichier sur ce genre de questions est pas top top ^^
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
p
patrick67
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 janvier 2016
Version d'Excel : 2007

Message par patrick67 » 14 mars 2016, 22:45

bonsoir d3d9x,

tu as Raison, Avec le fichier c'est mieux. Je l'ai allégé au max pour qu'il passe en pièce jointe. Tua sl'essentiel en onglet "DEVIS".
J'aimerai qu'en cochant la case "Lambrequin" attachée à la cellule L22, toute la série d'image à droite s'affiche à l'écran, ensuite en cliquant sur une Image pour la choisir, il faudrait que son nom s'affiche en N23.

beaucoup trop compliqué pour moi qui débute en VBA!! j'espère que tu auras une idée et pourras me donner un coup de main sur cette affaire , sans trop y passer de temps.

Merci d'avance pour le temps que tu me consacreras.

cordialement http://forum.excel-pratique.com/posting ... =2&t=75369#
patrick67
Modifié en dernier par patrick67 le 15 mars 2016, 07:43, modifié 1 fois.
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 14 mars 2016, 22:59

Si je comprend bien, le fait d'avoir les images n'est là que pour cliquer dessus et inscrire un nom dans la cellule N22?
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
p
patrick67
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 janvier 2016
Version d'Excel : 2007

Message par patrick67 » 15 mars 2016, 06:10

Bonjour d3d9x
C'est exactement ça ! Ensuite la case donnant le nom de l'image serve à calculer un prix , mais là je gère . Pour l'instant, j'ai laissé une liste déroulante qui sera supprimée quand le l'affichage des images sera validé. C'est pour le choix de pièces que l'on appelle "lambrequin" les images parlent plus que le numéro de code de ces pièces.

Bone journée
p
patrick67
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 janvier 2016
Version d'Excel : 2007

Message par patrick67 » 15 mars 2016, 07:52

bonjour à tous,

bonjour d3d9x,

j'ai modifié mon fichier Joint qui avait trop de Renseignements privés! là je laisse le strict nécessaire pour comprendre ma demande. Les Images sont placées dans l'onglet" GRILLES TARIF". Il faudrait que toutes ces Images s'affichent dans l'onglet "DEVIS" dans la Zone 022:R27
J'ai trouvé un code écrit par "Dubois", j'essaye de l'adapter dans la macro "Affiche Image" uniquement Avec l'image "lamb_1" pour faire un essai, mais comme je ne connais pas Grand Chose à VBA, je plante bien évidemment.

Avec un peu de Chance "dubois" pourra jeter un oeil à ce problème!

bonne journée à tous
devis TEST.xls
(259.5 Kio) Téléchargé 24 fois
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 15 mars 2016, 11:01

Voilà une proposition normalement clé en main.

ATTENTION ta case N22 était fusionnée!!!! Si tu la refusionne tu auras des problèmes.
La totalité de mon code est dans le module nommé gestionImages
ATTENTION tu as nommé ta page devis+espace
Si tu changes de nom pour ta page, il faudra obligatoirement éditer la ligne suivante de code avec le nouveau nom utilisé
Private Const feuilleDevis As String = "devis "
J'attends ton retour ;) Tu as de la chance j'ai bien commenté le code tu devrais pouvoir t'y repérer.

:btres:
devis TEST (1).xls
(274.5 Kio) Téléchargé 40 fois
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
p
patrick67
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 janvier 2016
Version d'Excel : 2007

Message par patrick67 » 15 mars 2016, 17:44

merci beaucoup pour cette réponse rapide et très précise et surtout "clé en main". Ca fonctionne super bien, c'est excatement ce que je souhaitais. J'ignorais que les codes ne fonctionnent pas sur une cellule fusionnée. Je vais bien comprendre ta procédure pour l'appliquer à d'autres endroits de mon fichier, par exemple dans le choix des modèles ou des coulisses.

en principe je devrais y arriver :lol:

Amicalement
Patrick
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message