transformation de caracteres

erwann · 29 Octobre 2005

Bonjour le forum,

Dans une colonne de A1:A5000, les cellules contiennent des valeurs ex: XXXXXXXX001.1, comment transformer cette valeur en XXXXXXXX1_1 dans la colonne E.
En fait il faut supprimer 2 zéro et transformer le '.' en '_'

L'opération inverse m'intérresse aussi....
Merci pour vos futures réponses [file name=trans_carct.zip size=1565]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/trans_carct.zip[/file]

erwann · 29 Octobre 2005

Mille excusessssssssss.
Je suis désolé.

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

andré · 29 Octobre 2005

Re,

Donc, si je comprend bien :

on ne touche pas aux 8 premiers caractères
de 002.10 tu veux faire 2_10
de 032.6 tu veux faire 32_6
si tu avais 032.12 tu voudrais en faire 32_12
de 102.8 tu veux faire 102_8
et si tu avais 105.15 tu voudrais en faire 105_15

Chat échaudé crains l'eau froide (lol)
Â+

erwann · 29 Octobre 2005

oui, oui

andré · 29 Octobre 2005

Re,

Voici donc l'analyse que j'attendais au départ :

on ne touche pas aux 8 premiers chiffres
on supprime les 0 devant les nombres précédent le . (10 rest 10)
on remplace le . par _
on copie le nombre après le _ (ex .)

Aurais-tu déjà entendu parler du Golgotha ?

Je regarde cela demain matin, maintenant la soupe est chaude.

Â+

myDearFriend! · 29 Octobre 2005

Re erwann, excalibur, andré,

Dans l'attente d'une solution par formule ( ), ci-joint une réponse VBA :

Sub Traitement()
Dim Plage As Range, Cellule As Range
Dim T As String
      Application.ScreenUpdating = False
      Set Plage = ActiveSheet.UsedRange.SpecialCells _
                        (xlCellTypeConstants, xlNumbers + xlTextValues)
      For Each Cellule In Plage
            T = Cellule.Value
            If Mid(T, 9) Like '*#.#*' Then
                  Cellule.Value = Left(T, 8) & Int(Val(Mid(T, 9))) _
                                          & '_' & Mid(T, InStr(T, '.') + 1)
            End If
      Next Cellule
      Application.ScreenUpdating = True
End Sub

Sub Reconstitution()
Dim Plage As Range, Cellule As Range
Dim T As String
      Application.ScreenUpdating = False
      Set Plage = ActiveSheet.UsedRange.SpecialCells _
                        (xlCellTypeConstants, xlNumbers + xlTextValues)
      For Each Cellule In Plage
            T = Cellule.Value
            If Mid(T, 9) Like '*#_#*' Then
                  Cellule.Value = Left(T, 8) & Format(Val(Mid(T, 9)), '000') _
                                          & '.' & Mid(T, InStr(T, '_') + 1)
            End If
      Next Cellule
      Application.ScreenUpdating = True
End Sub

C'est vrai que cette fois, je n'ai pas fait dans la dentelle...

Cordialement,

PS : je te souhaite un bon week-end également andré [file name=PourErwann2.zip size=10070]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourErwann2.zip[/file]

laM · 30 Octobre 2005

bonjour à tous

je n'ai pas de mérite l'analyse a été faite par André et j'ai quasiment copié le code de myDearFriend!
Donc si A1 contient la chaîne en question :
=GAUCHE(A1;8)&CNUM(STXT(A1;9;CHERCHE('.';A1)-9))&'_'
&STXT(A1;CHERCHE('.';A1)+1;NBCAR(A1)-CHERCHE('.';A1))

Par contre je n'ai pas compris le principe de la formule de reconstruction. Comment savoir le nombre de zéro à rajouter ?
(pour le '_' en '.' le SUBSTITUE(A1;'_';'.') fonctionne à merveille)

au revoir, à bientôt

andré · 30 Octobre 2005

Salut,

Voici une solution par formule qui fonctionne dans les deux sens.

Bon dimanche.
Â+

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

JeanMarie · 30 Octobre 2005

Bonour tout le monde

Il existe en formule d'autres manières pour retrouver la valeur initiale.

=SI(E13='';'';STXT(E13;1;8)&REPT('0';4-TROUVE('_';STXT(E13;9;1024)))&SUBSTITUE(STXT(E13;9;1024);'_';'.'))

ou

=SI(E13='';'';STXT(E13;1;8)&TEXTE(STXT(E13;9;TROUVE('_';E13)-9)*1;'000')&'.'&STXT(E13;TROUVE('_';E13)+1;3))

@+Jean-Marie

erwann · 30 Octobre 2005

MERCI MERCI MERCI MERCI
Pour tout longue vie au forum d'Excel Downloads
Bonsoir a Tous

transformation de caracteres

erwann

Guest

Pièces jointes

erwann

Guest

Pièces jointes

andré

XLDnaute Barbatruc

erwann

Guest

andré

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

laM

Guest

andré

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

erwann

Guest

Discussions similaires