Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules excel

C

CAPRI_456

XLDnaute Occasionnel
Bonsoir le Forum,

J'ai récupéré le contenu (corps/body) d'un Email dans une cellule excel.
Là pas de soucis. Cependant le texte se présente comme suit dans la cellule

bonjour(carré)
OSD/240/DFF(carré)
description/poids/volume(carré)
123444/ULM (carré)
Merci(carré)

Tout ce texte a été récupéré dans une cellule "D2"
Donc le texte est en fin de ligne marqué par un "carré" qui corresponde je pense à un "retour chariot"
et dans une ligne on à des séparateurs/


But à atteindre : en VBA envoyer chaque élément séparé soit par le "carré "soit par "/" dans les cellules
"E2", "F2", "G2" , etc ......

Fichier joint
Merci pour votre aide

CAPRI_456
 

Pièces jointes

  • ChargeCorpsMailOulook2003.zip
    12.4 KB · Affichages: 44
Trier par date Trier par votes

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonjour Capri,

ton fichier en retour

à+
Philippe
 

Pièces jointes

  • 111.xls
    53.5 KB · Affichages: 73
  • 111.xls
    53.5 KB · Affichages: 63
  • 111.xls
    53.5 KB · Affichages: 59
Vote positif 0 Vote négatif
C

CAPRI_456

XLDnaute Occasionnel
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonjour le Forum, PhLaurent55,

Philippe, Merci pour ce retour rapide.
J'ai examiné le résultat:
-Ok, il me redistribue le texte de la cellule D2 à chaque "retour chariot"

Mais je souhaiterais également qu'il le fasse vers chaque cellule à droite à chaque séparateur "/"

Merci


CAPRI_456
 
Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Re,

peut-être avec ceci:
Code: 
Sub Macro1()
' boucle dans la colonne D
For i = 2 To Range("D65535").End(xlUp).Row
'boucle sur la longueur du texte de la cellule
texte = Cells(i, 4).Value
debut = 1
colonne = 5
For j = 1 To Len(Cells(i, 4))
    If Asc(Mid(Cells(i, 4), j, 1)) = 10 Then
        Cells(i, colonne).Value = Mid(texte, debut, j - debut)
        colonne = colonne + 1
        debut = j
    End If
    If Asc(Mid(Cells(i, 4), j, 1)) = 47 Then
        Cells(i, colonne).Value = Mid(texte, debut, j - debut)
        colonne = colonne + 1
        debut = j + 1
    End If
        
Next j
Next i
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
C

CAPRI_456

XLDnaute Occasionnel
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonjour le Forum, Phlaurent55,

Merci Ph pour la méthode, cela correspond parfaitement à mes besoins..

Juste un petit élément, comment enlever le "carré" qui se retrouve chaque fois à la fin dans les colonnes E à ...... après éclatement ?
Je puis imaginer qu'il s'agit d'éliminer le caractère ascii "10" mais je ne vois pas comment .

Bien à toi
Et Merci

CAPRI_456
 

Pièces jointes

  • 111bis.xls
    43.5 KB · Affichages: 38
  • 111bis.xls
    43.5 KB · Affichages: 39
  • 111bis.xls
    43.5 KB · Affichages: 45
Vote positif 0 Vote négatif
C

CAPRI_456

XLDnaute Occasionnel
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Le Forum,

VOici ce que j'ai touvé
Sub ElimineLesCarres()

Dim c
For Each c In Range("E2:Q2")
c.Replace Chr(13), ""
Next c

End Sub
Cliquez pour agrandir...

Cependant il faudrait pouvoir étendre cette action à tous les champs non vides
ou plutôt et plus pratique :après chaque importation d'emails dans mon excel via le (Module4)
---- 1. lancer le Module 2 pour répartir dans les colonnes à droite E2.... à ..... dernière col utilisée
---- 2. lancer le Module 3 pour éliminer les carrés ( Chr13) à droite E2.... à ..... dernière col utilisée
 

