Discussion :

[tasse2the]

Bonjour à tous.

En préambule, une petite présentation, qui servira accessoirement de prévention : je ne suis absolument pas informaticien. Les quelques (rares) connaissances du visual basic dont je dispose sont exclusivement empiriques, donc ma façon de programmer doit ressembler à peu près au pire cauchemar de tout informaticien qui se respecte.

Après avoir parcouru en long en large et en travers ce forum, je me résoud à poster une nouvelle discussion. La réponse à ma question est certainement déjà sur le forum, mais bon, je n'ai rien trouvé d'assez clair pour pouvoir l'utiliser.

Mon problème est donc le suivant.

sur une feuille de calcul, je dois gérer des groupes de 4 petites images, visibles ou non selon les circonstances, dont le nom se trouve dans une mini base de donnée sur une autre feuille. jusque là, je m'en sors à peu près.
en plus de ces images, je dois gérer une étiquette, qui apparait lorsque la souris passe au dessus de l'une des images. Pour ça aussi, je pense pouvoir m'en sortir.
Le problème arrive lorsque je veux modifier automatiquement (par l'intermédiaire d'une macro) le texte de ladite étiquette. je tente désespérément d'utiliser le .caption, et excel me renvoie une erreur propriété ou méthode non gérée par cet objet. Et là, je bloque. Quelqu'un peut m'aider ?

Pour tenter d'être plus clair voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub test()
 
Dim Nom_image_originale, _
      Nom_BDD As String
 
    Nom_BDD = "TE-MOB-001"
 
    ActiveSheet.Shapes("Im_Et_NS").Select
    Selection.Copy
    Range("CH36").Select
'dans la version finale, cet emplacement sera défini par la position de la
'souris au moment de la demande de création
    ActiveSheet.Paste
    Nom_image_originale = Selection.Name
    Selection.Name = Nom_BDD + Right(Nom_image_originale, 3)
 
 'même code pour les trois autres images
 
    ActiveSheet.Shapes("Tx").Select
    Selection.Copy
    Range("CH36").Select
    ActiveSheet.Paste
    Selection.Caption = "Texte de l'étiquette" 'cette ligne provoque une erreur
    Selection.Name = "Nom_BDD" + "_Tx"
 
End Sub
 
'l'étiquette d'origine a été créée comme ceci
'    ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
       DisplayAsIcon:=False, Left:=1123.5, Top:=395.25, Width:=87, Height:= _
       24).Select

Voilà, j'espère ne pas avoir été trop brouillon dans mes explications, et que quelqu'un saura me donner des idées, voire me donner un cours de VBA excel (ca me semble de plus en plus nécessaire).

[ouskel'n'or]

De quel type d'image s'agit-il ? Utilises-tu un contrôle image issu de la boîtes à outils contrôles ? Si oui, un clic droit sur l'image permet d'afficher les propriétés. Or parmi ces propriétés, je ne vois pas la propriété "Caption", ni d'ailleurs ControlTipText qui permettrait un affichage fugitif d'un message sur l'événement Mouse_Move.
Peux-tu préciser ?
A+

[ouskel'n'or]

Pour t'apporter tout de même une réponse : Je crée un label selon ta méthode

'l'étiquette d'origine a été créée comme ceci
' ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=1123.5, Top:=395.25, Width:=87, Height:= 24).Select

Je place une image dans un contrôle image issu de la boîte à outils contrôles
Dans l'événement MouseMove de l'image, je mets ça

Code :

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

1
2
3
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Caption = "Image1"
End Sub

En faisant ça, j'ai bien "Image1" dans le label.
Tu dis
A+

[tasse2the]

Argghhh !

J'étais sur que c'était pas clair, mon explication.

En fait, le label original a été créé manuellement, à l'aide de la barre d'outils contrôles, ce qui fait qu'en direct, j'ai accès aux propriétés habituelles, genre caption, backstyle, etc...

La ligne que j'ai noté, c'est ce qui apparait dans la macro lorsque j'enregistre en même temps que je crée le controle label.

[ouskel'n'or]

Ça ne change rien au fonctionnement de la ligne que je t'ai passée où est utilisé l'événement mousemove de ton bouton.

[tasse2the]

Bon, je vais tout reprendre depuis le début, parce que là, je suis vraiment bien bloqué.

