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

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
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
Réponse 2 / 2
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

Discussions similaires

recherche à partir de la barre d'adresse
Sylviane -
Lulin -

Bonjour,

Avant, je pouvais faire une recherche sur internet directement dans la barre d'adresse. J'ai dû désactiver quelque chose sans le vouloir. Aujourd'hui si je saisis un mot pour rechercher,je n'obtiens que cette réponse :
http:///?%20j
Quelqu'un peut-il m'aider ?
Merci

11 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
Réglage chaine de la TNT FR3 TF1 A2 TMC
Yamina -
Redbart -

Bonjour,
J ai un tv Samsung 4K et impossible de regler
Tf1
Fr3
A2
M6
Tmc
A l aide

Merci




1 réponse