une petite aide SVP

P

pat1545.

XLDnaute Accro

• 7 Mars 2006

• #2

sans le fichier...dur de deviner non ?

 

Vote positif 0 Vote négatif

A

Aeroplanneur

Guest

• 7 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 7 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

A

Aeroplanneur

Guest

• 7 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 7 Mars 2006

• #6

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]

 

Pièces jointes

• dev1.zip

  42.2 KB · Affichages: 25
• dev1.zip

  42.2 KB · Affichages: 23
• dev1.zip

  42.2 KB · Affichages: 21

Vote positif 0 Vote négatif

A

Aeroplanneur

Guest

• 7 Mars 2006

• #7

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 7 Mars 2006

• #8

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 7 Mars 2006

• #9

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 8 Mars 2006

• #10

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Mars 2006

• #11

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 8 Mars 2006

• #12

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Mars 2006

• #13

re pad


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

voilà

salut

 

Vote positif 0 Vote négatif