Extraire données d'une cellule sous VBA

C

choupi_nette

XLDnaute Occasionnel

• 8 Février 2012

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

bibi30

XLDnaute Nouveau

• 8 Février 2012

• #3

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 !

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 8 Février 2012

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

bibi30

XLDnaute Nouveau

• 8 Février 2012

• #5

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.

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 8 Février 2012

• #6

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

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

 

Vote positif 0 Vote négatif

B

bibi30

XLDnaute Nouveau

• 8 Février 2012

• #7

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

voilà !
merci !

 

Pièces jointes

• Classeur2.xlsm

  14.6 KB · Affichages: 83
• Classeur2.xlsm

  14.6 KB · Affichages: 77
• Classeur2.xlsm

  14.6 KB · Affichages: 82

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 8 Février 2012

• #8

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

Re
Essaye ca
A+

 

Pièces jointes

• Classeur2.xlsm

  16.9 KB · Affichages: 86
• Classeur2.xlsm

  16.9 KB · Affichages: 96
• Classeur2.xlsm

  16.9 KB · Affichages: 96

Vote positif 0 Vote négatif

B

bibi30

XLDnaute Nouveau

• 8 Février 2012

• #9

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 /

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 8 Février 2012

• #10

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

 

Vote positif 0 Vote négatif

B

bibi30

XLDnaute Nouveau

• 8 Février 2012

• #11

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

 

Vote positif 0 Vote négatif