Mise en page des colonnes
Bonjour a tous
j ai un logiciel qui me donne une succession de valeurs, dans 2 colonnes, sous format .txt.
je convertit ce fichier en en fichier excel probleme. Seulement, je n ai toujours que 2 colonnes et 20 pages de donnees.
J aimerai reussir a lui faire faire un "couper-coller" des colonnes qui sont sur la page en dessous vers les colonnes adjacentes, de facon a ne pas avoir que 2 colonnes par page a imprime, mais plutot 6 ou 8.
Je laisse un exemple (court) pour que ce qui savent repondre a cette question voient bien de quoi je parle.
D'avance merci
Bonjour a tous
michdenis m a donner une solution sur supprt.microsoft et comme presonne ne m a repondu, je vous donne son code afin d aider ceux qui auraient ce meme probleme
Le fichier texte a ouvrir s appelle "C:\Test.txt" et on veut un retout a la colonne suivante toute les 2 lignes
Sub ouvrirfichiertexte()
Dim Ligne As Long, A As Integer
Dim Colonne As Long
Dim texte As String
Ligne = 1: Colonne = 1
Close #1
Open "C:\Test.txt" For Input As 1
With Worksheets("Feuil1")
Do While Not EOF(1)
Line Input #1, texte
.Cells(Ligne, Colonne).Value = texte
Ligne = Ligne + 1
If Ligne Mod 3 = 0 Then
Colonne = Colonne + 3: Ligne = 1
End If
Loop
Close #1
For A = 1 To Colonne Step 3
.Columns(A).TextToColumns _
Cells(1, A), , , False, , True, , _
DecimalSeparator:="."
Next
End With
End Sub
Si on veux revenir a la colonne suivant toutes les 100 lignes, il faut changer la ligne If Ligne Mod 3 = 0 Then en If Ligne Mod 100 = 0 Then
a bientot
Pogo