C
Chaps
Guest
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 !!!
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 !!!