Ce forum est maintenant fermé, seule cette archive statique reste consultable.
  FORUM Matbe.com
  OS, Software, Réseaux
  Programmation

  Saut de ligne + retour VBA/Excel

Bas de page
Auteur Sujet :

Saut de ligne + retour VBA/Excel

n°73619
Johnny Boy
I don't know, Google it.
Posté le 28-04-2012 à 11:51:02  
 

Bonjour, je suis complètement perdu pour la tâche que je dois effectuer.
 
Je possède un tableau de ce style-ci :  
 
http://img11.hostingpics.net/pics/930392Capturede769cran20120428a768113014.png
 
(Le fiches sont en réalité plus longues et j'en ai plus de 20.000)
 
En vue de la migration de ces fiches dans une base de donnée sql, j'aimerais qu'elles ressemblent à ceci avant de les transformer en .csv pour l'importation dans la base de donnée :
 
http://img11.hostingpics.net/pics/343926Capturede769cran20120428a768113315.png
 
Seulement, je suis bloqué ici :  
 
http://img11.hostingpics.net/pics/353189Capturede769cran20120428a768113140.png
 
Je suis presque sur qu'il n'y a qu'avec un script vba qui ferait un saut de ligne + retour chaque fois qu'il y a "Compte" qui s'affiche, mais je n'ai aucune idée de comment procéder étant donné que je n'ai aucune notion dans le domaine.
 
Quelqu'un a t-il une solution à proposer? :whistle:


---------------
New Matbe --> www.iwyt.net <-- New Matbe
 
Yippee-ki-yay, motherf*cker.
mood
Pub
Posté le 28-04-2012 à 11:51:02  
 

n°73620
sebx
Posté le 28-04-2012 à 11:56:18  
 

ça irait pas plus vite en passant direct par un fichier texte ?
je m'explique :
tu vires la première colonne qui sert à rien
tu laisses les lignes '---'
t'enregistres ça en csv avec excel

 

avec un éditeur de texte genre textpad tu remplaces toutes les fins de lignes qui ne sont pas le premier caractère par un ";"
tu vires les '--'


Message édité par sebx le 28-04-2012 à 11:56:44

---------------
matbe forever !
n°73621
Johnny Boy
I don't know, Google it.
Posté le 28-04-2012 à 11:59:39  
 

Jvais essayer ça ;)


---------------
New Matbe --> www.iwyt.net <-- New Matbe
 
Yippee-ki-yay, motherf*cker.
n°73622
Johnny Boy
I don't know, Google it.
Posté le 28-04-2012 à 12:22:20  
 

Quand je réouvre le .csv modifé, les point-virgules ont disparus mais la suppression des "--" lui est resté. Wtf?


---------------
New Matbe --> www.iwyt.net <-- New Matbe
 
Yippee-ki-yay, motherf*cker.
n°73623
sebx
Posté le 28-04-2012 à 12:43:49  
 

CTRL + S  :o


---------------
matbe forever !
n°73624
Johnny Boy
I don't know, Google it.
Posté le 28-04-2012 à 12:52:57  
 

Si il a bien enregistrer la suppression de mes "--" mais pas les points-virgules, je crois pas que c'est parce que j'ai pas fait de sauvegarde  :o


Message édité par Johnny Boy le 28-04-2012 à 12:53:21

---------------
New Matbe --> www.iwyt.net <-- New Matbe
 
Yippee-ki-yay, motherf*cker.
n°73641
arl-guhr
kan g faim je mange
Posté le 08-05-2012 à 22:08:27  
 

Euh:

Code :
  1. Sub treat()
  2.     Dim i, k, l As Long
  3.     Dim Source, Dest As String
  4.     Dim OffsetSrc, OffsetDest As Long
  5.     Dim LenFiche, OffsetEntreFiche As Long
  6.    
  7.     Source = "sheet1"
  8.     Dest = "sheet2"
  9.     OffsetSrc = 0
  10.     OffsetDest = 1
  11.     LenFiche = 10
  12.     OffsetEntreFiche = 1
  13.    
  14.     i = 1 + OffsetSrc
  15.    
  16.     k = 1 + OffsetDest
  17.     l = 1
  18.    
  19.     While Sheets(Source).Cells(i, 1).Value <> ""
  20.    
  21.         For l = 1 To LenFiche
  22.             Sheets(Dest).Cells(k, l).Value = Sheets(Source).Cells(i, 2).Value
  23.             i = i + 1
  24.         Next
  25.         i = i + OffsetEntreFiche
  26.         k = k + 1
  27.    
  28.     Wend
  29.    
  30.     MsgBox "done :)"
  31. End Sub


 
Edit : Une semaine et demi plus tard...


Message édité par arl-guhr le 08-05-2012 à 22:35:02

---------------
il s'appel le ronge me doute
n°73642
Johnny Boy
I don't know, Google it.
Posté le 12-05-2012 à 14:07:45  
 

Thx quand même :)


---------------
New Matbe --> www.iwyt.net <-- New Matbe
 
Yippee-ki-yay, motherf*cker.
n°73644
jaqpot
Posté le 24-05-2012 à 21:42:02  
 

Heureux que vous avez affichée.  
http://www.lzxin.info/g.php

  FORUM Matbe.com
  OS, Software, Réseaux
  Programmation

  Saut de ligne + retour VBA/Excel