Extraire données d'une cellule sous VBA

[bibi30]

Bonjour à tous,

relativement débutant sous excel et vba, je m'adresse donc à vous pour tenter de résoudre mon problème :

j'ai une colonne et environ 150 lignes où sont contenues des références de 10 chiffres du style 1234567891.
Mon problème c'est que dans certaines cellules, plusieurs références peuvent être mentionnées et sont séparées
par /
Ce qui donne par exemple : 1234567890/132453456/123423468
et je peux avoir jusqu'à 5 ref dans une même cellule.
Je souhaiterais pouvoir extraire toutes ces ref dans une autre feuille et que ça me les mette toutes en colonne les unes
après les autres.
Je souhaiterais en outre le faire sous vba car j'intègrais dans une macro déjà existante.
Merci d'avance.

 

[choupi_nette]

Re : Extraire données d'une cellule sous VBA

Bonjour
Peut etre ca :

Sub Macro1()
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub

 

[bibi30]

Re : Extraire données d'une cellule sous VBA

Merci infiniment c'est parfait ça marche !!
Par contre serait-il possible que ça me les range en colonne et non en ligne ?
ce serait super !

 

[choupi_nette]

Re : Extraire données d'une cellule sous VBA

Re,
Comme ca ?

Sub c()
For i = 1 To 15
For j = 1 To 15
Cells(i, j + 1).Select
Range(ActiveCell, ActiveCell.Offset(250, 0)).Select
Selection.Cut Destination:=Cells(i + 1 * j, 1)
Next j
Next i
End Sub

 

[bibi30]

Re : Extraire données d'une cellule sous VBA

désolé, là ça ne semble pas fonctionner.
T'embête pas c'était déjà très bien le premier code.

 

[choupi_nette]

Re : Extraire données d'une cellule sous VBA

tu veux pas envoyer ton fichier ce serait plus simple !!

 

[bibi30]

Re : Extraire données d'une cellule sous VBA

voilà !
merci !

 

[choupi_nette]

Re : Extraire données d'une cellule sous VBA

Re
Essaye ca
A+

 

[bibi30]

Re : Extraire données d'une cellule sous VBA

Si j'ai plusieurs colonnes à traiter ça m'écrase les données contenues après le premier /

 

[choupi_nette]

Re : Extraire données d'une cellule sous VBA

Exact.. j avais essayé et ca marchait pour une ligne mais j avoue que tu devras compter sur une autre personne du forum car j'y arrive pas...desolée

 

[bibi30]

Re : Extraire données d'une cellule sous VBA

Pas de soucis c'est déja très bien. Je te remercie infiniment en tout cas