dispatcher info d'une cellule vers plusieurs celul

[so]

Bonjour,
j'ai des infos dans une cellule, un underscore les segmente et je voudrais les dispatcher vers plusieurs autres cellules (de la même ligne). exemple
BUSTE_ULTIMATE X MEN CYCLOPS_25CM
je voudrais:
buste reste ds cette cellule
ultimate x men cyclops part dans la celulle suivante
25cm dans la cellule d'apres
:sick:
merci de votre aide

 

[Minick]

Re:dispatcher info d'une cellule vers plusieurs ce

Salut so, jmps,

Et si tu veux un code vba essai celui la:

Sub Dispatcher()
    Dim CptLig As Integer, CptChaine As Byte
    Dim Chaines() As String
    
    For CptLig = 1 To Range('A65536').End(xlUp).Row
        Chaines = Split(Range('A' & CptLig), '_')
        For CptChaine = 0 To UBound(Chaines)
            Cells(CptLig, CptChaine + 1) = Chaines(CptChaine)
        Next
    Next
End Sub

Le code suppose que tes données soient à partir de la cellule A1.

@+

Message édité par: Minick, à: 17/08/2005 09:48

 

[so]

Re:dispatcher info d'une cellule vers plusieurs ce

Merci beaucoup, c'est trop bon, je gagne une bonne journée de travail!! (plus de 1200 lignes)
:woohoo: