VBA: retours à la ligne

Résolu

honey2 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
honey2 Messages postés 6 Date d'inscription Statut Membre Dernière intervention - 10 avril 2013 à 09:25

Bonjour,
Voici mon code qui consiste à afficher un fichier txt(Conf) :

Sub Bouton1()

' Bouton1_Cliquer Macro
'
Dim fs As Object, a As Object, s2 As String, i As Integer
Dim derlign As Long, lignFinal&

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\test2.txt", True)
i = 1

While Not IsEmpty(Cells(9, i))

While Not IsEmpty(Cells(11, i))
'Chr(13) & Chr(10) POUR LE SAUT DE LIGNE
'chr(9) pour la tabulation

s2 = s2 & vlan & " " & Cells(9, i) & Chr(13) & Chr(10) & Chr(9)
s2 = s2 & "name" & " " & Cells(10, i) & " " & Chr(13) & Chr(10) & Chr(9)
s2 = s2 & "ip address" & " " & Cells(11, i) & " " & Cells(12, i) & Chr(13) & Chr(10) & Chr(9)
s2 = s2 & "tagged" & " " & Cells(13, i) & Chr(13) & Chr(10) & Chr(9)
s2 = s2 & "untagged" & " " & Cells(14, i) & Chr(13) & Chr(10) & Chr(9)
s2 = s2 & "qos" & " " & "priority" & " " & Cells(15, i) & Chr(13) & Chr(10) & Chr(9)

i = i + 1

Wend
Wend

a.WriteLine s2
a.Close

End Sub

''''''''''''''''

Mon problème est que ca affiche le premier vlan au début de la ligne et les autres en tabulation:

Je voudrai que à chaque fois il y a vlan que ça reviens à la ligne comme le 1er.

Des idées ???

A voir également:

VBA: retours à la ligne
Excel compter cellule couleur sans vba - Guide
Forum VB / VBA
Forum Excel
Forum Programmation
Forum VB / VBA

2 réponses

Réponse 1 / 2

f894009 Messages postés 17268 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Si j'ai bien compris votre demande,

Sub Bouton1()

    ' Bouton1_Cliquer Macro
'
    Dim fs As Object, a As Object, s2 As String, i As Integer
    Dim derlign As Long, lignFinal&

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\test2.txt", True)
    i = 1

    While Not IsEmpty(Cells(9, i))
        While Not IsEmpty(Cells(11, i))
            'Chr(13) & Chr(10) POUR LE SAUT DE LIGNE ou vbNewLine
            'chr(9) pour la tabulation ou vbTab

            s2 = s2 & vlan & " " & Cells(9, i) & vbNewLine & vbTab
            s2 = s2 & "name" & " " & Cells(10, i) & " " & vbNewLine & vbTab
            s2 = s2 & "ip address" & " " & Cells(11, i) & " " & Cells(12, i) & vbNewLine & vbTab
            s2 = s2 & "tagged" & " " & Cells(13, i) & vbNewLine & vbTab
            s2 = s2 & "untagged" & " " & Cells(14, i) & vbNewLine & vbTab
            s2 = s2 & "qos" & " " & "priority" & " " & Cells(15, i) & vbNewLine
            i = i + 1
        Wend
    Wend
    a.WriteLine s2
    a.Close

End Sub

Bonne suite

Réponse 2 / 2

honey2 Messages postés 6 Date d'inscription Statut Membre Dernière intervention

Merci c'est magique, c'est magnifique :)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires