Proble de format apres extraction

[anna]

Bonjour,
voila mon nouveau pb si quelqu un voila d'ou il viens.
j'ai des donnees d'entree de type different (1,0,01, 02/02/0122....)
je voudrai les remplacer de maniere a ce que:
1) si =chiffre 0,1,2,.... ca devient 00,01,02, ....0x
2) si =xx le garder tel kel
3)si c une chaine du genre 02/12/0222 ,01/013 ca devient: 0222 , 013 ....
j ai illustre dans le fichier attaché un exemple de ce que j'obtien avec ma macro et une colonne de ce que je souhaite reelement.
la macro est :
For x = 2 To iderligne
Cells(x, 46) = Right(Cells(x, 12), 7)
Next

For x = 2 To iderligne
l = Len(Cells(x, 12))
If l = 1 Then Cells(x, 12).NumberFormat = '0#'
If Cells(x, 12) = 0 Then Cells(x, 12).NumberFormat = '00#'

Next



iderligne = Range('B65536').End(xlUp).Row
For x = 2 To iderligne
slash1 = InStr(Cells(x, 46), '-')
slash2 = InStr(slash1 + 1, Cells(x, 46), '-')
If slash2 = 0 Then
slash2 = Len(Cells(x, 46))
Cells(x, 12) = Mid(Cells(x, 46), slash1 + 1, slash2 - slash1)

Else
Cells(x, 12) = Mid(Cells(x, 46), slash1 + 1, slash2 - slash1 - 1)

End If
Next


sachant que dans mon vrai fichierle données sont dans la colonne 12 et j utilise une colonne'tempo' =46


pourquoi je n obtient pas exactement ce que je veut?
Merci d'avance à tout le forum
Anna [file name=Format_20050614135026.zip size=2559]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Format_20050614135026.zip[/file]

 

[Hervé]

re re re

Anna, ca correspond pas a ce qu'on à fait ici :

Ce lien n'existe plus



salut

 

[anna]

oui c se que je voulais mais avec ton dernier fichier ca n me rempli pas la colonne resultat (ProductATSA) et j ai pas oser te redemender si c tabl (i) qui est le resultats.
voilaaa
Anna

 

[Hervé]

re bonjour tout le monde

Bon, en pièce jointe je suis reparti du tableau remplacement 3 du post d'hier.

je t'ai commenté le code, et en feuille 2, tu trouveras un petit explicatif sur la méthode split;

Par contre j'ai un souci concernant les formats de la colonne productrucmachin, je cherche et reviens sur ce post des que j'ai trouvé.

A plus

Salut
[file name=Remplacement3_20050614150203.zip size=15009]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement3_20050614150203.zip[/file]

 

[anna]

c aussi mon problem le format j arrete pas de debugger dan stout les sens je n vois pas encore.
je continu et si tu trouve,fais moi signe
Merci
Anna

 

[Hervé]

re

Tiens xld est revenu

Bon anna une solution en pièce jointe, en utilisant la grosse artillerie.

Salut
[file name=Remplacement4.zip size=17375]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement4.zip[/file]

 

[anna]

Bonjour le Forum
Merci bcq Hervé ca marche comme sur des roulettes.
Anna