transformation de caracteres

[erwann]

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]

 

[excalibur]

bonjour erwann le forum on peut le faire par macro ....Option Explicit
Sub replace()
Application.ScreenUpdating = False
Dim patente As Range
[a1:a19].Copy
[e1].Select
ActiveSheet.Paste
Application.CutCopyMode = False
Dim patente As Range
[e1:e19].Select
For Each patente In Selection
patente.replace What:='0', Replacement:=''
patente.replace What:='.', Replacement:='_'
Next
End Sub'salutations

 

[erwann]

MERCI excalibur 🙂

Un temps inestimable a été gagner Merci....

 

[excalibur]

rebonjour erwann le forum supprime cette ligne Dim patente As Range apres Application.CutCopyMode = False presente au debut du code a+

 

[andré]

Salut,

Une solution par formule, dans les deux sens.

Â+

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

 

[andré]

Resalut,

Je n'ai pas testé la macro, mais n'y a-t-il pas de risque que 10 soit transformé en 1, ainsi d'ailleurs que tous les 0 pouvant se trouver dans d'autres chaînes puissent être supprimés ?

Â+

 

[erwann]

Salut a tous,

Un petit problème !! 😱 j'ai omis une petite chose.....

Si les XXXXXXXX contiennent des '0' il ne faudrait pas les supprimer.

Un code VB pour restituer la chaîne d’origine m’intéresse aussi !!!
😱

A+


PS: Merci andré

 

[andré]

Resalut,

Une solution par formule t'intéresse-t-elle, et si oui, pourrais-tu préciser si le nombre de caractères dans la première chaîne (les X) est toujours 8 ?

Â+

 

[erwann]

Resalut,

Le nombre de caractères dans la première chaîne (les X) est toujours 8
AFFIRMATIF!!!
Une solution par formule m'intéresse si aucune solution en VB ne peut venir à mon secours. 😱
Merci.
😱

 

[andré]

Re,

Très bien, attendons alors ensemble (lol).

Â+

 

[andré]

Rerere ... ,

J'en ai marre d'attendre, et je ne suis certainement pas le seul (lol) !

Formule à placer en E5, puis à copier vers le bas :

=GAUCHE(A5;8)&SUBSTITUE(SUBSTITUE(DROITE(A5;NBCAR(A5)-8);'00';'');'.';'_')

Des fois que cela pourrait inspirer les VBAtistes.

Â+

 

[myDearFriend!]

Bonjour erwann, excalibur, andré,

Ci-joint une solution parmi d'autres en VBA et dans les 2 sens également :

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
            If Mid(Cellule.Value, 9) Like '00#.#*' Then
                  T = Left(Cellule.Value, 8)
                  Cellule.Value = T & Replace(T & Replace(Cellule.Value, '00', '', 9), '.', '_', 9)
            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
            If Mid(Cellule.Value, 9) Like '#_#*' Then
                  T = Left(Cellule.Value, 8)
                  Cellule.Value = T & '00' & Replace(Cellule.Value, '_', '.', 9)
            End If
      Next Cellule
      Application.ScreenUpdating = True
End Sub

Cordialiement,

PS : merci au Formuliste de nous donner l'inspiration et de nous apprendre la patience...😉 [file name=PourErwann.zip size=9078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourErwann.zip[/file]

 

[andré]

Oh Didier, ça va oui !

La patience, ... moi je suis encore jeune (lol) donc : tout, tout de suite et gratuitement.

Heureusement qu'il y a encore des formulistes qui puissent vous faire une analyse du problème posé.

Attends, patience, ... le jour où je me mettrai au VBA vous pourrez tous prendre votre retraite.

Ceci ne m'empêche pas de te souhaiter un bon week-end.

Â+

 

[erwann]

Merci myDearFriend!, andré...........

Super ce code c tip top Mais 😱

si XXXXXXXX090.1 et Si XXXXXXXX100.2..... :evil:
Désolé mais cela arrive dans ma Feuille 😱
Sinon chapeau bas pour toute l'aide Déjà donnée 😉

Bonsoir a TOUS :evil:

 

[andré]

Resalut,

Ne crois-tu pas que tu devrais, avant de poser une question, essayer de faire une analyse précise et complète du problème que tu poses.

Je ne suis pas fâché, simplement quelque peu énervé d'avoir passé mon temps à te trouver une solution, qui en fin de compte, n'en est pas une.

J'ai une de ces folles envies de te tirer les oreilles !

Alors, places un bout de fichier en pièce jointe, qui reprend tous les cas de figure, et on verra ce qu'on peut faire.

Â+