probleme de listbox !

[n3Twork]

bonjour j'ai une liste box et dans un userform jaffiche les valeur qui sont sur la meme ligne mais le probleme c'est que c'est pas les valeur de la meme ligne ! il y a un decalage

voici mon code

Private Sub ListBox1_Click()
Dim L As Integer
Dim c As Range

L = ListBox1.ListIndex
L = L + 1

With Sheets('Database')
If OptionButton1 = True Then
   media1 = .Cells(L, 3)
   Nmpr = .Cells(L, 5)
End If

If OptionButton2 = True Then
   media1 = .Cells(L, 7)
      Nmpr = .Cells(L, 9)
End If
End With
End Sub

si qlq peu m'aider merci

 

[flo2002]

Bonjour,
je ne suis pas un pro mais bon je vais essayer de comprendre ton probleme.
On dirait que c'est un code que tu as trouver et que tu as adapté car je vois que tu as c as range mais je ne le voit qu'une fois.

Sinon as tu essayer de régler ton décalage avec des - ou + n dans tes cell?

sinon a tout hasard est ce que ca ne viendrait pas du L = L + 1?

A mon avis si c'est un code récupérer et que tu avais deux variables c'est qu'il devais y avoir une raison.

Bon courage!
PS: Ne prends pas mes conseilles pour argent comptant je suis d'etre un pro... 😛

 

[n3Twork]

Slt

Merci pour ton aide 🙂 j'ai reussi a resoudre le probleme. sa venai d'un decalage 🙂

 

[n3Twork]

re Bonjour

en faite j'ai toujours le meme probleme

Lorsque je selectionne dans la liste box sa maffiche les valeur de la ligne en dessus ....

si qlq peu me donner un coup de main

merci