Décortiquer texte cellule

youky(BJ)

XLDnaute Barbatruc

• 23 Février 2013

• #2

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 !

Code:

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

 

Pièces jointes

• Test_Kaki2.xls

  37 KB · Affichages: 50
• Test_Kaki2.xls

  37 KB · Affichages: 55
• Test_Kaki2.xls

  37 KB · Affichages: 50

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 23 Février 2013

• #3

Re : Décortiquer texte cellule

Merci Bruno.
🙂

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Février 2013

• #4

Re : Décortiquer texte cellule

Bonjour tous,
Nouvelle version mieux compatible
Bruno

 

Pièces jointes

• Test_Kaki2 (2).xls

  37.5 KB · Affichages: 67

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 25 Février 2013

• #5

Re : Décortiquer texte cellule

Bonsoir;

Merci encore une fois Bruno

🙂

 

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 8 Décembre 2013

• #6

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

🙂

 

Vote positif 0 Vote négatif

kaki31

XLDnaute Occasionnel

• 9 Décembre 2013

• #7

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.

🙂

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 14 Décembre 2013

• #8

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

 

Vote positif 0 Vote négatif