extraire donnée d'une celulle vers 5 cellules

[galileorock]

bjr a tous

je cherche a extraire les chiffres d'une cellule dans 5 autres ;

celulle A vers celulle C D E F G


il me semble que c'est possible via une macro mais je sais comment la faire


merci par avance a tous


christian

 

[R@chid]

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@ + +

 

[CPk]

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

Bonjour R@chid, galileorock

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

 

[Modeste geedee]

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

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

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

 

[galileorock]

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

merci a tous

 

[galileorock]

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

Bonjour R@chid, galileorock

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

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

 

[Modeste geedee]

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

Bonsour®

voir pièce jointe ...

 

[galileorock]

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

ok je regarde ce soir merci d'avance

 

[CPk]

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.

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