Discussion :

[DJ_OAKLEY_511]

Bonjour à tous,

Je suis novice sous Excel et j'aimerai pouvoir faire une macro qui me permettrait de faire une recherche et afficher le résultat.

Dans mon classeur Excel, j'ai 2 feuilles nommées "Données" et "FC".

Dans "Données" ma plage pour effectuer ma recherche se situe de la cellule G1:G54

ex : G1 = PAU
G2 = BEN
G3 = POR
etc...

Dans "FC" je dois vérifier si dans la cellule "B17:B3000" je trouve cette valeur.

ex : B17 = TERRAIN PAU
B18 = PAU MAISON
B19 = CHAMBRE PAU MAISON
idem pour les autres cellules à la place de PAU j'aurai soit BEN, POR etc...

Si la valeur est trouvée, j’inscrirai le résultat PAU, POR, BEN ... dans la cellule AI17:AI3000 de la feuille "FC".

Pourriez-vous m'aider la dessus s'il vous plait et comment faire pour exécuter la macro?

Cordialement.

[a_diard]

Je pense que tu devrais démarrer avec l'enregistreur de macro
pour avoir des pistes pour atteindre ton objectif


puis indiquer ou tu bloque sauf si tu arrive au bout.....

[Igloobel]

Bonjour,

la fonction InStr() permet de trouver une chaine dans une autre

avec une boucle et le tour est joué

[Marc-L]

Bonjour,

déjà sans boucle juste via une formule de calculs et ce, même en VBA …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[DJ_OAKLEY_511]

Bonjour à tous,

Et merci pour vos conseils, je vais tester vos méthodes et vous tiendrai informer de mon avancement.

Pour la boucle, celle-ci me permettrait d'éviter d'écrire trop de ligne de commande.

Car pour mon exemple dans ma feuille FC dans la cellule B17 je peux avoir soit PAU ou BEN ou POR, j'ai en tout 54 mots clés à chercher.

Et la liste des 54 mots clés se trouve sur la feuille DONNEES.

voila le topo

Cordialement.

[mfoxy]

Hello,

J ai peut-être une piste que tu pourrais modifier pour ton utilisation
Déjà fait quelques modifications pour toi
Issus d un post similaire de ce jour

À tester dans une copie de ton classeur

Bat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
 
Sub Test()
Dim CompareRange As Variant, ChangeRange As Variant, x As Variant, y As Variant
Dim DerlG As Long, DerlB As Long
 
DerlG = Sheets("Données").Range("G" & Rows.Count).End(xlUp).Row
DerlB = Sheets("FC").("B" & Rows.Count).End(xlUp).Row
'en supposant que tes plages débute en cellule 1 si pas modifier
Set CompareRange = Sheets("Données").Range("G1:G & DerlG) 'fix Range de H1 a dernière cellule  du Range H
Set ChangeRange = Sheets("FC").Range("B1:B" & DerlB) ' fix Range de D1 a dernière cel du Range D
 
'Pour chaque cel de la colonne à vérifier 
'Verifie avec chaque cellule critere si valeur est contenue
'Si équivalent trouver dans Range de comparaison
' modifié cel en cours + 33 à droite pour atteindre col AI
 
 For Each x In ChangeRange
    For Each y In CompareRange
      If x Like "*" & y & "*" Then X.offset(0,33).Value = y
    Next y
 Next x
 
End Sub

[DJ_OAKLEY_511]

Salut mfoxy,

merci pour ton aide, cela répond parfaitement à ma demande.

Je peux clôturer cette discussion en résolu.

Cordialement.

[DJ_OAKLEY_511]

Salut mfoxy,
Je me suis précipité dans ma clôture de ce post.

car dans ma feuille data j'ai 2 colonnes: nom des villes et code quartier
ex: je prends / comme séparateur de colonne

BRAS PANON/BPA
BRAS PANON/SDA
ETANG SALE/ETS
LA PLAINE DES PALMISTES/PPA
LA POSSESSION/DOS
LA POSSESSION/POS
LA POSSESSION/RGA
LE PORT/POR
LE PORT/RGA
LE TAMPON/MVH
LE TAMPON/PDC
LE TAMPON/PON
LES AVIRONS/AVI
PETITE ILE/CAF
PETITE ILE/MVH
PETITE ILE/PTI
SAINT ANDRE/SAD
SAINT BENOIT/ANN
SAINT BENOIT/BEN
SAINT DENIS/BRE
SAINT DENIS/BRU
SAINT DENIS/CAM
SAINT DENIS/CLO
SAINT DENIS/MON
SAINT DENIS/SDE
SAINT JOSEPH/JOS
SAINT JOSEPH/VIN
SAINT LEU/CHA
SAINT LEU/LEU
SAINT LEU/PSL
SAINT LOUIS/LOU
SAINT LOUIS/RSL
SAINT PAUL/BDN
SAINT PAUL/FLE
SAINT PAUL/GIL
SAINT PAUL/GUI
SAINT PAUL/PAU
SAINT PAUL/POR
SAINT PAUL/SBA
SAINT PAUL/SLH
SAINT PAUL/TAN
SAINT PAUL/TBA
SAINT PIERRE/CAF
SAINT PIERRE/MVH
SAINT PIERRE/PON
SAINT PIERRE/RCA
SAINT PIERRE/SPI
SAINTE MARIE/BSJ
SAINTE MARIE/C9F
SAINTE SUZANNE/DRI
SAINTE SUZANNE/SAD
SAINTE SUZANNE/SUZ
TROIS BASSINS/SBA
TROIS BASSINS/TBA

La boucle fonctionne bien mais me donne pas le résultat voulu sur certains critères.

exemple ci-dessous



la colonne résultat j'ai mis mes annotations.

Dans l'attente d'une aide.

Cordialement.