XL 2010 Séparer une chaine de caractères

J

JM27

XLDnaute Barbatruc

• 1 Octobre 2021

• #2

bonjour

VB:

Sub Splitter()
    Dim Nom
    Nom = Range("D1")
    Nom = Split(Nom, ";/")
    For I = 1 To UBound(Nom)
        Range("C" & 4 + I) = Nom(I)
    Next
End Sub

 

Vote positif 0 Vote négatif

Solution

D

David590

XLDnaute Occasionnel

• 1 Octobre 2021

• #3

Super exactement ce qu'il me fallait,
Merci @JM27

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 1 Octobre 2021

• #4

Bonjour @David590 , @JM27

J'arrive après la bataille mais voici une version sans variable et sans boucle......

VB:

Option Explicit

Sub separer()
[D1].TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, _
     OtherChar:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
    Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

End Sub

@Phil69970

 

Dernière édition: 1 Octobre 2021

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 2 Octobre 2021

• #5

Bonjour @Phil69970

J'ai essayé mais ca ne sépare pas, ca me mets la même chose en C5 qu'en D1

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Octobre 2021

• #6

Re

Essaye cette version

VB:

Option Explicit

Sub separer()
[D1].TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, Other:=True, OtherChar:="/", FieldInfo:= _
    Array(Array(1, 9), Array(2, 9), Array(3, 1), Array(4, 9), Array(5, 1), Array(6, 9), Array(7, 1), Array(8, 9) _
    , Array(9, 1), Array(10, 9), Array(11, 1), Array(12, 9), Array(13, 1), Array(14, 9), Array(15, 1))
End Sub

@Phil69970

 

Pièces jointes

• Separer V1.xlsm

  22.8 KB · Affichages: 1

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 2 Octobre 2021

• #7

Merci pour ton aide mais je vais plutôt garder la version de @JM27 qui me permet de pouvoir changer la source et la destination très facilement

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 2 Octobre 2021

• #8

bonsoir
D'autant plus que convertir ne sépare qu'un seul caractère et par contre la fonction split le permet (;/)

 

Vote positif 0 Vote négatif