separer contenu colonne

ChTi160

XLDnaute Barbatruc

• 21 Décembre 2005

• #2

Salut chilo

Code:

une possibilité

Private Sub CommandButton1_Click()

Dim Tableau  As Variant
Dim derlgn As Long

With Worksheets('Feuil1')
derlgn = .Range('B65536').End(xlUp).Row
For L = 3 To derlgn

        Tableau = Split(.Cells(L, 2).Value, Chr(32))
        .Cells(L, 4).Resize(1, UBound(Tableau, 1) + 1) = Tableau
   Next

End With
End Sub

Bonne nuit

 

Vote positif 0 Vote négatif

C

chilo

Guest

• 21 Décembre 2005

• #3

bonjour et merci jm

j'ai essayé mais mais
sur split j'ai eu un message d'erreur de type

sub ou fonction non définie

et la je piétine

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Décembre 2005

• #4

Salut chilo
bonjour le Forum
Arfffffffff problème de version d'Excel !!!
97 ????
si oui il va faloir passer par un tableau Temporaire
tiens moi au courant
bonne journée

 

Vote positif 0 Vote négatif

C

chilo

Guest

• 21 Décembre 2005

• #5

bonsoir jm
exact c'est à mon départ au boulot que je me suis rappeller que je ne l'avais pas préciser.
désolé.
j'ai pu par ailleurs, trouver une solution en passant par convertir dans le menu outils mais j'aurai préféré passer par vba
merci

 

Vote positif 0 Vote négatif