XL 2021 Ordonner une liste d'adresses IP

  • Initiateur de la discussion Initiateur de la discussion oukthr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

oukthr

XLDnaute Nouveau
Bonjour, je veux trier par ordre croissant une liste d'adresses IP, mais le tri est chaotique, voici le fichier avec les données a trier, je suis ouvert a toutes les solutions.
 

Pièces jointes

Solution
Bonjour oukthr, djidji59430, le forum,

Chaque adresse est constituée de 4 éléments.

Cette fonction VBA met chaque élément au format nombre 000 :

VB:
Function Aux(x As String) As String
Dim s, i%
s = Split(x, ".")
For i = 0 To 3
    s(i) = Format(s(i), "000")
Next
Aux = Join(s, ".")
End Function
Il suffit ensuite de trier le tableau sur la colonne B.

A+
Bonjour oukthr, djidji59430, le forum,

Chaque adresse est constituée de 4 éléments.

Cette fonction VBA met chaque élément au format nombre 000 :

VB:
Function Aux(x As String) As String
Dim s, i%
s = Split(x, ".")
For i = 0 To 3
    s(i) = Format(s(i), "000")
Next
Aux = Join(s, ".")
End Function
Il suffit ensuite de trier le tableau sur la colonne B.

A+
 

Pièces jointes

Si l'on veut que le tri se fasse automatiquement placer cette macro dans le code de la feuille "Tri" :
VB:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheets("Feuil1").Columns(1).Copy [A1] 'copier-coller
With [A1].CurrentRegion
    .Columns(2) = "=Aux(A1)"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Resize(, 2).Sort .Columns(2), xlAscending, Header:=xlYes 'tri
    .Columns(2).Clear 'RAZ
End With
End Sub
Elle se déclenche quand on active la feuille.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
345
  • Question Question
Microsoft 365 tri dans Excell
Réponses
19
Affichages
546
Réponses
15
Affichages
534
Réponses
13
Affichages
158
Retour