une petite aide SVP

[PAD]

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

 

[pat1545.]

sans le fichier...dur de deviner non ?

 

[Aeroplanneur]

salut PAD,

la première chose qui me saute aux yeux, c'est qu'un Label ne possède pas de propriété ListIndex. Tu peux vérifier ?

cordialement

 

[PAD]

Bonsoir Pat, Aeroplanneur, le forum

Je vous joint le fichier, il à un peu changer depuis tout à l'heure, mais le même problème,
et plus je le travail moins j'y vois

Merci de votre aide

A+ PAD

 

[Aeroplanneur]

PAD

>... mais le même problème,
et plus je le travail moins j'y vois

euh, ben nous c'est un peu pareil !! :S

envoie-le nous

cordialement

 

[PAD]

Je l'aivais perdu en routr [file name=dev1.zip size=43253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dev1.zip[/file]

 

[Aeroplanneur]

PAD,

regarde si en remplaçant
Label10 = AddItem(ong.Cells(r, 6)) par
Label10 = ong.Cells(r, 6)
tu n'obtiens pas ce que tu veux,

cordialement

 

[PAD]

Re Aeroplanneur,

Ba non ça marche pas, je reste collé sur la 1ére ligne de ma collection et c'est ça que je ne comprends pas
:unsure:

Dommage...

Merci

A+ PAD

 

[Hervé]

Bonsoir tout le monde

Pas sur d'avoir compris, mais essaye comme ceci :

Private Sub List2_Click()
Dim titre As Integer, r As Integer

titre = List1.ListIndex * 20 + 1
For r = titre To titre + 19
        If ong.Cells(r, 2) = List2 Then
                Label10 = ong.Cells(r, 6).Text
                PU = Format(ong.Cells(r, 4), '##,##0.00')
                Exit Sub
        End If
Next r

Label10 = ''
PU = ''

End Sub

salut

 

[PAD]

Bonjour Hervé, Tous et le forum

Impec, c'est la solution ça marche trés bien,
mais pour éffacer le texte des label quant on changer de titre que doit je mettre, exemple :
Label10 = '0' ou
Label10 = Offset ou
je ne vois pas...

Merci encore pour votre aide à tous

Bonne journée

A+ PAD

 

[Hervé]

bonjour tout le monde

pad, pas tout compris encore.

si tu veux effacer le contenu d'un label, tu as un exemple dans mon code : label10=''

salut

 

[PAD]

re Hervé, tous, le forum

Je l'ai pensé après, mais pas bien sur de moi quand même, si je met le code :

Private Sub Organisation_Click() 'bouton d'option
List2.Clear
Set ong = Sheets('Organisation') 'définit la variable ong
Call remplist 'lance la macro remplist
Label10 = ''

il n'y aura plus rien d'écrit, si j'ai bien compris :lol:

Merci encore Hervé, encore une journée ou je vais me coucher ce soir moins bête que ce matin...

A+ PAD

 

[Hervé]

re pad


ben, y'aura plus rien d'ecrit dans le label10 comme tu dis.

voilà

salut