Achage d'une cellule a gauche et a droite help!

Question

bonjour j'ai une chaine de caractere dans une celllule avec une adresse de type XXXXX CP YYYY
je cherche a placer dans une  cellule XXXXXX et dans une autre CP YYYYYY
il faut donxc que je trouve CP et que je decoupe ce qui est avant et apres 
MERCI DE VOTE AIDE

debutant 
merci de m'aider 
 :shy)

cs_moustachu · Answer

Récupère le texte de ta cellule dans une string strCell
ensuite :

Dim intPos as long  'Garde en mémoire la position de CR

Pour XXXXXX
CelluleX = Left(strCell, InStr(strCell, " CP")-1)
Pour YYYYYY
CelluleY = Right(strCell,len(strCell) - InStr(strCell, "CP") - 3)

Maintenant si tu as toujours 6 X ou 6 Y :

CelluleX = Left(strcell, 6)
CelluleY = Right(strCell,6)

titosolteron · Answer

malheureusement tu n'as pas bien compris 
j'ai voulu etre trop court 
en fait j'ai une adresse 
n'importe quoi 
genre 1 rue du poulet CP 75000
dans une cellule et il faut que je place dans une autre cellule 1 rue du poulet 
et CP 75000 dans une autre 
c'est completement aleatoire 
je ne connais jamais quel est la position de CP
voila merci 

debutant 
merci de m'aider 
 :shy)

cs_moustachu · Answer

Ben en fait, j'avais voulu faire court mois aussi mais il y avait la réponse :
> Pour XXXXXX
> CelluleX = Left(strCell, InStr(strCell, " CP")-1)
> Pour YYYYYY
> CelluleY = Right(strCell,len(strCell) - InStr(strCell, "CP") )
J'ai juste retirer -3 je croyais que tu ne voulais pas CP
Pour 1 rue du poulet CP 75000
CelluleX = 1 rue du poulet
CelluleY = CP 75000

titosolteron · Answer

ben et si d'un coup dans une cellule il n'y a pas de CP
ca fait planter la fonction non?
comment reussir a parer le probleme 
sans tester toutes les cellules avnt ?

debutant 
merci de m'aider 
 :shy)

cs_moustachu · Answer

Ben tu fais 
If InStr(strCell, " CP") <> 0 then ...
celluleX = ...
celulleY = ...
end if

Achage d'une cellule a gauche et a droite help!

5 réponses

Discussions similaires