Récupérer des données d'une cellule pour mettre dans d'autres cellules...

[supersamu59]

Bonjour à toutes et à tous !

Pour le boulot j'ai besoin de récupérer les données d'une cellules afin de mettre des morceaux dans des cellules voisines..

ATTENDEZ ! NE FRONCEZ PAS LES SOURCILS, JE M'EXPLIQUE.... 😱

Admettons que l'on est cela :

Dans A1 : bonjour/tous/le/monde
Dans A2 : Comment/ca/va/
Dans A3 : je suis/pressé/de savoir/ comment/ on fait ça

je veux mettre dans :
B1 : bonjour
C1 : tous
D1 : le
E1 : monde

B2 : comment
C2 : ca
D2 : va

B3 : je suis
C3 : pressé
D3 : de savoir
E3 : comment
F3 : on fait ça

Le séparateur est toujours le même en l'occurence ici "/"
par contre des fois il apparait en bout de phrase et des fois non...🙁

VOILA MAINTENANT VOUS POUVEZ FRONCER LES SOURCILS !!! 😱

Merci d'avance à tous ceux qui pourrons m'aider... 🙂

Sam

 

[RICO1972]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Salut,
tu peux utiliser une formule toute simple :

Cellule A1 tu copie et colle : =A2&" "&A3&" "&A4&" "&A5

etc pour les autres ...
espérant t'avoir aidé.
@+
Rico

 

[nat54]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Bonjour,

Rico tu as dû lire trop vite car c'est l'inverse qu'il veut faire, non pas concatener mais DEconcatener.

PierreJean avait crée ca

[COLOR=black]Sub eclate()[/COLOR][COLOR=black]eclatement = Split(Selection.Value, " ", [/COLOR][COLOR=red]3[/COLOR][COLOR=black])[/COLOR][COLOR=black]For n = 0 To UBound(eclatement)[/COLOR][COLOR=black]Selection.Offset(0, n + 1) = eclatement(n)[/COLOR][COLOR=black]Next n[/COLOR][COLOR=black]End Sub[/COLOR]
 
[COLOR=black][FONT=Verdana]en faisant varier le chiffre en rouge (3) ; ici éclatement en 3 cellules[/FONT][/COLOR]

EDIT : en réfléchissant bien, cette macro ne te sera pas utile...

 

[nat54]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Re,

J'ai essayé qqch
- chercher la position du 1er /
- retourner les lettres avant cette position - 1 (càd sans le slash)
- chercher la position du 2èm / et c'est là où ca bug en VBA car je sais pas comment lui dire de retourner la valeur située en C2

A affiner donc...

 

[Moa]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Salut !

Et avec le menu "Données / Convertir", as-tu essayé ?

@ +++

ChrisOne

 

[Moa]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Re !

AI fait ta manip avec le menu Données / Convertir en 5 " à peine et comme j'avais lancé l'enregistreur de macros, voilà même un bout de code qui fonctionne :

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

Reste à enlever les bouts de code inutiles.

Nota : j'avais copié tes phrases de B2 à B5, donc à adapter.

@ +++

ChrisOne

 

[Tibo]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Bonjour,

J'avais donné une réponse il y a peu à un problème similaire. Voir ce fil :

https://www.excel-downloads.com/threads/extraire-des-donnees-dun-meme-cellule.69495/

Il y a une formule à adapter.

La formule traitait le contenu d'une cellule avec des virgules comme séparateur.

@+

 

[nat54]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

LOL j'me compliquais la vie...

 

[Tibo]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Salut Nat,

Je crois que je me la suis un peu compliquée aussi sur cette formule.

Il y a à mon avis sûrement plus simple (ou plus court). Suivez mon regard pour savoir à qui je pense ... 😛 😛

@+

 

[nat54]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

euqinoM ?!

 

[supersamu59]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

MERCO pour vos réponses !!!

j'ai effectivement réussi en faisant DONNES CONVERTIR

il ne me reste plus qu'à tout remettre en ordre

A ce propos,

encore une p'tite question :

si je fait
Rows("2:8").Select
il me sélectionne les lignes 2 à 8

mais si mais chiffres sont des variables comme i et j par exemple, comment on fait ?
ca donne ça : Rows("i:j").Select ???????????

 

[Hervé]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

bonjour à tous

comme ceci : Rows(i & ":" & j).Select


salut

 

[Monique]

Re : Récupérer des données d'une cellule pour mettre dans d'autres cellules...

Bonjour,

Avec SommeProd (pour changer)
ou Somme à valider par ctrl, maj et entrée.

Avec / ou espace

C'est un fichier qui date de ??? (je ne retrouve pas le fil, c'était une question de Christian)