Autres Problème de séparation - fonction split

ted1057

XLDnaute Occasionnel
Bonjour à tous,

J'effectue une macro ou je dois répartir des valeurs selon un séparateur "-". J'utilise la fonction split pour cela. Mon problème réside dans le fait que dés que je rencontre une cellule avec 2 caractères "-", j'ai un message erreur.
Pourriez vous m'aider sur ce point ?

Merci bien par avance,

Cordialement,
 

Pièces jointes

  • Test - séparation split.xlsm
    17.9 KB · Affichages: 8

ted1057

XLDnaute Occasionnel
Bonjour Wayki
merci pour ta réponse rapide.
Cela fonctionne très bien.
Serais tu expliquer, si explications il existe, la fonction proposée.
Je cherche à comprendre les solutions pour pouvoir les appliquer plus tard.

Cordialement,
 

chris

XLDnaute Barbatruc
Bonjour

Tu parle de plus d'un - dans le texte ou des - consécutifs ?

Dans le 1er cas
VB:
Sub toto_quatre()

Nb_affaire = Cells(Rows.Count, "a").End(xlUp).Row

For i = 7 To Nb_affaire

    Texte = Cells(i, 1)
    tableau = Split(Texte, "-")
    
If Cells(i, 1).Value Like "*-*" Then

    Z = 7
    For j = 0 To UBound(tableau)
        Cells(i, Z + j) = tableau(j)
    Next j
    
Else

End If

Next i

End Sub
Dans le second utiliser un replace
Code:
Texte = Replace(Cells(i, 1), "--", "-")
 

job75

XLDnaute Barbatruc
Bonjour ted1057, Wayki, chris, le forum,

Utilisez plutôt la commande Convertir :
VB:
Sub toto_quatre()
Application.ScreenUpdating = False
With Range("A7", Range("A" & Rows.Count).End(xlUp))
    .Offset(, 6).Resize(, Columns.Count - 6).ClearContents 'RAZ
    .Copy .Offset(, 6)
    .Offset(, 6).TextToColumns .Offset(, 6), xlDelimited, Other:=True, OtherChar:="-" 'commande Convertir
End With
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof