XL 2013 Rechercher et ajouter

maval

XLDnaute Barbatruc
Bonjour,

J'ai un classeur avec 3 colonnes
1er Le nom des communautés des communes du département.
2éme Les noms des communes qui font références à la colonne "B".
3éme La liste des noms des communes du département.

Ma demande est que j'aimerai à l'aide d'une macro rechercher à quelles communes appartiens la communauté des communes en fonction des deux première colonnes et ajouter les noms en colonne "E"
Pas simple à expliquer mais mon fichier exemple donneras plus d’explications.

Je vous remercie d'avance

Max
 

Pièces jointes

  • Communaute_des_communes.xlsm
    39.8 KB · Affichages: 6

maval

XLDnaute Barbatruc
Bonjour Boisgontier

Je te remercie mais se n(est pas cela que je recherche j'ai du mal m'expliquer je vais essayer de mieux expliquer.

Ma demande est que j'aimerai à l'aide d'une macro rechercher à quelles communes appartiens la communauté des communes qui se trouve dans les première colonne e mettret le nom de la communauté de commune dans la colonne "E"en fonction du nom qui correspond.

Je te remercie

Max
 

job75

XLDnaute Barbatruc
Bonjour maval, JHA, JB,
VB:
Function SansAccent$(chaine$)
Dim codeA$, codeB$, i%, p%
codeA = "àáâãäåòóôõöøèéêëìíîïùúûüÿñç"
codeB = "aaaaaaooooooeeeeiiiiuuuuync"
For i = 1 To Len(chaine)
    p = InStr(codeA, Mid(chaine, i, 1))
    If p Then Mid(chaine, i, 1) = Mid(codeB, p, 1)
Next
SansAccent = chaine
End Function

Sub Liste()
Dim tablo, d As Object, i&
tablo = [B5].CurrentRegion.Resize(, 4) 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
    d(SansAccent(LCase(tablo(i, 2)))) = tablo(i, 1)
Next
For i = 1 To UBound(tablo)
    tablo(i, 4) = d(SansAccent(LCase(tablo(i, 3))))
Next
With Feuil1 'CodeName, à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .[E5].Resize(UBound(tablo)) = Application.Index(tablo, , 4)
End With
End Sub
A+
 

Pièces jointes

  • Communaute_des_communes(1).xlsm
    52.1 KB · Affichages: 6

Discussions similaires

Réponses
6
Affichages
442
Réponses
8
Affichages
355

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088