Faire apparaitre image + texte Résolu

Question

Bonjour, 
Suivant le fichier joint, j'ai deux petits problèmes.
1) Dans la 4ème image (avec les nuages) à chaque fois que je change l'image des conditions, (en cliquant sur les boutons à gauche de la console) je suis obligé de remettre l'image du hublot en premier plan.
Y a-t-il un moyen que cette image reste toujours en premier plan ?

2) Actuellement, (au-dessus de l'image des nuages) je choisi un texte de la liste déroulante qui se trouve en A16 (les textes sont de A18 à A28 en blanc).

Donc, ce que je souhaiterais (si possible)
1) Avoir l'image des conditions avec le texte correspondant.
2) Avoir l'image du hublot toujours en premier plan.

J'espère avoir réussi à bien m'expliquer ?
Merci de votre aide

https://cjoint.com/doc/22_05/LEwjSLUIybK_Mod%C3%A8le-console.xlsx




Configuration: Windows / Edge 101.0.1210.53

ccm81 · Answer

Bonjour

 https://www.cjoint.com/c/LEwqiX7twJB
Il m'a fallu faire un peu de manage, entre les noms des boutons radio, les noms en A18-A28 (liste déroulante, orthographe ) et les noms des objets shapes, ça se télescopait un peu
J'ai supprimé les boutons radio et renommé les objets shapes

Cdlmnt

Guy72 · Answer

Merci
Maintenant, il va falloir que je remplace la page d'origine dans mon fichier.
As tu une solution pour que le hublot reste toujours devant ?

ccm81 · Answer

As tu une solution pour que le hublot reste toujours devant ?  
1. Nommer le hublot "Hublot"
2. Modifier le code
Public Sub majHublot(nomh)
With ActiveSheet
  .Shapes(nomh).Select
  Selection.ShapeRange.ZOrder msoBringToFront
  .Shapes("Hublot").Select
  Selection.ShapeRange.ZOrder msoBringToFront
End With
End Sub

Une solution avec des boutons radio
https://www.cjoint.com/c/LEwrb0KOVaB
Avec des boutons radio

RQ. Il manque une image pour Nuageux

Cdlmnt

Guy72 · Answer

Si je remplace le code, ça ne fonctionne pas, ça bloque à la ligne 5.
Je ne sais pas si cela à une importance, mais l'image "Hublot" ne fait pas parti du groupe des autres, cette image est en fond comme les autres cercle

ccm81 · Answer

Si je remplace le code, ça ne fonctionne pas, ça bloque à la ligne 5. 
Avec mon fichier ?

ccm81 · Answer

Ici, ça marche
https://www.cjoint.com/c/LEwrRgDPwwB

Guy72 · Answer

Ok pour le hublot
Mais j'ai un problème.
Si j'intègre la feuille dans mon fichier, plus rien fonctionne à part le texte avec la liste, mais pas les images.
J'ai copier aussi les codes

ccm81 · Answer

Il te faut renommer les objets comme dans mon code.

Là je plie boutique pour ce soir

Guy72 · Answer

D'accord "à demain si vous le voulez bien"
Désolé, ce que tu me propose me va bien, mais je n'arrive pas à comprendre pour le mettre dans mon fichier d'origine..
Ci joint mon fichier d'origine.

https://cjoint.com/doc/22_05/LEwsBpqEiqK_Mai-2022.xlsm

Je ne l'ai pas envoyé au début, je pensais qu'il était trop volumineux pour "Cijoint"

ccm81 · Answer

J'ai dû recréer les boutons radios (je suis sous excel 2003, les tiens ne sont pas reconnus), j'espère que ça fonctionnera chez toi
Je n'ai pas trouvé l'image Très_Nuageux
 https://www.cjoint.com/c/LExjNPACYDB

Cdlmnt

Guy72 · Answer

Je te remercie de tout ce que tout fait pour m'aider.
J'avoue quand ce sont des codes, je ne comprend pas trop.

Apparemment, le reste fonctionne, à part que ça ne change pas le texte en cellule A16

ccm81 · Answer

à part que ça ne change pas le texte en cellule A16 
normal ...  pas fait !

ccm81 · Answer

c'est fait
https://www.cjoint.com/c/LExkt7Z3c0B

Guy72 · Answer

Impeccable !!!
Je regarde ça, il faut que je recadre un peu les images
Je te tiens au courant
Merci encore

Guy72 · Answer

Juste un petit détail :
Le cadre de l'image des conditions reste, alors qu'à la version 
d'hier "LEwrRgDPwwB_Guy72-6" le cadre disparaît.
Que faut-il faire pour avoir la même chose ?

ccm81 · Answer

1. Const celConditions = "A16"Const CelLune = "A4"Const celQuit = "B14"
2.  ' Hublot LunePublic Sub majLune(nomh)With ActiveSheet  .Shapes(nomh).Select  Selection.ShapeRange.ZOrder msoBringToFront  '.Shapes("hublot_Lune").Select  'Selection.ShapeRange.ZOrder msoBringToFront  .Range(CelLune).Value = Replace(nomh, "_", " ")  .Range(celQuit).SelectEnd WithEnd Sub
3.' Hublot ConditionsPublic Sub majConditions(nomh, nomob)With ActiveSheet  .Shapes(nomh).Select  Selection.ShapeRange.ZOrder msoBringToFront  .Shapes("hublot_Conditions").Select  Selection.ShapeRange.ZOrder msoBringToFront  .Range(celConditions).Value = Replace(nomob, "_", " ")  .Range(celQuit).SelectEnd WithEnd Sub

