Discussion :

[victor.dubois]

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

[PMO2017]

Bonjour,

J'ai modifié le code.

1) Code du UserForm

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
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
Dim var
'---
var = Sheets("Feuil2").UsedRange
 
TextBox1 = numcath
'TextBox1 prend la valeur de numcath en fonction du carré sur lequel on a préalablement cliqué
 
With Application.WorksheetFunction
  TextBox2 = .VLookup(numcath, var, 2, False)
  TextBox3 = .VLookup(numcath, var, 3, False)
  TextBox4 = .VLookup(numcath, var, 4, False)
  TextBox5 = .VLookup(numcath, var, 5, False)
End With
End Sub

2) Code du module Standard

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
Public numcath As Long  '///mis en portée publique (et en Long)
 
Sub Rectangle2_Cliquer()
'Numéro de la cathédrale d'Amiens en Feuil2 est 1001
numcath = 1001
UserForm1.Show
End Sub
 
Sub Rectangle3_Cliquer()
'Numéro de la cathédrale d'Amiens en Feuil2 est 1002
numcath = 1002
UserForm1.Show
End Sub
 
Sub Rectangle4_Cliquer()
'Numéro de la cathédrale d'Amiens en Feuil2 est 1003
numcath = 1003
UserForm1.Show
End Sub

*****
Maintenant, si vous avez une pléthore d'objets Rectangle (les petits carrés), il serait judicieux de les renommer chacun pour pouvoir utiliser une seule procédure Rectangle_Cliquer. Ce serait au sein de cette procédure qu'on pourrait identifier quel Rectangle a appelé et transmettre ainsi le renseignement au UserForm.

[victor.dubois]

Bonjour PMO,

Tout d'abord merci beaucoup pour votre réponse ainsi que votre aide. J'ai appliqué la macro sur mon document de base qui fonctionne, mais il est vrai qu'avec plus de 200 objets (carrés, triangles isocèles et ellipses - chacun représentant un type d’hôtel), votre réflexion sur le fait de les renommer puis d'utiliser le nom dans une macro est très adéquat.

J'essaye de trouver la solution de moi même et dans le cas où j'ai à nouveau un blocage, je re-posterai un message sur la discussion.

Encore merci!

Victor

[victor.dubois]

Après de longues recherches sur 'commet utiliser le nom d'une forme dans une macro', j'ai enfin trouvé le code adéquat!!

Pour ceux qui seraient intéressés :

Code :

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

1
2
Callingshapename = ActiveSheet.Shapes(Application.Caller).Name
'Callingshapename a désormais le nom de la forme sélectionnée.

Encore merci PMO, tu m'enlèves une épine du pied!

Victor

[PMO2017]

Bonjour,

On peut aller plus loin avec l'exploitation des objets.
Voir l'exemple en pièce jointe.