Recherche multicritère
Riske
-
néné -
néné -
Bonjour,
je voudrais faire une recherche multicritères, j'explique:
j'ai un tableau avec nom, prénom,date de debut,date de fin, n° identifiant et ce sur 31 jours du mois ( donc 31 pages).
A partir d'une autre page du même classeur, en tapant un de ses critères je voudrais retrouver les informations sur une personnes.
J'espere mettre bien expliqué.
merci beaucoup de votre aide
je voudrais faire une recherche multicritères, j'explique:
j'ai un tableau avec nom, prénom,date de debut,date de fin, n° identifiant et ce sur 31 jours du mois ( donc 31 pages).
A partir d'une autre page du même classeur, en tapant un de ses critères je voudrais retrouver les informations sur une personnes.
J'espere mettre bien expliqué.
merci beaucoup de votre aide
A voir également:
- Recherche multicritère
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Recherche image - Guide
- Je recherche une chanson - Guide
- Problème recherche de chaine tv thomson - Forum Téléviseurs
1 réponse
Bonjour,
vOCI UNE MACRO QUI DE PERMET DE FAIRE UNE RECHERCHE SUR TOUTES TES FEUILLES
Sub rechercher()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next
MsgBox "Texte non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End Sub
vOCI UNE MACRO QUI DE PERMET DE FAIRE UNE RECHERCHE SUR TOUTES TES FEUILLES
Sub rechercher()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next
MsgBox "Texte non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End Sub
