Modification de macro

[Chaps]

Bonsoir à tous,
Suite à un coup de main d'un certain Hervé j'ai obtenu une macro qui me permet de mettre plusieurs lignes en une seule colonne. Mais j'aurai besoin d'une modif si possible, pour certaines données numériques j'obtiens un espace avant la valeur (ex : _03 au de lieu 03)
voici la macro :
Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim Fichier As String
Dim i As Integer 'possible jusqu'a 32700 lignes ensuite passer en long
Dim j As Integer

tablo = Range('a1').CurrentRegion
Fichier = 'C:\\test.Txt' 'a adapter

Open Fichier For Output As #1
For i = 1 To UBound(tablo)
Select Case tablo(i, 1)
Case '#CHEN': fin = 61
Case Else: fin = 46
End Select
For j = 1 To fin
Print #1, tablo(i, j)
Next j
Next i
Close

End Sub

Bon courage et merci !!!

 

[Hervé]

Bonsoir chaps

y'a de forte chance pour que le certain hervé ce soit moi 🙂

Je n'ai pas gardé ton fichier mais comme tu parles d'espaces, essayes comme ceci :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim Fichier As String
Dim i As Integer 'possible jusqu'a 32700 lignes ensuite passer en long
Dim j As Integer

tablo = Range('a1').CurrentRegion
Fichier = 'C:\\\\\\\\test.Txt' 'a adapter

Open Fichier For Output As #1

For i = 1 To UBound(tablo)
Select Case tablo(i, 1)
Case '#CHEN': fin = 61
Case Else: fin = 46
End Select
For j = 1 To fin
Print #1, Trim(tablo(i, j))
Next j
Next i

Close


End Sub

si ce code ne convient pas, merci de nous joindre un fichier exemple.

salut

Message édité par: hervé, à: 30/01/2006 23:04

 

[Chaps]

Bonjour à tous,

Mission completed,
Maybe see you soon..... for a next level !

Merci à toi, Hervé ....

🙂