Recherche sur 2 colonnes

il faut créer une macro

Sub Macro1()

'****************************
'Macro pour couleur et filtre
'****************************

Dim c As Range 'déclare la variable c
Dim car As String 'déclare la variable car
Dim ad As String 'déclare la variable ad
Dim x As Integer

car = InputBox("Tapez le mot (ou la chaîne de caractères) recherché", "Rechercher") 'définit la variable car (Boîte de texte)
If car = "" Then Exit Sub 'si rien n'est édité, sort de la procédure

With Range("B3:M3000") 'prend en compte la plage de la recherche

Set c = .Find(car) 'définit la variable c (recherche du texte édité dans la boîte de texte)

If Not c Is Nothing Then 'condition : si une occurrence est trouvée
ad = c.Address 'définit la variable ad (adresse de cette occurrence)
Do 'exécute
c.Interior.ColorIndex = 3 'remplit de rouge (supprime cette ligne si tu ne souhaites pas de couleur)
Cells(c.Row, 1).Value = 1 'érit "1" dans la colonne A de la ligne correspondante
Set c = .FindNext(c) 'redéfinit la variable C
'tourne en boucle tant qu'une nouvelle occurrence est trouvée avec un adresse différente de ad
Loop While Not c Is Nothing And c.Address <> ad

End If 'fin de la condition

End With

Range("A3").AutoFilter 'mode filtre automatique
Selection.AutoFilter Field:=1, Criteria1:="1" 'critère

End Sub

Sub Macro2()

'**************************************
'Macro pour supprimer couleur et filtre
'**************************************

Range("A3").AutoFilter 'supprime le filtre automatique
Range("A3").CurrentRegion.Interior.ColorIndex = xlNone 'enlève la couleur rouge (supprime aussi si tu as supprimé en haut)

End Sub

merci
Je me suis mal exprimé
ex: je recherche le mariage Devince (epoux) X desoastre(epouse) qui auront selon les communes des orthographes differentes
je ferais donc la demande suivante DEVIN""E et DE""""STRE

Je desire voir apparaitre dans un fichier de resultats toutes les lignescomplètes avec dates et communes où figureront DEVIN""E et DE"""STRE

Cette recherche devra s'operer dans toues les feuilles de calcul classées par communes
merci d'avance
daniel

Bonjour
peut être un début ici
http://www.cijoint.fr/cjlink.php?file=cj201012/cijRW1Ch5Y.xls
si cela convient, revenez pour que l'on complète avec recherche sur plusieurs feuille, ,mais avec plus d'info sur l'organisation de votre fichier et la dimensions des tableaux.
crdlmnt

bonjour
Merci c'est très approchant de mon desirata
sur le fichier de resultats il me faudrait la ligne complète avec date et lieu et Toutes les lignes qui correspondent à ce resultat car j'ai fait un essai pour voir si j'obtenais plus d'un resultat , la colonne passe bien à 2 mais il ne me donne que le 1er

chaque feuille de calcul en bas represente un commune avec une population variable . Cette feuille est divisée en nombre variable de pages (photos numerisées en xls) qui elles-mêmes contiennent un nombre de mariages entre 20 et 80
Le total des feuilles depassent 150 et la plus importante > à 200 pages
merci c'est super sympa
Daniel

re
Non cela fera vraisemblablement 200 à 300 000 lignes car il y a bcp de petites communes
Je souhaiterez SVP neanmoins avoir la formule adequate car si jamais je n'ai pas la solution par macro , je pouurrais scinder la base de données pour ne pas mettre excel à saturation quitte aussi à "doper" le PC
merci d'avance
daniel