Tri codes

[simvc]

Bonjour à tous,

Quelqu'un pourrait-il m'aider à résoudre le problème que j'évoque dans le fichier attaché?

Merci d'avance,

Simvc

 

[youky(BJ)]

Re : Tri codes

Bonjour,
Cette macro mets le résultat en feuil2
Laisser que les bonnes données en Feuil1 avant de lancer la macro

Sub trie()
lig = 2
For k = 2 To Feuil1.[A65000].End(3).Row
tx = Feuil1.Cells(k, "C")
n = 1: code = 1
While code <> ""
code = Mid(tx, n, 6)
If code <> "" Then
Feuil2.Cells(lig, 3) = code
Feuil2.Cells(lig, 1) = Feuil1.Cells(k, 1)
Feuil2.Cells(lig, 2) = Feuil1.Cells(k, 2)
lig = lig + 1
End If
n = n + 8
Wend
Next
End Sub

 

[simvc]

Re : Tri codes

Merci, et si les infos en colonne 2 n'ont pas toujours le même nmbre de chiffres ex: 123, 4567, 987654, 123. Comment faire