Message d'erreur

[apdf1]

Re,

Voilà dans ma listBox quand je passe mon curseur sur les items j'ai le nom et le N° de factures qui s'affiche dans le label "Lien" se trouvant dessous la listbox.

J'ai un message d'erreur qui s'affiche

"Impossible de lire la propriété list index de table de propriété non valide"

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  ligne = Int(Y / (ListBox1.Font.Size * 1.2))
  If Y > 0.2 And Y <= ListBox1.Height And ligne < Me.ListBox1.ListCount Then
    Me.Curseur.Visible = True
    Me.Lien.Visible = True
   
    Me.Curseur.Top = ligne * ListBox1.Font.Size * 1.2 + Me.ListBox1.Top
    [COLOR="red"][B]Me.Lien.Caption = ListBox1.List(ligne + Me.ListBox1.TopIndex, 2)[/B] [/COLOR]    Aff_C = "  "
    Aff_C = Aff_C & ListBox1.List(ligne + Me.ListBox1.TopIndex, 2)
    Aff_C = Aff_C & "  de la Société  "
    Aff_C = Aff_C & ListBox1.List(ligne + Me.ListBox1.TopIndex, 0)
    Me.Lien.Caption = Aff_C
    Me.ListBox1.ListIndex = ligne + Me.ListBox1.TopIndex
  Else
    Me.Lien.Visible = False
   
  
  End If
End Sub

Je joint mon fichier qui seras cetainement plus parlant

Merci d'avance

Max

 

[pierrejean]

Re : Message d'erreur

Bonjour apdf1

A tester

Remplacer

 If Y > 0.2 And Y <= ListBox1.Height And ligne < Me.ListBox1.ListCount  Then

par

 If Y > 0.2 And Y <= ListBox1.Height And ligne < Me.ListBox1.ListCount - 1 Then

 

[apdf1]

Re : Message d'erreur

Bonjour Pierre jean

Merci d'avoir répondu, mais non toujours le même message

@+

 

[job75]

Re : Message d'erreur

Bonsoir Max, salut pierrejean

Avec la modif proposée par pierrejean, plus de bug chez moi sur Excel 2010.

A+

 

[pierrejean]

Re : Message d'erreur

RE

Merci job

Veux-tu tester cette version ?

 

[job75]

Re : Message d'erreur

Re pierrejean,

Toujours aucun bug, et c'est mieux car plus rien ne s'affiche dans le Label quand on passe sur la ligne vide du haut.

A+

 

[apdf1]

Re : Message d'erreur

Re,

A oui la! plus de probléme sa marche nickel.
Je te remercie Pierre Jean et je te souhaite une bonne soirée

@+

Max