remplacement

Hervé

XLDnaute Barbatruc

• 15 Juin 2005

• #2

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

 

Vote positif 0 Vote négatif

P

Patrick

Guest

• 15 Juin 2005

• #3

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

 

Vote positif 0 Vote négatif

J

jocelyn

Guest

• 15 Juin 2005

• #4

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

 

Vote positif 0 Vote négatif

A

anna

Guest

• 15 Juin 2005

• #5

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

 

Vote positif 0 Vote négatif

A

anna

Guest

• 15 Juin 2005

• #6

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Juin 2005

• #7

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

 

Vote positif 0 Vote négatif

A

anna

Guest

• 15 Juin 2005

• #8

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]

 

Pièces jointes

• Reference_DARS.zip

  4.8 KB · Affichages: 17

Vote positif 0 Vote négatif

A

anna

Guest

• 15 Juin 2005

• #9

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Juin 2005

• #10

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Juin 2005

• #11

re re

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

A plus

bye

 

Vote positif 0 Vote négatif