Discussion :

[Starck24100]

Bonjour,

Je cherche à mettre en place une Macro bien spécifique. J'ai déjà posté plusieurs fois et il s'agirait là d'un fichier qui concatène toutes les informations !

Je vais met donc le fichier ci-joint.
concorde (1).xlsm
Alors il y a plusieurs choses que je souhaiterai sur un seul et même fichier, j'ai essayer de prendre des macros existantes de plusieurs fichiers etc et je n'ai jamais réussi jusque là..

Actuellement, il y a la macro cliconShape qui me permet d'avoir le nom de la partie que je cherche dans la cellule F2.

Ce que je souhaiterai :

1- Lors du clic sur partie d'avion, passer d'une couleur transparente et cliquable (si possible ? à défaut blanc) à une couleur dédié (rouge par exemple)

2- Réussir à avoir dans cette même cellule F2 la liaison à double sens. c'est a dire que si je note le nom exact (ou selection dans une liste déroulante) de la partie qu'il me fasse apparaître la "shape" correspondante avec le même fonctionnement sur la mise en couleur du "shape"

3- Centrer "dans la mesure du possible" la shape correspondante au centre de l'écran ( utile en cas de zoom élevé. ) La partie figé doit resté visible..
J'ai vu passer ceci sur le net, est ce une bonne voie ?

Code :

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

1
2
3
4
Sub Test()
Dim VR as Range
Set VR= ActiveWindow.visibleRange
With Activesheet.shapes("cdr")

Je compte souvent sur cette communauté en ce moment et je vous remercie sincèrement pour les différentes propositions faites à chaque fois. Je décompose vos propositions afin de comprendre le fond de la macro et devenir je l'espère rapidement autonome !

Cordialement.

[Qwazerty]

Salut

Tu peux prendre exemple sur ça peut-être. Il y a d'autre exemple sur le net en cherchant "survol excel lien hypertext"
https://www.developpez.net/forums/d1...affiche-image/

Quels sont les essais que tu as réalisés avec "des macros existantes de plusieurs fichiers etc"? Quels problème as-tu rencontré?

Pistes:
Tu peux jouer sur la transparence de la couleur interne du shape, comme ça tu détermines les couleurs des éléments, tu mets la transparence à 1 (shape.Fill.transparency dans l'aide) et à partir de la macro tu joues avec cette transparence.

Même s'il arrive souvent que les gens du forum ponde du code pour aider mais un minimum de travail dans la démarche est appréciée. Je vois que tu as deux messages de postés sur le forum et les deux ressemblent plus à des cahiers des charges qu'à des demandes d'aide.

++
Qwaz

[Starck24100]

Merci pour ta réponse je vais essayer avec les informations que tu m'as transmis.

En gros pour résumer mon fichier Actuel (je ne peux malheureusement pas le fournir par respect de contrat) : Il permet de cibler les portes d'un avion dans les deux sens. (soit trouver le noms de la porte en clic image, soit trouver la porte par le nom en sélection manuel)

A l'heure d'aujourd'hui, il fonctionne de 2 manières.
Dans un sens la sélection manuel pour trouver à partir du numéro de la porte est géré par une macro de coordonnées. J'ai donc dans ma base rentré toutes les coordonnées après avoir fixé la macro pour faire apparaître une shape pointeur sur la zone concernée. celle-ci est totalement fonctionnelle. Je vous enverrai le contenu des macro complet lundi si vous le souhaitez.
Dans l'autre sens, j'ai seulement fixé des shapes à mon image pour créer une sorte d'image vectoriel. et par une macro application.caller. et quelques formules je retombe sur mes pattes et sur le nom de la macro avec les scrolling d'images correspondant etc.
Le fichier en soit est utilisable et utilisé. La seule chose qui me dérange est simplement la fragilité du fichier.
Un moindre déplacement d'image décalé etc ou zoom va ruiner le fichier. J'ai donc bloquer l'enregistrement en manuel.
Aussi j'aurai voulu plutôt que d'utiliser un pointeur coordonnées jouer sur les shapes et la couleur pour cibler la zone. J'ai environ 400*2 portes que je devrais découper etc pour créer mes shapes et commencer mes différents tests.

Et le centrage sur la porte ciblé serait juste top, l'outil serait robuste et beaucoup plus clair qu'une macro de scroll qui n'est pas cohérent à partir du moment ou un zoom a été mis en place.

De plus, j'aurai aimé justement au même titre qu'il existe des cartes interactive avoir un fonctionnement dans les deux sens. afin de pouvoir justement colorer les shapes mis en valeur etc.
Avec les travaux de ce fichier, cela m'a donc mis en "appétit" sur un outil dans le même sens qui vraiment faciliterai l'expertise de mes travaux.

Il s'agit justement de la possibilité d'avoir une shape totalement transparente et cliquable qui deviendrait en couleur, celle ci permettrait de faire apparaître un zoning sur un avion ou les zones s’entremêlent de base dans les vues.

Merci pour ta réponse, je vais voir si ce que tu m'as transféré correspondrait à mes attentes !

"Le partage est la meilleure voie pour l'évolution de nos connaissances"
Cordialement.

[Qwazerty]

Salut

Regarde si ça peut convenir

++
Qwaz

[Starck24100]

Merci pour ta proposition !

Concernant les mise en couleur niquel c'est ça ! ça suit lors de la sélection, c'est parfait.
Le seule hic il faudrait que ça actualise sur le cellule déroulante le numéro/nom du shape lors du click sur la zone, ce qui n'est pas le cas de mon côté.

J'ai eu le même soucis sur mon outil principal actuel, pour le régler, j'avais mis en place une maccro application.caller suivi d'une macro copier coller la valeur dans la cellule zone déroulant.
Je referais la même étape je pense, à moins que tu aies une autre idée ?

Je vais tester de lier la macro de centre visibleRange lors de la selection.

Merci pour ton aide !

[Qwazerty]

Ça devrait le faire avec ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ChoixClic()
Dim NomShp As String
    'On récupère le nom du shape cliqué
    NomShp = Feuil2.Shapes(Application.Caller).Name
    'On appel la procédure commune
    Choix NomShp
    'On met à jour la cellule de la feuille
    Application.EnableEvents = False 'Ne provoque plus les appel aux procédures événementielles
    On Error Resume Next
    Feuil2.Range("NomPartie").Value = NomShp
    On Error GoTo 0
    Application.EnableEvents = True 'Ne provoque plus les appel aux procédures événementielles
 
End Sub

++
Qwaz