Décortiquer texte cellule

[kaki31]

Bonsoir tout le monde

J'ai auparavant bénéficier de votre aide pour décortiquer le texte d'une cellule,mais avec le temps il y a eu du changement
Je vous remercie d'avance pour me prêter une aide pour trouver la solution

Merci 🙂

 

[youky(BJ)]

Re : Décortiquer texte cellule

Bonsoir Kaki,
J'ai fait une macro sous un bouton,
je pense que tu sauras la mettre dans un module si besoin.
Bon il faut tester à grande échelle...
Bruno

Le code pour les intéressés !

Private Sub CommandButton1_Click()
For lig = 2 To [A65000].End(3).Row
tx = Cells(lig, 1): Cells(lig, 3) = Left(tx, 3)
tx = Right(tx, Len(tx) - 4): Cells(lig, 4) = Left(tx, 6)
tx = Right(tx, Len(tx) - 7): Cells(lig, 5) = CDate(Left(tx, 2) & "/" & Mid(tx, 3, 2) & "/20" & Mid(tx, 5, 2))
tx = Right(tx, Len(tx) - 7)
For k = 18 To Len(tx)
If Mid(tx, k, 1) = " " Then Exit For
Next
Cells(lig, 6) = Left(tx, k) 'long
tx = Right(tx, Len(tx) - k)
For k = 1 To Len(tx)
If Mid(tx, k, 1) <> " " Then Cells(lig, 7) = Mid(tx, k, 1): Exit For
Next
tx = Right(tx, Len(tx) - k)
d = Replace(Mid(tx, 1, Len(tx) - 6), ".", "")
Cells(lig, 8) = CDbl(Replace(d, " ", ""))
tx = Right(tx, 6)
Cells(lig, 9) = CDate(Left(tx, 2) & "/" & Mid(tx, 3, 2) & "/20" & Right(tx, 2))
Next
End Sub

 

[kaki31]

Re : Décortiquer texte cellule

Merci Bruno.
🙂

 

[youky(BJ)]

Re : Décortiquer texte cellule

Bonjour tous,
Nouvelle version mieux compatible
Bruno

 

[kaki31]

Re : Décortiquer texte cellule

Bonsoir;

Merci encore une fois Bruno

🙂

 

[kaki31]

Re : Décortiquer texte cellule

Bonsoir tout le monde,

toujours sur le même fil,

est-'il possible d’éclater les cellules et les trier par rapport la colonne D ?

Merci

🙂

 

[kaki31]

Re : Décortiquer texte cellule

Bonjour tout le monde,

J'ai ajouté une macro via l'enregistreur de macro,mais ça n'a pas donné le résultat souhaité ,"Un bouton en plus et beaucoup de

Range("C1:I700").Select
ActiveWindow.ScrollRow =

et défilement de la feuille pendant le tri.😕

Merci.

🙂

 

[youky(BJ)]

Re : Décortiquer texte cellule

Bonjour,
Ajoute cette ligne à la fin de la macro, avant End Sub

Range("C2:I" & [A65000].End(3).Row).Sort Key1:=Range("D2"), Order1:=xlAscending

Ça doit le faire....
Bruno