VBA - macro création de fichier texte + classement

Bonjour à tous,

Je suis novice en macro excel .

Je souhaite faire une macro qui me permet de créer 3 fichiers texte (nantes.txt, bordeaux.txt, marseille.txt) listant les variable (présente dans le document excel), puis en les classant par type d'OS.

Le résultat attendu des 3 fichiers est le suivant :

nantes.txt :

### Variable Windows ###

Domaine: 'domaine.nantes'

Name: 'nantes'

ntp: 'server.nantes.ntp'

### Variable Debian ###

Apache_version: '2.4'

home_path: '/home/nantes'

### Variable Ubuntu ###

OS_version: '17.10'

memory_tomcat: '2G'

crontab_purge: '* * * * echo nantes'

bordeaux.txt :

### Variable Windows ###

Domaine: 'domaine.bordeaux'

Name: 'bordeaux'

ntp: 'server.bordeaux.ntp'

### Variable Debian ###

Apache_version: '2.2'

home_path: '/home/bordeaux'

### Variable Ubuntu ###

OS_version: '16.04'

memory_tomcat: '4G'

crontab_purge: '* * * * echo bordeaux'

marseille.txt :

### Variable Windows ###

Domaine: 'domaine.marseille'

Name: 'marseille'

ntp: 'server.marseille.ntp'

### Variable Debian ###

Apache_version: '2.4'

home_path: '/home/marseille'

### Variable Ubuntu ###

OS_version: '16.04'

memory_tomcat: '3G'

crontab_purge: '* * * * echo marseille'

Merci par avance pour votre aide.

bonjour,

une proposition

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dc = .Cells(1, Columns.Count).End(xlToLeft).Column
        Range(.Cells(1, 1), .Cells(dl, dc)).Sort key1:=.Cells(1, 1), order1:=xlDescending, Header:=xlYes
        For cv = 3 To dc
            ville = .Cells(1, cv)
            Open ville & ".txt" For Output As #1
            os = ""
            For i = 2 To dl
                If os <> .Cells(i, 1) Then
                    Print #1, ""
                    Print #1, "### Variables " & .Cells(i, 1) & " ###"
                    os = .Cells(i, 1)
                End If
                Print #1, .Cells(i, 2) & ": '" & .Cells(i, cv) & "'"
            Next i
            Close 1
        Next cv
    End With
End Sub

Merci, c'est exactement ce que je cherchais.

Tu es au top !!!