transfert vers list box

fanfan38

XLDnaute Barbatruc

• 11 Juin 2008

• #2

Re : transfert vers list box

Bonjour
Dans la macro retour je penses qu'il faut inserer
ListBox1.AddItem Left(ListBox2.Value, 2)

A+ François

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 11 Juin 2008

• #3

Re : transfert vers list box

bonjour akramenergie
si bien compris,une solution
à bientôt

 

Pièces jointes

• Transfert_ListBox.xls

  37 KB · Affichages: 61
• Transfert_ListBox.xls

  37 KB · Affichages: 65
• Transfert_ListBox.xls

  37 KB · Affichages: 65

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 12 Juin 2008

• #4

Re : transfert vers list box

bonjour je croi que le probleme n'est pas encore résolut je croi par ce que le principe de la métode que vous m'avais proposer c'est une lecture de chaine de caractere ??? si je me trempe pas 😕


mais moi j'aimerais bien que le macro fait une lecture de caractere est dés quel rencontre un espace elle s'arréte et raméne tous les lettre avant cette espace
mais j'arrive pas a le codé
aider moi svp

Mecri

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 12 Juin 2008

• #5

Re : transfert vers list box

Bonjour
la commande Left(ListBox2.Value, 2) prend les 2 caractères de gauche...
sinon il faut faire une boucle
machaine=""
For i = 1 To Len(ListBox2.Value)
If Mid(ListBox2.Value, i, 1) = " " Then Exit For
machaine = machaine + Mid(ListBox2.Value, i, 1)
Next
ListBox1.AddItem machaine
A+ François

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 12 Juin 2008

• #6

Re : transfert vers list box

Merci bien c bon sa marche🙂

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 12 Juin 2008

• #7

Re : transfert vers list box

bonsoir
emploi de INSTR(le texte,caractère recherché,début de la recherche)

machaine=left(listbox2,instr(texte," ",1)-1)

à bientôt

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 12 Juin 2008

• #8

Re : transfert vers list box

oups oubli
machaine=left(listbox2,instr(listbox2," ",1)-1)

 

Vote positif 0 Vote négatif