Fonction de mise en forme automatique

Bonjour à tous,

Je suis bloqué dans la création de mon document. Je suis admin réseau et pour palier à un manque d'ergonomie de mon infra pour afficher la conf de tous les ports d'un switch, j'ai créé un document dans lequel j’injecte un bout de conf qui mouline, interprète et purge certaines données afin de me sortir les informations que vous trouverez dans la pj, colonne A.

J'ai ensuite besoin de remettre en formes ces informations et de les compléter de manière à ce que cela ressorte comme ce que vous pourrez voir dans les colonnes D à P (mais dans le meilleur des monde, pas de limite au nombre de colonne). Et c'est là que je bloque.

Pour préciser ce que j’entends par transformation:

- Suppression du mot Vlan

- Il y a 2 types de vlan: Overlay et Underlay.

# En Overlay, la conf l'indique juste avant le numéro du vlan (exemple A6:A7). Il faut reporter l'information.

# En Underlay (exemple: A2), rien n'est préciser, il faut ajouter l'information.

J'ai tenté beaucoup de chose à base de fonction, mais manifestement je ne suis pas encore assez bon. Et je n'ai aucune connaissance en Macro, donc je coince.

J'espère avoir été assez clair dans mon explication. Si non, je suis à votre disposition si vous avez la moindre question.

Dans l'espoir que vous pourrez m'aider.

Merci par avance.

Itigiel

Bonjour Itigiel,

Cela me semble quasi impossible par formule.

Une proposition via VBA:

Sub Tri()
Dim cel As Range
Dim ligne
Dim col
col = 4
For Each cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Left(cel, 5) = "inter" Then
        ligne = ligne + 1
        col = 5
        Cells(ligne, col - 1) = cel
    End If
    If cel = "Overlay" Then Cells(ligne, col) = cel
    If Left(cel, 4) = "Vlan" Then
        Cells(ligne, col + 1) = Replace(cel, "Vlan ", "")
        col = col + 2
    End If
Next cel
For Each cel In Range("E1:E" & Cells(Rows.Count, 4).End(xlUp).Row)
    If cel = "" Then cel = "Underlay"
Next cel
End Sub

Ce que tu me dit me rassure alors ^^

Je vais tester ça dans la journée et fais un retour

Merci

Bonjour, Une solution par Power Query,

Ca m'aura pris du temps mais au moins j'ai progressé. Je remercie Jean Eric pour les fonctions

Il suffit de faire click droit sur le tableau vert et "actualiser"

EDIT : Je viens de voir que je ne gère pas les Underlay sans numéro. Donc pas totalement abouti

Bonjours à tous,

Merci infiniment pour votre aide. Cela fonctionne parfaitement, c'est parfaitement ce qu'il me fallait.

Encore un grand merci !!

Bonjour..

Je vais tester ça dans la journée et fais un retour

Quelle looooongue journée ! On ne doit pas vivre dans le même système solaire !

Bonne continuation