Mise en forme de données

Question

Bonjour voici mon problème dans la première feuille j'ai mis ce que j'ai déjà et dans la seconde ce que j'aimerai j'ai essayé à la main mais c'est vraiment long et fastidieux car très répétitif je me suis dit que une macro serai idéal mais étant donner que je débute dans ce domaine je n'arrive pas a la réaliser merci...

SylChat · Answer

Bonjour je viens de faire une macro qui pourrais t'aider

Sub test()
    Dim Adresses$, i%
    ActiveCell.Select
    Adresses = Replace(Selection.Text, Chr(10), " ")
    ActiveWorkbook.Worksheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Test"
    Sheets("Test").Range("a1") = Adresses
    Sheets("Test").Range("a1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True
    Dim C As Range
        i = 1
    For Each C In Range("1:1")
        If Not (C.Text Like "") And Not (C.Text Like "255*") Then
            Sheets("Test").Range("A" & i + 1) = C.Text
            Sheets("Test").Range("B" & i + 1) = C.Offset(0, 1).Text
            i = i + 1
        End If
    Next C
End Sub

en faite, je sélectionne la cellule qui contient tes IP, via vba je remplace les saut de ligne par des espaces puis j'utilise la fonction convertir (données=>convertir) pour separer les sous adresses,

ensuite via une boucle je renseigne les cellule de la colonne A avec les IP et la colonne B par les sous adresses

Il est possible d'améliorer le code et la méthode mais c'est un début

bon apres midi