Pièces jointes

  • 111ter.xls
    55 KB · Affichages: 46
Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonsoir le fil ,
Une autre façon de voir les choses
Code: 
Option Base 1
Sub test()
Dim Tableau1, Tableau2, Tableau()
Dim I As Integer, J As Integer, K As Integer, L As Integer
For I = 2 To Range("D65535").End(xlUp).Row
L = 1
Tableau1 = Split(Cells(I, 4).Value, Chr(10))
For J = LBound(Tableau1) To UBound(Tableau1)
Tableau2 = Split(Tableau1(J), "/")
For K = LBound(Tableau2) To UBound(Tableau2)
ReDim Preserve Tableau(L)
Tableau(L) = Tableau2(K)
L = L + 1
Next K
Next J
Cells(I, 5).Resize(, L - 1).Value = Tableau
Next I
End Sub
Par contre, l'éclatement de la date, c'est pas top ...
Bonne soirée
 
Vote positif 0 Vote négatif
C

CAPRI_456

XLDnaute Occasionnel
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonsoir le Forum, Phlaurent55,JNP,

JNP merci pour cette approche, je l'ai testée, = Resultats identique à la proposition de Phlaurent55

Merci

Pour éliminer les carrés à chaque importation des E-mails
j'appelle la macro du mod4 "Eclatement" qui elle même appelle la macro du mod 3 "ElimineLes Carrés"
Merci à vous tous pour cette rapide réponse.

CAPRI_456
 
Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Re ,
CAPRI_456 à dit:
je l'ai testée, = Resultats identique à la proposition de Phlaurent55
Cliquez pour agrandir...
Pas tout à fait d'accord vu qu'elle élimine les Chr(10), ce qui n'est pas le cas de celle de Philippe ...
Par contre, effectivement, il reste des Chr(13) (tabulation) et des espaces non voulus avant ou après ...
Il suffit juste de modifier cette ligne
Code: 
Tableau(L) = Trim(Replace(Tableau2(K), Chr(13), ""))
et tu peux te passer de ta macro Eliminelescarrés ...
Bonne suite
 
Vote positif 0 Vote négatif
C

CAPRI_456

XLDnaute Occasionnel
Re : Eclater le texte d'un mail déjàimporté dans une cellule vers plusieurs cellules

Bonjour, le Forum,Phlaurent55, JNP,

AUTANT POUR Moi

JNP, Tu as parfaitement raison...
Une procédure au lieu de deux....
L'important, j'ai , ...le Forum à maintenant deux approches...

Merci à tous les deux
Bonne journée

CAPRI_456
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Question
XL pour MAC Recherche de mots clefs dans une cellule Texte
Réponses
2
Affichages
883
Tsr75a
T
T
  • Question
Microsoft 365 extraire plusieurs parties de texte dans le contenu d'une cellule
Réponses
4
Affichages
457
Cousinhub
J
  • Question
XL 2019 Comment détecter si le texte entré dans une cellule est un doublon (déjà utilisé dans la même colonne sur les lignes supérieures) ?
Réponses
5
Affichages
496
fanch55
  • Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
782
Droopyougo
S
  • Question
XL 2016 Cellule change de couleur si la valeur existe dans une autre cellule d'un autre onglet
Réponses
12
Affichages
911
sum01
S
M
  • Question
XL 2016 Envoi mail Excel VBA + Mention d'un contact dans le corp du message
Réponses
1
Affichages
934
fanch55
  • Question
Microsoft 365 RECHERCHE avec un critère et plusieurs résultats "texte" possibles dans une colonne à concatener dans une seule et même cellule
Réponses
4
Affichages
2 K
Lulu974
M
  • Question
XL 2019 Avoir le texte d'un menu déroulant dans une autre cellule
Réponses
7
Affichages
1 K
maxdrey
M
A
  • Question
XL 2013 Excel copier dans le presse papier une cellule avec un contenu fixe avec une cellule avec un contenu variable
Réponses
6
Affichages
1 K
patricktoulon
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…