Bonsoir à tous, le forum,
Voilà j’ai un bout de code qui ne va pas mais quoi ?
Je ne suis pas capable de trouver…
Si quelque peux m’aider,
Private Sub List2_Click()
Dim titre As Integer, r As Integer
titre = Label10.ListIndex * 20 + 1
For r = titre To titre + 19
If ong.Cells(r, 6) = '' Then Exit Sub
CA.AddItem ong.Cells(r, 6)
PU = Format('###.##000.00')
If ong.Cells(r, 4) = '' Then Exit Sub
PU = ong.Cells(r, 4)
Next
End Sub
Merci d'avance
A+ PAD
Voilà j’ai un bout de code qui ne va pas mais quoi ?
Je ne suis pas capable de trouver…
Si quelque peux m’aider,
Private Sub List2_Click()
Dim titre As Integer, r As Integer
titre = Label10.ListIndex * 20 + 1
For r = titre To titre + 19
If ong.Cells(r, 6) = '' Then Exit Sub
CA.AddItem ong.Cells(r, 6)
PU = Format('###.##000.00')
If ong.Cells(r, 4) = '' Then Exit Sub
PU = ong.Cells(r, 4)
Next
End Sub
Merci d'avance
A+ PAD