transfert vers list box

[akramenergie]

Bonjour les amis ,
j'ai un petis soussi sur une macro, je fait un choix sur une listbox et je transfer le donner vers un eautre listbox et pour le chemin inversse il faut just retourner que les alphbet majuscule sans chifres dans la premiere listbox
exempl:

AA 10 ---> AA 10
AA <---


😕

Merci

 

[fanfan38]

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

 

[Bebere]

Re : transfert vers list box

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

 

[akramenergie]

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

 

[fanfan38]

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

 

[akramenergie]

Re : transfert vers list box

Merci bien c bon sa marche🙂

 

[Bebere]

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

 

[Bebere]

Re : transfert vers list box

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