Récupérer des infos dans des cellules

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupérer des infos dans des cellules

pinhead

Bonjour,

En fait mon problème est le suivant:
J'ai dans des cellules Excel des informations séparées par des sauts de ligne. Or il faudrait que je récupère ces informations séparemment.

Ainsi par exemple, dans une cellule, j'ai:
FR_STOR_0050
FR_STOR_0051
FR_STOR_0052
FR_STOR_0054
ce qui apparemment est vu comme cela sous VB:
"FR_STOR_0050 " & Chr(10) & "FR_STOR_0051" & Chr(10) & "FR_STOR_0052" & Chr(10) & "FR_STOR_0054 "

Moi je veux récupérer séparemment FR_STOR_0050, FR_STOR_0051, etc.. pour les placer dans une autre feuille, chacun dans des cellules différentes.

Et là, je rame un peu parce que j'ai pas touché VB depuis longtemps.

Des idées?

Merci bien en tout cas.

Pinhead

Publicité

LADIV

si l'on reprend ton exemple: on a des informations qui font tjrs 12 caractères et avec 4 info par cellules.
donc en travaillant avec les formules text d'excel tu peux extraire (par exemple=DROITE(GAUCHE(IS7;7);2)) sur 4 colonnes tes informations. Cette démarche sera la même en VBA ainsi que sa rédaction

MrGant

Tu peut aussi prendre toute cette chaine de charactere et rechercher le char(10) (comme délimitateur)
une idée d'algo serais de mémoriser la position du char(10) précédement trouvé et des que tu en rencontre un nouveau tu extrait la chaine concerné.
Voila une ébauche:

Citation :

Sub toto()
chaine1 = Cells(1, 1)
ichar10 = 0
j = 1
For i = 1 To Len(chaine1)
If Mid(chaine1, i, 1) = char(10) Then
Cells(j, 2) = Mid(chaine1, ichar10 + 1, i - 1 - ichar10)
j = j + 1
ichar10 = i
End If
Next
Cells(j, 2) = Mid(chaine1, ichar10 + 1, i - 1 - ichar10)
End Sub

PS: modifie le cells(j,2) à ta convenance, dans ton cas l'adresse de la nouvelle feuille. :hello:

PS2: on peut faire plus simple et plus propre avec un Do while je pense, mais ça, ça marche.

Message édité par MrGant le 02-02-2005 à 12:05:51

pinhead

bah merci pour les réponses

(bon je réponds un peu tard mais j'ai pas pu avant )

---------------
Je ne suis pas sûr de pouvoir manger autant que tu me donnes envie de vomir.

galopin01

bonjour,
le plus simple c'est peut-être de passer par :
Données / Convertir + Largeur fixe
Pas fatigant, pas besoin de VBA, juste besoin de colonnes vides à droite...
A+

Message édité par galopin01 le 05-03-2005 à 18:04:34

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récupérer des infos dans des cellules

Sujets relatifs
[SQL] Récuperer une chaine sans les deux premieres lettres ?	aide sur un script FTP pour recuperer des fichiers et les renommer
Cellules au format DATE de Excel et PHP	recuperer automatiquement le numero du thread
[DOS] Récupérer valeur d'une clé de registre	[4D][.NET] recuperer les données via ASP.NET
PHP-récuperer paramètre issu URL	Lire dans un fichier et y récupérer des données....
[C/Linux] récupérer signaux capteurs carte mère
Plus de sujets relatifs à : Récupérer des infos dans des cellules

Page générée en 0.045 secondes