Recherche avec macro VBA

Fermé
cgmac Messages postés 2 Date d'inscription mercredi 6 janvier 2021 Statut Membre Dernière intervention 8 janvier 2021 - Modifié le 7 janv. 2021 à 00:29
cgmac Messages postés 2 Date d'inscription mercredi 6 janvier 2021 Statut Membre Dernière intervention 8 janvier 2021 - 8 janv. 2021 à 23:16
Bonjour,

J'ai créé avec macro (via Excel) une recherche qui donne ceci



Sub Macro2()
' Macro2 Macro
' Recherche dans col A l'occurence d'un mot ou partie de mot
'
    Sheets("Touttes").Select
    Columns("A:A").Select
    Selection.Find(What:="cake", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Activate
End Sub




Comment paramétrer les diff parm (Lookin, MatchCase etc)
pour fignoler les actions
Le but est de trouver la ligne et :
1) si ok, executer le lien contenu et afficher le contenu puis stop
2) si ok, mais pas le bon chercher plus loin (jusqu'à fin (par ex rec 300 avec contenu ZZZ
3) si pas trouvé redemander nouveau extrait et recommencer

Mon fichier a cet aspect le résultat du contenus trié de plusieurs dossiers



Col A Col B
Nom Chemin et Nom
Asperges en gratin.PDF D:\A_GOODSYNC\..TES\SCANNED\Asperges en gratin.PDF
Aubergines cordonbleu.pdf D:\A_GOODSYNC\..TES\BettyB\Aubergines cordonbleu.pdf
Aubergines fines.docx D:\A_GOODSYNC\..TES\Diverses\Aubergines fines.docx
BAVAROIS aux FRAISES.doc D:\A_GOODSYNC\..UTES\BettyB\BAVAROIS aux FRAISES.doc
ZZZ Fin de liste



Eventuellement ou trouver les détails de cette fonction >Selection.Find<

Merci d'avance



Configuration: Windows / Chrome 87.0.4280.88
A voir également:

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
7 janv. 2021 à 01:00
Bonjour,

« trouver les détails de cette fonction »

Dans le VBE (l'éditeur VBA), placer le curseur texte sur le mot pour lequel tu veux des explications détaillées, par exemple sur Find, et taper F1.
0
cgmac Messages postés 2 Date d'inscription mercredi 6 janvier 2021 Statut Membre Dernière intervention 8 janvier 2021
8 janv. 2021 à 23:16
Merci de l'info,
Je vais consulter et vous confirmer si cela me convient

Cordialement
cgmac
0