Tri pays et code postal

Bonjour à tous

Voilà j'ai 3 fichier qui comporte en tout 19729 clients. Je voudrais en premier regrouper les 3 fichiers ensemble. En deuxième trier les étrangers en bout de liste ou sur un fichier à part avec une colonne "étranger" et en troisième je voudrais ajouter un zéro au devant de chaque code postal belge. Vu la taille du fichier je me vois mal le faire un à un. Je vous joins un extrait de ces fichiers. Merci d'avance

Bien cordialement

https://www.excel-pratique.com/~files/doc2/fichier_clients.xls

bonjour,

3 petites macros pour dégrossir le problème. (Mais il suffit de lancer la Sub Main()

Sub Main()
TroisEnUn
Etrangers
End Sub

Sub Etrangers()
Dim Ws1 As Worksheet, Ws2 As Worksheet, LR1%, LR2%
Set Ws1 = Worksheets(1)
Set Ws2 = Worksheets(2)
LR1 = Ws1.Cells(1).End(xlDown).Row
LR2 = 2
For i = LR1 To 2 Step -1
If Asc(Ws1.Range("A" & i)) > 59 Then
Ws1.Rows(i).Cut
Ws2.Range("A" & LR2).Insert
Ws1.Rows(i).Delete
LR2 = LR2 + 1
End If
Next
End Sub

Sub TroisEnUn()
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet, LR1%, LR2%, LR3%
Set Ws1 = Worksheets(1)
Set Ws2 = Worksheets(2)
Set Ws3 = Worksheets(3)
LR1 = Ws1.Cells(1).End(xlDown).Row + 1
LR2 = Ws2.Cells(1).End(xlDown).Row
LR3 = Ws3.Cells(1).End(xlDown).Row
Ws2.Range("A2:E" & LR2).Cut Ws1.Range("A" & LR1)
LR1 = Ws1.Cells(1).End(xlDown).Row + 1
Ws3.Range("A2:E" & LR2).Cut Ws1.Range("A" & LR1)
End Sub

Euh... Je vois pas bien l'intéret de rajouter un 0 aux codes belge vu que c'est un code à 4 chiffres ? Mébon... tu peux bricoler quelque chose avec des formules du type

=SI(GAUCHE(A2;2)="BE";"0"&D2;D2)

A+

Bonjour

Tu peux détailler stp ou je mets la formule et je ne comprends rien au premier truc que tu me mets je ne suis pas aussi calé que toi lol

Merci de m'aider

Cordialement

bonjour,

Bon. Et bien si tu ne comprends rien aux macros il y a un truc encore plus simple :

Tu prends tes 3 fichiers tu les colles sur une seule feuille.

Tu positionnes la cellule active à l'intérieur du tableau et tu fais (dans le menu) :

Données / Trier puis Ok

Normalement tes étrangers iront se ranger à la fin...

A+

Merci ca marche

comment faire pour rajouter un 0 devant les département comme admettons le departement 01 sur mon fichier il n'apparît pas le 0 devant tu peux me dire comment faire stp

Merci d'avance

Bonjour,

Format de cellule/Nombre,

Personnalisée, pour le code postal:

00000

pour le département:

00

Claude.

édit: ajouté 00 pour écrire 01 au lieu de 1

re

désolé mais cela ne marche pas car c'est soit nombre ou soit personalisé je ne trouve pas code postal

Merci d'avance

re,

J'ai dis: Personnalisé

re,

illustration: