Discussion :

[vietzims]

Bonjour,
mon problème est le suivant: la fonction mousemove ne marche pas avec les ellipse que j'ai créer et ki me permettent d'ouvrir mes userforms.
en fait je veu utiliser la fonction mousemove afin d'afficher une image illustrative lorsque la souris passe sur une ellipse. Voila le code que j'ai tapé:

Option Explicit
Dim indice As Integer

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Ellipseparametre_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 1 Then
    [groupeparametre].Visible = True
    Call reinitialiser(indice)
    indice = 1
  End If
End Sub
 
Private Sub Ellipseinventaire_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 2 Then
    [groupeinventaire].Visible = True
    Call reinitialiser(indice)
    indice = 2
  End If
End Sub
 
Private Sub Ellipseboncommande_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 3 Then
    [groupeboncommande].Visible = True
    Call reinitialiser(indice)
    indice = 3
  End If
End Sub
 
Private Sub Ellipsesecurite_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 4 Then
    [groupesecurite].Visible = True
    Call reinitialiser(indice)
    indice = 4
  End If
End Sub
 
Private Sub Ellipsecontrole_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 5 Then
    [groupecontrole].Visible = True
    Call reinitialiser(indice)
    indice = 5
  End If
End Sub
 
Private Sub Ellipsemateriau_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 6 Then
    [groupemateriau].Visible = True
    Call reinitialiser(indice)
    indice = 6
  End If
End Sub
 
Function convertIntBool(ByVal X As Integer) As Boolean
  If X = 0 Then
  convertIntBool = False
  End If
  If X = 1 Then
  convertIntBool = True
  End If
End Function
 
Sub reinitialiser(ByVal e As Integer)
  If e = 1 Then [groupeparametre].Visible = False
  If e = 2 Then [groupeinventaire].Visible = False
  If e = 3 Then [groupeboncommande].Visible = False
  If e = 4 Then [groupesecurite].Visible = False
  If e = 5 Then [groupecontrole].Visible = False
  If e = 6 Then [groupemateriau].Visible = False
End Sub

merci d'avance!!

[ouskel'n'or]

Je vais déjà te passer une adresse http://www.developpez.net/forums/sho...d.php?t=553797
Pour ta question : Où mets-tu tes ellipses ? Dans un userform ou dans un feuille de calculs ?
Dans une feuille de calcul, les objets n'ont pas d'événement mousemove.
Doivent-elles être modifiables ?

[vietzims]

merci beaucoup
en fait les objets sont sur une feuille de calcul.
c'est certainement pour ça que ca ne marche pas.
mais alors il faut nécessairement créer un formulaire??