Recherche sur 2 colonnes
dh 62
Messages postés
5
Statut
Membre
-
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
en excel 2007 mais assez profane
Passionné de Genealogie je recherche la formule permettant de faire apparaitre sur un fichier de resultats les noms des epoux et epouses desirées avec possibilité de mettre une * pour les variations d'orthographe des noms ( ex DEVINCE ou DEVINSSE , la demande sera DEVIN**E)
Ces Mariages sont classés par commune representées chacune sur une feuille de calcul (plus de 100 )
chaque ligne etant ainsi composée:
Commune an mois jour epoux epouse
Je vous remercie d'avance pour vos recherches
daniel
en excel 2007 mais assez profane
Passionné de Genealogie je recherche la formule permettant de faire apparaitre sur un fichier de resultats les noms des epoux et epouses desirées avec possibilité de mettre une * pour les variations d'orthographe des noms ( ex DEVINCE ou DEVINSSE , la demande sera DEVIN**E)
Ces Mariages sont classés par commune representées chacune sur une feuille de calcul (plus de 100 )
chaque ligne etant ainsi composée:
Commune an mois jour epoux epouse
Je vous remercie d'avance pour vos recherches
daniel
A voir également:
- Recherche sur 2 colonnes
- Faire 2 colonnes sur word - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Inverser 2 colonnes excel - Guide
5 réponses
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
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
aragon6980
Messages postés
1344
Statut
Membre
252
Je pensais que vous cherchiez une boite de dialogue. Le caractère de remplacement d'une lettre dans le champ de recherche est le point "."
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
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
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
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
on peut traiter le problème s'il y a plusieurs mariages, mais dans un fichier de :150 feuilles X 200 tableaux X 60 lignes en moyenne,( ça fait dans les 1.800.000 lignes à traiter, si j'ai bien compris) et là, je pense que par formule, on va mettre excel à genoux...sans aucun doute.
je pense que vous devriez passer par une macro et ça, ça n'est pas ma spécialité... mais il y a des spécialistes sur CCM et vous ne devriez pas attendre longtemps avant de trouver une réponse.
Je veux bien si vous le souhaitez, vous donner l'astuce pour éditer plusieurs modèles identiques, mais ce ne sera pas là votre plus gros problème.
Crdlmnt
on peut traiter le problème s'il y a plusieurs mariages, mais dans un fichier de :150 feuilles X 200 tableaux X 60 lignes en moyenne,( ça fait dans les 1.800.000 lignes à traiter, si j'ai bien compris) et là, je pense que par formule, on va mettre excel à genoux...sans aucun doute.
je pense que vous devriez passer par une macro et ça, ça n'est pas ma spécialité... mais il y a des spécialistes sur CCM et vous ne devriez pas attendre longtemps avant de trouver une réponse.
Je veux bien si vous le souhaitez, vous donner l'astuce pour éditer plusieurs modèles identiques, mais ce ne sera pas là votre plus gros problème.
Crdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
