Bonjour à tous,

Je souhaiterai par le biais d'un UserForm indiquer des informations sur les hôtels placés sur une carte par des petits carrés.

Donc lorsqu'on clique sur le carré correspondant à un hôtel en particulier, je fais appel à une variable (code de l'hotel) qui sera ma base de la recherchev inclue dans l'UserForm pour donner plus d'indications.

Ma macro se fait donc en 2 étapes:

1ere etape: créer une variable et lui attribuer une valeur en fonction du carré sur lequel on clique:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim numcath As String
 
Sub Rectangle2_Cliquer()
numcath = 1001
UserForm1.Show
 
End Sub

2eme Etape: Utiliser la variable comme valeur pour ma textbox1, qui sert de base pour ma recherchev.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Me.TextBox1 = numcath
 
With Me
    .TextBox2 = Application.VLookup((Me.TextBox1), [Feuil2!(A1:E4)], 2, False)
    .TextBox3 = Application.VLookup((Me.TextBox1), [Feuil2!(A1:E4)], 3, False)
    .TextBox4 = Application.VLookup((Me.TextBox1), [Feuil2!(A1:E4)], 4, False)
    .TextBox5 = Application.VLookup((Me.TextBox1), [Feuil2!(A1:E4)], 5, False)
End With
End Sub
Cependant le débogueur se met en route et je n'arrive pas à voir où ça coince...
Quelqu'un pour me sortir de cette impasse?

Merci Beaucoup,
Victor

PS: Par soucis de confidencialité, j'ai reproduit ma matrice avec des cathédrale, mais le principe est exactement le même!! (Voir PJ)Carte.xlsm