Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1428 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Excel Remplacer retour chariot par saut cellule

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Excel Remplacer retour chariot par saut cellule

n°2057836
daniel_a1
Posté le 18-02-2011 à 15:31:15  profilanswer
 

Bonjour, j'ai dans une cellule excel un texte avec des retours à la ligne.
Je souhaiterais avec VBA recopier chaque ligne de texte dans une cellule distincte.
Quelqu'un sait-il comment faire ?
J'ai commencé avec ça mais je m'emmèle les pinceaux avec la boucle car le compteur i doit être remis à 1 après que ma chaîne de charactère soit coupée.
 

Code :
  1. Sub formating()
  2. Dim c As String
  3. Dim str As String
  4. str = Worksheets("Download" ).Cells(1, 1)
  5. str = Right(str, Len(str) - 4)
  6. j = 1
  7. For i = 1 To Len(str)
  8.     c = Mid(str, i, 1)
  9.     If c = Chr(10) Then
  10.         Worksheets("User" ).Cells(j, 1) = Left(str, i - 1)
  11.         j = j + 1
  12.         str = Right(str, Len(str) - Len(Left(str, i - 1)))
  13. '    ElseIf c = Chr(13) Then
  14. '        Worksheets("User" ).Cells(j, 1) = Left(str, i - 1)
  15. '        j = j + 1
  16. '        str = Right(str, Len(str) - Len(Left(str, i - 1)))
  17.     End If
  18. Next i
  19. End Sub


Merci

mood
Publicité
Posté le 18-02-2011 à 15:31:15  profilanswer
 

n°2057903
kiki29
Posté le 18-02-2011 à 19:11:40  profilanswer
 

Salut,à mon avis il serait plus simple d'effectuer la manip de reformatage à l'import du fichier
un échnatillon de ce fichier serait appréciable , passer par http://cjoint.com/ ou http://www.cijoint.fr/

n°2058294
daniel_a1
Posté le 21-02-2011 à 10:22:00  profilanswer
 

Bonjour et merci pour ta réponse. Malheureusement, je n'ai pas de fichier d'import. Je lis le contenu d'un mail avec :
 
For Each i In Dossier.Items
    ActiveWorkbook.Worksheets("Download" ).Cells(1, j) = i.body
     j = j + 1
    Next i


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Excel Remplacer retour chariot par saut cellule

 

Sujets relatifs
VBA: collage speciale de texte provenant du presse papier vers Excelremplir une colonne excel à partir d'une ligne donnée
Certificat Excel - VBAForcer une nouvelle page Internet à remplacer une page déjà ouverte...
[VBA excel] problème inputbox et heure[PHP-RegEx] Remplacer des expressions par des caractères
[VBA Excel] Références manquantes [Résolu] 
Plus de sujets relatifs à : VBA Excel Remplacer retour chariot par saut cellule


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR