Discussion :

[Didier100]

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.

[Fvandermeulen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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

[ouskel'n'or]

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

[AlainTech]

Un petit exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.