Guy72 · Answer

Impeccable !!! encore une fois.
Par contre, mes images de lune et de conditions sont décalées, J'essaye de modifier leur emplacement, d'habitude j'y arrive, mais là, je n'arrive pas avoir les propriétés de ces images.
Dans la liste, je ne vois que les boutons.

PS 
Excuse, j'ai trouvé, je pensais qu'il fallait passer par les propriétés, alors que je peux les bouger avec les flèches :(

Cela ne fait qu'un clic au lieu de trois, c'est quand même mieux.

il me reste plus que les heures de marées et le lever et coucher du soleil à faire manuellement.

Merci encore

Guy72 · Answer

Bonjour
Comment dois-je procéder pour changer d'image dans "conditions", je ne vois pas les propriétés.
Si je clic sur l'image, le nom est "Feuil1" et Console.

ccm81 · Answer

Bonjour

Si je clic sur l'image, laquelle ?
Il faudrait en dire un peu plus, là, je ne comprends pas bien ce que tu veux faire
Veux tu remplacer une image (par exemple Nuageux) par une autre ?

Guy72 · Answer

oui, c'est ça l'image "Esoleillé"
Quand je regarde dans mes anciens mois, par exemple en Février, en me mettant en mode création, en faisant propriétés, dans la liste, ily a le nom des images et des boutons, mais pas là, il n'y a que les boutons.

ccm81 · Answer

Toujours pas très clair
Si tu veux changer l'image (actuellement nommée) "Ensoleil"
1. Tu la fait apparaitre avec le bouton Ensoleillé
2. Tu fais glisser l'image hublot
3. tu fais glisser l'image "Ensoleil"
4. tu la supprimes
5. tu colles ta nouvelle image
6. tu la dimensionnes comme les autres
7. Tu la renomme "Ensoleil"
8. tu remets tout en place

Guy72 · Answer

ça ne fonctionne pas, ça met en jaune la ligne
 ".Shapes (nomh) .Select"
' Hublot ConditionsPublic Sub majConditions(nomh, nomob)With ActiveSheet  .Shapes(nomh).Select  Selection.ShapeRange.ZOrder msoBringToFront  .Shapes("hublot_Conditions").Select  Selection.ShapeRange.ZOrder msoBringToFront  .Range(celConditions).Value = Replace(nomob, "_", " ")  .Range(celQuit).SelectEnd WithEnd Sub
Le nom de l'image est bien "Ensoleil"

ccm81 · Answer

et que vaut nomh (tu passes le curseur sur nomh dans le debogueur?
es tu sûr de ne pas avoir ajouté un espace au nom de l'image ?

Guy72 · Answer

Je ne vois rien de spécial

ccm81 · Answer

C'est dans le dernier fichier que je t'ai renvoyé ?
Tu vas vérifier si cette image est bien là
1. Tu cées une feuille "Liste_shapes"
2. Tu vas dans l'editeur vba (Alt-F11)
3. Insertion Module. ça doit créer un Module 1
4. Copies y ce code
Option Explicit

Const FL = "Liste_shapes"
Const FC = "CONSOLE"

Sub ListeShapes_1()
Dim T(), n As Long, sh As Shape, k As Long
With Sheets(FC)
  n = .Shapes.Count
  ReDim T(1 To n, 1 To 6)
  k = 0
  For Each sh In .Shapes
    k = k + 1
    T(k, 1) = sh.Name
    T(k, 2) = sh.Type
    T(k, 3) = sh.Top
    T(k, 4) = sh.Left
    T(k, 5) = sh.Height
    T(k, 6) = sh.Width
  Next sh
End With
Sheets(FL).Cells(2, 1).Resize(n, 6) = T
End Sub
5. Tu lances la macro ListeShapes_1
6. Dans la feuille Liste_shapes, tu as la lisyte des shapes de la feuille CONSOLE. Tu dois y retrouver "Ensoleil" 

Tu dis

Guy72 · Answer

Avec l'ancienne, je vois bien le nom
Avec la nouvelle, je ne vois pas son nom.
Est-ce que cela a une importance que ce soit une image .png ?

ccm81 · Answer

Avec la nouvelle, je ne vois pas son nom. 
es tu sûr de l'avoir nommé ?
Est-ce que cela a une importance que ce soit une image .png ? 
Je ne pense pas, j'ai fait une tentative, ça fonctionne, l'image apparait et son nom est bien dans la liste
 https://www.cjoint.com/c/LEzqQLSPu6B
clic sur le bouton Ensoleillé, ça devrait fonctionner

Envoies le fichier

Guy72 · Answer

https://cjoint.com/doc/22_05/LEzrbbOAXxK_Mai-2022.xlsm

ccm81 · Answer

1. Tu n'a pas renommé l'image, elle s'appelle "Image 3"
2. Je ne peux pas le faire pour toi, mon vieil excel 2003 'a ratatiné tous les boutons radio.

Guy72 · Answer

OUpsss !!!
J'ai compris le problème.
Quand j'ai fait mon image, je l'ai appelé "Ensoleil" et je l'ai inséré dans ma feuille.
Là ou je n'ai pas fais attention, c'est qu'il fallait s'occuper du nom en haut à gauche.
Bon, je ne t'embête plus avec ça.
Merci encore pour ton aide ;)

Faire apparaitre image + texte - Page 2

Discussions similaires

Newsletters