extraire donnée d'une celulle vers 5 cellules

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Avril 2016

• #2

Re : extraire donnée d'une celulle vers 5 cellules

Bonjour,
- Sélectionner la plage A2:A27
- Aller à Données/Convertir (onglet Données)
Étape 1 : Délimité
Étape 2 : Tu coches Autre et tu tapes - le tiret comme séparateur
Étape 3 : Dans la cellule de destination tu tapes C2

Puis Terminer@ + +

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 27 Avril 2016

• #3

Re : extraire donnée d'une celulle vers 5 cellules

Bonjour R@chid, galileorock

Code:

Sub distribuer()
Application.DisplayAlerts = 0
Feuil1.Columns(1).TextToColumns Columns(3), other:=True, otherchar:="-"
Feuil1.Cells(1, 3).Resize(1, 5) = Array(1, 2, 3, 4, 5)
Application.DisplayAlerts = 1
End Sub

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 27 Avril 2016

• #4

Re : extraire donnée d'une celulle vers 5 cellules

Bonsour®
avec une fonction personnalisée dans un module standard :

VB:

Function decoupe(target As Range, delim As String, rang As Integer)
decoupe = Split(target, delim)(rang - 1)
End Function

utilisation :
en cellule C2 :
=SI($A2<>"";decoupe($A2;"-";colonne()-2);"")

tirer la formule vers la droite
puis vers le bas autant que nécessaire

 

Pièces jointes

• Capture.JPG

  74.6 KB · Affichages: 39

Vote positif 0 Vote négatif

G

galileorock

XLDnaute Junior

• 28 Avril 2016

• #5

Re : extraire donnée d'une celulle vers 5 cellules

merci a tous

 

Vote positif 0 Vote négatif

G

galileorock

XLDnaute Junior

• 28 Avril 2016

• #6

Re : extraire donnée d'une celulle vers 5 cellules

CPk à dit:

Bonjour R@chid, galileorock

Code:

Sub distribuer()
Application.DisplayAlerts = 0
Feuil1.Columns(1).TextToColumns Columns(3), other:=True, otherchar:="-"
Feuil1.Cells(1, 3).Resize(1, 5) = Array(1, 2, 3, 4, 5)
Application.DisplayAlerts = 1
End Sub

Cliquez pour agrandir...

bjr cpk
juste une question sur ton code si sur ma feuille d'origine l'onglet s'appelle arrivée et les donnée a distribuer se trouve dans la colonne 9 que dois ja changer sur le code
j'ai remis le fichier avec les caractéristique en question

 

Pièces jointes

• Classeur1.xlsx

  10.2 KB · Affichages: 44
• Classeur1.xlsx

  10.2 KB · Affichages: 39

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 28 Avril 2016

• #7

Re : extraire donnée d'une celulle vers 5 cellules

Bonsour®
🙁
voir pièce jointe ...
😎

 

Pièces jointes

• galileorock.xls

  57 KB · Affichages: 28
• galileorock.xls

  57 KB · Affichages: 30

Vote positif 0 Vote négatif

G

galileorock

XLDnaute Junior

• 28 Avril 2016

• #8

Re : extraire donnée d'une celulle vers 5 cellules

ok je regarde ce soir merci d'avance

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 28 Avril 2016

• #9

Re : extraire donnée d'une celulle vers 5 cellules

Bonjour Modeste R@chid galileorock.

Pas beaucoup de changement, essentiellement des numéros de colonnes.

Code:

Sub distribuer()
Application.DisplayAlerts = 0
Sheets("arrivées").Columns(9).TextToColumns Columns(11), other:=True, otherchar:="-"
Feuil1.Cells(1, 11).Resize(1, 5) = Array("1er", "2e", "3e", "4e", "5e")
Application.DisplayAlerts = 1
End Sub

 

Vote positif 0 Vote négatif