[XL-2003] sélection de lignes en fonctions d'une famille de mots

[AUCCAS]

Salut à tous,
Je cherche une macro qui selectionne les lignes qui contiennent une famille de mots. Je m'explique: j'ai importé une floppée de tableaux de l'INSEE et j'ai gardé les 326 communes de mon département.
Je dois extraire pour chaque tableau des zones de comparaison. L'une d'elle est composée de 16 communes.
Le hic : d'un fichier à l'autre, le nom de la commune ne se trouve pas sur la même colonne ni sur la même ligne.
Comment s'y prendre pour créer une macro qui sélectionnerai automatiquement les lignes afférant aux 16 communes, que je pourrais ensuite utiliser d'un fichier à l'autre.

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test3()
    'Réf. 111018.xlsm
    Dim Plage As Range, Tableau As Range, c As Range, Communes
    Set Tableau = [A1:J30]
    Communes = Array("C1", "C2", "C3", "C4", "C5", "C6", "C7", _
    "C8", "C9", "C10", "C11", "C12", "C13", "C14", "C15", "C16")
    For Each Item In Communes
        Set c = Tableau.Find(Item, , , xlWhole)
        If Plage Is Nothing Then
            Set Plage = Tableau.Rows(c.Row)
        Else
            Set Plage = Union(Plage, Tableau.Rows(c.Row))
        End If
    Next Item
    Plage.Select
End Sub