Alors voilà :
Dans mon fichier, j'ai deux feuilles de calculs.
La premiere contient une mini base de données, chaque élément de cette base de données décrit un équipement et est référencé par un nom.
dans la seconde, j'ai plusieurs plans, importés d'un fichier autocad qui représentent les locaux dans lesquels les équipements sont installés.

Je voudrais, en cliquant à un endroit de ma feuille de plan créer automatiquement une image figurant un des équipements de la base.

Pourquoi une image ? parce que je veux pouvoir modifier automatiquement son contenu, en fonction des informations contenues dans la base de données (à chaque ouverture du fichier, par exemple)

De plus, je voudrais qu'une fois que l'image est créée, un clic sur celle-ci lance une autre macro, ouvrant une userform qui contiendrait les données de la base correspondant à l'équipement sélectionné.

dans l'état actuel des choses, je sais comment récupérer la position de la souris par rapport à ma feuille de calcul au moment du clic, donc le placement de l'image à créer automatiquement ne pose pas de problème.

par contre, je suis infoutu de créer une image dont je puisse modifier le nom, les caractéristiques de façon automatique. Je ne vois pas non plus comment lui affecter une macro.

une idée ?

[ouskel'n'or]

Ok. Je vois. J'en étais resté là.

en plus de ces images, je dois gérer une étiquette, qui apparait lorsque la souris passe au dessus de l'une des images.

Tu dis donc

Je voudrais, en cliquant à un endroit de ma feuille de plan créer automatiquement une image figurant un des équipements de la base

Ce que j'ai compris :
Tu as une feuil1 qui contient une "mini base de données"
Tu as une feuil2 "plusieurs plans"
Ensuite

Je voudrais, en cliquant à un endroit de ma feuille de plan créer automatiquement une image figurant un des équipements de la base.

Où prends-tu le nom de l'équipement. Où cliques-tu ? Dans une cellule ? Le cas échéant, que contient la cellule ?
Si d'autres questions me reviennent, compte sur moi
A+

[tasse2the]

alors en fait, je ne clique pas vraiment dans une cellule, puisque j'ai l'image du plan sur ma feuille. Je clique donc sur l'image du plan. Cela dit, je sélectionne malgré tout la cellule sur laquelle était positionnée ma souris au moment du clic.
La cellule que je sélectionne est obligatoirement vide, car si tel n'est pas le cas, une autre macro est lancée.

quand je parle d'image à créer automatiquement, il ne s'agit pas d'une image externe (sur le disque dur), mais plutôt de l'équivalent de ce qui se passe quand tu sélectionnes le bouton "image" de la boite à outils contrôle (ceci me permet ultérieurement de modifier le contenu de cette image en faisant justement appel à des images situées sur le disque dur).

Le nom de l'équipement sera déterminé par l'utilisateur, grace à un choix dans une liste reliée à la base de donnée sur l'autre feuille, voire directement par une macro. Dans l'un et l'autre cas, il s'agit d'une variable string.

Le truc, en fait, c'est qu'une fois que l'image a été créée, je dois pouvoir modifier ses propriétés par l'intermédiaire d'une macro, sans faire appel à un utilisateur.

[ouskel'n'or]

Alors voilà !
Donc, j'ai placé une image dans un contrôle image de la barre d'outils contrôles.
Le pb est qu'un contrôle image n'a pas de Tag ou de Caption ou de quoi que ce soit qui permette de récupérer le nom du fichier correspondant.
Deux solutions : tu donnes une référence à tes contrôles en les renommant du nom de cette référence, ou tu utilises leurs index.
Ce nom ou cet index renverrait sur une feuille contenant l'index et le nom du fichier.
Après ouverture et modif du plan, utilises la propriété Picture du contrôle image pour redéfinir le fichier correspondant mais mis à jour.
Comprends-tu ou dois-je aller plus loin ?
A+

[tasse2the]

euhhh.
Au risque de passer pour un idiot, je dois t'avouer que je n'ai rien compris.
C'est possible de procéder par étapes, avec des exemples ?
par exemple, dans un premier temps, comment placerais-tu un contrôle image en cellule B2 (haut gauche de l'igmage sur haut gauche de la cellule) de feuill1, en passant par une macro ?