Discussion :

[edelweisseric]

Bonjour à tous

Un petit coup de main, SVP

J'ai une carte de France qui se trouve sur une feuille du fichier, et est un assemblage de shape/département. Le nom du shape est le nom du département.

Sur l'USF, j'aimerai obtenir cette carte où je puisse, au passage de la souris, avoir le nom du département.

A ce jour, je sais récupérer la carte dans un contrôle "image". Mais comment faire pour obtenir ce nom ?

J'ai essayé avec le contrôle "Spreadsheet" comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
    Dim Tableau() As Variant
 
    Sheets("carte").Activate
 
    Tableau = Range("A1:h35")
    Spreadsheet1.ActiveSheet.Range("A1:h35") = Tableau
 
End Sub

Je pensais que j'étais sur une bonne piste, mais je ne récupère que les cellules mais pas la carte (en A1:H35) ???? et après comment faire pour obtenir ce nom ?

Merci de vos conseils, ou peut-être d'une autre solution, ou serait-ce impossible ?

Eric

[DeaD78]

Salut,

A ce jour, je sais récupérer la carte dans un contrôle "image". Mais comment faire pour obtenir ce nom ?

Si tu sais récupérer ta carte dans un contrôle image, pourquoi ne restes-tu pas sur cette façon de faire (qui a l'air la meilleure de mon point de vue) ?

Tu insères ta carte dans un UserForm à travers le contrôle Image standard tout simplement.

Du coup, pour faire ce que tu souhaites (afficher le nom lorsque la souris passe dessus), tu peux donc utiliser les events de ton contrôle image. Je vois par exemple cet event

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)
 
End Sub

qui fait ce que tu souhaites. Dedans, tu mets le code qui te donne le nom de ta shape. Ainsi, dès que la souris passe sur ton contrôle image numéro 1, le nom de la shape (département) sera affiché. Il ne te restera alors plus qu'à le faire pour tous les départements pour autant de contrôles.

Bonne chance en tout cas !

[edelweisseric]

Bonjour à tous
Bonjour DeaD

Merci Dead de t' intéresser à mon cas.

Salut,
Tu insères ta carte dans un UserForm à travers le contrôle Image standard tout simplement.
Du coup, pour faire ce que tu souhaites (afficher le nom lorsque la souris passe dessus), tu peux donc utiliser les events de ton contrôle image. Je vois par exemple cet event

Code :

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

1
2
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub

qui fait ce que tu souhaites. Dedans, tu mets le code qui te donne le nom de ta shape. Ainsi, dès que la souris passe sur ton contrôle image numéro 1, le nom de la shape (département) sera affiché. Il ne te restera alors plus qu'à le faire pour tous les départements pour autant de contrôles.
Bonne chance en tout cas !

J'ai essayé, mais ......
Pour moi, dans le contrôle "image" je n'ai qu'une image (), et pas de shape, donc j'ai du mal à récupérer le nom. Peut être m'y suis je mal pris, ou ce qui est plus certain, je n'ai rien compris. J'ai, dans l'event, mis ceci :

Code :

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

Image1.ControlTipText = "mon département"

dans ce cas là, c'est bon, mais je ne peux pas écrire :

Code :

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

Image1.ControlTipText = Shape.Name

ou quelque chose d'approchant.
Un coup de pouce serait le bien venu.
Merci d'avance
Eric