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!!