Cherche code pour trier un fichier d'adresses par région

J'ai une feuille MS Excel (2003), fichier CSV, avec une liste d'adresses sur la quelle je souhaite effectuer une suppression de certaines adresses. Remarque : Il s'agit exclusivement d'adresses françaises.

La sélection des adresses doit se faire par région ... on prend donc la colonne avec les codes postaux (les deux premiers chiffres du code postal) qui porte le nom DOS_CODE_POSTAL.

Je souhaite par exemple que garder les régions suivantes:

33, 40, 47, 64, 24, 16, 17, 19

et supprimer toutes les autres adresses donc les deux premiers chiffres du code postal ne correspondent pas.

Il y à encore un petit piège!

Tous les codes postaux ne sont pas forcement enregistre en tant que 5 chiffres :

pour la région 07400 il est marque 7400 ... il faut donc tenir compte de la longueur du code postal pour ne pas tomber dans le piège d'interpréter le 07
par un 74 pour exemple précédent.

Quelqu'un pourrait m'aider pour se petit bout de code (Macro)?

GRAND Merci d'avance pour votre aide. ;)

Bonjour,
Je pense qu'en intégrant ceci ça devrait aider...

Code:

---

1 2 3 4

If Len(codeP) = 4 then CodeP = "0" & codeP else end if

---

codeP etant bien sûr la valeur du code postal qui est certainement déjà renseignée dans le reste du code.

Ensuite un left(CodeP,2) devrait te donner la valeur rechercher pour confronté à la liste à garder.

Si c'est pas ça, tu peux m'envoyer le fichier, je m'ennuie un peu pour l'instant :)

Oui, ou sans if, dans la même boucle, tu corriges les N° afin que ce soient des strings dans le but de filtrer les départements
Je suppose les départements dans la colonne A

Code:

---

1 2 3 4 5

Dim Tablo as variant, derlig as long, NoLig as long, ok as boolean DerLig = Split(Worksheets("LaFeuille").UsedRange.address,"$")(4) For NoLig = 2 to DerLig Cells(NoLig, 1) = Right("0" & Cells(NoLig, 1) ,5) Next

---

Ensuite tu peux filtrer tes lignes. Un truc comme ça

Code:

---

1 2 3 4 5 6 7 8

Tablo = array("33", "40", "47", "64", "24", "16", "17", "19") For NoLig = DerLig to 2 step -1 For i = 0 to ubound(Tablo) -1 ok = left(Cells(NoLig, 1),2) = Tablo(i) if ok then exit for Next if not ok then Rows(NoLig).entireRow.Hidden = True Next

---

Là, tes lignes ne faisant pas partie de la région sont masquées. Tu peux aussi les supprimer avec delete à la place de Hidden. Sans filet. Tu peux tester pour nous ;)
Bonne soirée

Et prendre le résultat de la division entière (\)par 1000, ce ne serait pas plus simple?

Hello Alain,
Tu verrais ça comment ? Par le format ?

Un petit exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim rRange As Range Dim c As Range Set rRange = Range([A1], Cells(Rows.Count, 1).End(xlUp)) For Each c In rRange Select Case c.Value \ 1000 Case 16, 17, 19, 24, 33, 40, 47, 64 Case Else c.EntireRow.ClearContents End Select Next c End Sub

---

Il suffit de trier la plage en finale.

Une autre possibilité serait d'ajouter une colonne avec le code départemental ainsi calculé.