remplacement

[anna]

Bonjour le forum
mon soucis du jour est :
je voudrai concatener plusieru valeur d'une meme ligne mais j 'ai un proble avec le format personnalise('00001.....)
exemple:
830 01 AFC 00001 - au lieu de me donne DAR/830/AFC/00001/- ca me donne DAR/830/AFC/1/-

(c la concatenation de DAR&A&B&C&D&E)
Merci d'avance a toutes et a tous
anna [file name=Concatener.zip size=1827]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Concatener.zip[/file]

Message édité par: anna, à: 15/06/2005 15:20

 

[Hervé]

Bonjour anna, le forum

essaye comme ca :

='DAR'&'/'&A2&'/'&B2&'/'&C2&'/'&TEXTE(D2;'00000')&'/'&E2

Salut

edition : il manquait un zéro :unsure:

Message édité par: Hervé, à: 15/06/2005 15:31

 

[Patrick]

bonjour le Forum,
bonjour anna,


voila une formule un peu tirée par les cheveu mais bon cela fonctionne.

Quelqu'un va surement passer pour une formule plus 'formule' lol

='DAR'&'/'&A2&'/'&C2&'/'&DROITE(D2/100000;5)&'/-'

voila espérant t'avoir aidé

jocelyn

 

[jocelyn]

Re bonjour,
Bonjour Hervé,


désolé je n'ai pas rafraichi et je ne t'avais pas vu, en même temps ta formule est beaucoup plus conventionnelle.

Jocelyn

 

[anna]

je vais essaier desuite
Je sais que ca marchera,j'ai confience
anna

 

[anna]

Re les amis,
si je mes cette formule tel quel dan sma macro il comprend par Text(c;00000)
whyyyy?
anna

 

[Hervé]

re anna
bonjour patrick jocelyn

Anna, c'est pas une macro, c'est une formule à placer dans tes cellules

Pour une fois que je fais l'effort de trouver une formule, faut une macro.

Essaye comme ceci : format (range('tacellule'),'00000')

Sinon place un bout de ton code sur le forum, on adaptera.

Salut

 

[anna]

j ai essaie et ca n marche pas
voila un bout de toute ma super macro

For x = 2 To iderligne
Cells(x, 2) = 'DAR/' & Cells(x, 4) & '/' & Cells(x, 6) & '/' & Format(Range(Cells(x, 7)), '00000') & '/' & Cells(x, 8)
Next
et ci joint le fichier [file name=Reference_DARS.zip size=4871]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Reference_DARS.zip[/file]

 

[anna]

Sorry sorry sorry
j ai laisse range alors que je devais l'enlever,ca marche.
Merci bcq
Anna

 

[Hervé]

re

essaye comme ceci :

For x = 2 To iderligne
Cells(x, 2) = 'DAR/' & Cells(x, 4) & '/' & Cells(x, 6) & '/' & Format(Cells(x, 7), '00000') & '/' & Cells(x, 8)
Next

salut

 

[Hervé]

re re

désolé pas vu ton message de 17:12

A plus

bye