déconcaténation

[Amrane]

Bjr Forum.

j'ai deux problemes.

a\ y a t il une ligne de commande VB par a quelle je peux dé-concaténer une cellue qui contient uine longue chaine des donnée réguliérement séparer par des virgules.

b\ mon problème majeur , j'ai remarqué qu'il y a uniquement l'utilitair " file automatiques qui peut traiter le caractére étoile (*) proprement dit, la solution provisoir est d'utiliser la fonction:" Len(Cells(k, 21))" mais je ne peux pas couvrir le cas d'un nombre a deux chiffres aprés la virgule ( ligne 10 par exemple).

merci.

Amrane

 

[Catrice]

Re : déconcaténation

Bonjour,

Pour le a/ il y a ceci :
Sub test()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True
End Sub

Pour le b/, je n'ai pas compris.

 

[Pierrot93]

Re : déconcaténation

Bonjour Amrane

pour ton 1er problème essaye la fonction "Split", exemple ci dessous, texte en A1 renvoie dans la colonne b.

Sub Test()
Dim MonTexte, x As Byte
MonTexte = Split(Range("A1"), ",")
For x = LBound(MonTexte) To UBound(MonTexte)
    Range("B" & x + 1) = MonTexte(x)
Next
End Sub

pour ton 2ème problème, pas trop compris, la fonction "Len" te renvoie un nombre de caractères décimales comprises...

bon après midi
@+

 

[Pierrot93]

Re : déconcaténation

Aarf, Bonjour Catrice, t'avais pas vu...

 

[Amrane]

Re : déconcaténation

je vous demande pardon, la piéce jointe n'a pas été transmis, c'est plus explicite avec ce fichier.

merci.

amrane

 

[Catrice]

Re : déconcaténation

Re, bonjour Pierrot,

Ci-joint le fichier decon.xls avec une solution macro.

 

[MJ13]

Re : déconcaténation

Bonjour à tous

Amrane, ton problème n'est pas simple car il y a des mélanges de points et de virgules.
Ne serait til pas possible d'voir un tab comme séparateur de champs voir un point-virgule?

 

[Catrice]

Re : déconcaténation

Armane,

Y a t il un critere qui permette de repérer le separateur decimal de 105.4 ?
Y a t il toujours 105.4 à cet endroit ?

 

[Amrane]

Re : déconcaténation

BJR


Cher Catrice


a\ merci pour code, c'est trés radide sauf que je doit toujours préciser la cellule victim de déconcaténation, y a-t-il une possibilité d'argumenter cette commande??

a\

mon probléme c'ets que je doit avoir des cellule qui contient un nobme no pas une chaine de caractére, et malheureusement l'étoile "*" est un mot clé d'une part, et la command " len" résoudre le problem pour les cases ( par éxemple 1.2*) et je reste handicapé pour les case (par éxemple 1.23*)!!!!



merci.

amrane

Armane,

Y a t il un critere qui permette de repérer le separateur decimal de 105.4 ?
Y a t il toujours 105.4 à cet endroit ?

 

[Catrice]

Re : déconcaténation

Bonsoir,

J'ai du raté qq chose.
Dans le dernier fichier que tu as posté, il n'y a pas de probleme puisque les points et les virgules sont différenciés ?!

 

[Amrane]

Re : déconcaténation

Re-Bonsoir Ctrice,

Un grand merci 🙂 , il n'y a pas de souci pour les virgules, il me reste le problème d'identification des "*" seulement😕 .

bon courage.

Amrane

 

[Catrice]

Re : déconcaténation

Bonsoir,

Quel est le probleme avec les * ?
Il faut les enlever ?

 

[Amrane]

Re : déconcaténation

bjr,

Les case où sont les *, moi je veux les transformer en un nombre, c-a-d, reconaitre les * puis les enlever, le point bloquant pour moi c'est que j'arrive pas a les reconaitre😕 , merci



Amrane

 

[bqtr]

Re : déconcaténation

Bonsoir Amrane, Catrice, Pierrot93

Dans ton fichier "Decon-V2" le caractère "*" se trouve toujours à la fin.
Ne sachant pas s'il peut y en avoir d'autre à une place quelconque, voici deux macros :

La 1ère supprime tous les "*" dans chaque cellule avant d'extraire le contenu.
La 2ème supprime le "*" dans la dernière cellule aprés l'extraction.

1ère solution :

Private Sub CommandButton1_Click()

Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Sheets("Sheet2").Range("B65536").End(xlUp).Row
  Cells(i, 2) = Replace(Cells(i, 2), "*", "")
Next i
Sheets("Sheet2").Range("B2").CurrentRegion.TextToColumns Destination:=Range("G2"), DataType:=xlDelimited, Comma:=True
Application.ScreenUpdating = True

End Sub

2ème solution :

Private Sub CommandButton1_Click()

Dim i As Integer
Application.ScreenUpdating = False
Sheets("Sheet2").Range("B2").CurrentRegion.TextToColumns Destination:=Range("G2"), DataType:=xlDelimited, Comma:=True
For i = 2 To Sheets("Sheet2").Range("B65536").End(xlUp).Row
   Range("IV" & i).End(xlToLeft) = Replace(Range("IV" & i).End(xlToLeft), "*", "")
Next i
Application.ScreenUpdating = True
End Sub

A+

 

[Catrice]

Re : déconcaténation

Bonjour,

Une solution ci-joint.