Résolu XL 2016 VBA affichage image/sélection ligne après click souris

SEBABOO

XLDnaute Nouveau
Bonjour à tous,

Je viens vers vous afin que vous puissiez m'apporter votre aide dans la conception de ce fichier, en espérant que ce que j'ambitionne soit réalisable.
J'ai créé un fichier Excel dans lequel on retrouve les plans de chaque étage d'un bâtiment. Sur ce plan, j'ai placé des points cliquables représentant la position des BAES blocs de secours ; en vert pour les blocs d'évacuation et en rouge pour les blocs d'ambiance et ce dans le but d'assurer le suivi d'entretient des BAES.

Un tableau annexe reprend les dénominations de chaque bloc avec type, date de pose, référence. Un emplacement est prévu à coté de ce tableau pour afficher l'image du bloc correspondant, image présentes dans l'onglet "BASE DE DONNEES".
Le but de la manœuvre, vous l'aurez compris, est que lorsque l'on clique sur un point, la ligne correspondante dans le tableau et l'image de ce bloc de secours apparaissent.

Je débute en VBA et malgré mes recherches de codes sur le net en tentant d'en comprendre les procédures et de les adapter à mon cas de figure, le résultat n'est que partiellement là…
Je suis pour le moment parvenu à générer la surbrillance des lignes du tableau, mais la surbrillance s'applique à toute la feuille de l'onglet et je ne souhaite qu'elle ne s'applique qu'au tableau.
Concernant l'affichage des images correspondantes, ces dernières apparaissent hasardeusement. Je souhaiterai qu'à chaque clic la bonne image s'affiche et écrase la précédente dans l'espace prévu à cet effet.

Merci pour votre aide.
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Sebaboo,
En PJ un essai.
Pour le problème de cellules j'ai mis :
VB:
    ' On sort si on n'est pas dans le tableau
    If (target.Row < 33 Or target.Row > 52) Or (target.Column < 2 Or target.Column > 9) Then Exit Sub
Pour les images, je les mets en visible/invisible. C'est plus simple. elles sont toujours présentes, ça évite de les supprimer et rapatrier.
Code:
    ' Gestion images
    If Cells(target.Row, 4) = "Evac" Then
        Shapes("Evac").Visible = True
        Shapes("Amb").Visible = False
    Else
        Shapes("Evac").Visible = False
        Shapes("Amb").Visible = True
    End If
 
Ce message a été identifié comme étant une solution!

Fichiers joints

SEBABOO

XLDnaute Nouveau
Bonjour sylvanu,

Je viens de tester votre fichier joint, et après adaptation à l'ensemble de mes plans, cela convient parfaitement à ce que je souhaitais faire.
Merci beaucoup de votre aide.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas