Bonjour à tous,
un peu rouiller en vba je souhaiterais réaliser une macro me permettant de:
- Récupérer les coordonnées X,Y de la souri lors d'un clic sur une grande image situé sur un userform
- Traiter ce X,Y pour en fonction inscrire dans une sheet ligne apres ligne les coordonnées traité
- Pouvoir laisser une trace graphique (carre, rond, croix, lettre?..) sur l'image ou la personne a cliqué.
--- Je sais :
Creer un userform et y mettre l'image.
récupérer la dernière ligne active de la sheet database.
J'ai trouvé sur internet ce bout de code mais je n'arrive pas à le transformer juste afficher /traiter juste au moment d'un clic souris.
------------------- Bout de code ---------------------
Private Sub Image_map_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Y 'Vertical coordinate
Case Is < 2 'Off the map
t_stringer.Value = "off"
Case Is < 47
t_stringer.Value = "32"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = "46"
Case Is < 78: t_cadre.Value = "54"
Case Is < 152: t_cadre.Value = "62"
Case Else: t_cadre.Value = "off"
End Select
Case Is < 87
t_stringer.Value = "45"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = ""
Case Is < 40: t_cadre.Value = ""
Case Is < 112: t_cadre.Value = "Cuba"
Case Else: t_cadre.Value = "" 'Off the map
End Select
Case Is < 133
t_stringer.Value = "56"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = ""
Case Is < 78: t_cadre.Value = "Mexico"
Case Is < 152: t_cadre.Value = "Puerto Rico"
Case Else: t_cadre.Value = "" 'Off the map
End Select
Case Else 'Off the map
Country = ""
End Select
' The statement below was used while figuring out the coordinates
' Application.StatusBar = Country & " " & X & " " & Y
Application.StatusBar = 34
End Sub
--------------------- Bout de code [end] --------------------------
D'avance merci à tous.
un peu rouiller en vba je souhaiterais réaliser une macro me permettant de:
- Récupérer les coordonnées X,Y de la souri lors d'un clic sur une grande image situé sur un userform
- Traiter ce X,Y pour en fonction inscrire dans une sheet ligne apres ligne les coordonnées traité
- Pouvoir laisser une trace graphique (carre, rond, croix, lettre?..) sur l'image ou la personne a cliqué.
--- Je sais :
Creer un userform et y mettre l'image.
récupérer la dernière ligne active de la sheet database.
J'ai trouvé sur internet ce bout de code mais je n'arrive pas à le transformer juste afficher /traiter juste au moment d'un clic souris.
------------------- Bout de code ---------------------
Private Sub Image_map_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Y 'Vertical coordinate
Case Is < 2 'Off the map
t_stringer.Value = "off"
Case Is < 47
t_stringer.Value = "32"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = "46"
Case Is < 78: t_cadre.Value = "54"
Case Is < 152: t_cadre.Value = "62"
Case Else: t_cadre.Value = "off"
End Select
Case Is < 87
t_stringer.Value = "45"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = ""
Case Is < 40: t_cadre.Value = ""
Case Is < 112: t_cadre.Value = "Cuba"
Case Else: t_cadre.Value = "" 'Off the map
End Select
Case Is < 133
t_stringer.Value = "56"
Select Case X 'Horizontal coordinate
Case Is < 2: t_cadre.Value = ""
Case Is < 78: t_cadre.Value = "Mexico"
Case Is < 152: t_cadre.Value = "Puerto Rico"
Case Else: t_cadre.Value = "" 'Off the map
End Select
Case Else 'Off the map
Country = ""
End Select
' The statement below was used while figuring out the coordinates
' Application.StatusBar = Country & " " & X & " " & Y
Application.StatusBar = 34
End Sub
--------------------- Bout de code [end] --------------------------
D'avance merci à tous.
