Autres Formule excel version 2007

[Ferbank]

Bonjour;
je suis à la recherche d'une formule simple pour rechercher dans un fichier excel des données suivantes!
Exemple un listing de tirage loto; numéros des tirages sorti par ligne donc 1 ligne et 6 colonnes .
Comment rechercher un série de numéros ex 27 44 46 ou plus simple 8 12 dans une ligne et reporter ces résultats dans une cellule précise?

je joins le fichier peut on positionner la formule en zone z 16
merci

Je pense que c'est simple pour vous, moi je patine pour cette formule
Cordialement à vous tous Fairbank

 

[job75]

Bonsoir Ferbank, bienvenue sur XLD,

Il faudrait sur votre fichier donner un exemple clair montrant ce que vous cherchez et le ou les résultats à obtenir.

Pour l'instant votre fichier c'est la pagaille.

A+

 

[Ferbank]

Bonsoir et merci pour votre réponse:
Mon message me paraissait assez clair pourtant;
je recherche la formule permettant de trouver une série de numéro dans une liste de tirage.
J indique ou écrire la formule soit en cellule Z 11!!
Pour le reste ne pas en tenir compte. merci

 

[Ferbank]

Suite message ci dessus:
Par exemple depuis les colonnes E et I trouver une série de numéro exemple 7 17 48 ou autre
et préciser dans une autre colonne et même ligne les résultats.

 

[job75]

Bon avant d'aller dormir voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recherche As Range, P As Range, c As Range, Q As Range, R As Range
Set Recherche = [T11:Y11]
Set P = [E:J]
If Intersect(Target, Recherche) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Recherche.Offset(1).Resize(Rows.Count - Recherche.Row).Delete xlUp 'RAZ
For Each c In Recherche
    If c <> "" Then
        P.Replace c, "#N/A", xlWhole
        Set Q = Nothing
        Set Q = P.SpecialCells(xlCellTypeConstants, 16)
        If Q Is Nothing Then Exit Sub
        Q = c
        Set Q = Intersect(Q.EntireRow, P)
        If R Is Nothing Then Set R = Q Else Set R = Intersect(Q, R)
        If R Is Nothing Then Exit Sub
    End If
Next
'---résultat---
R.Copy Recherche(2, 1)
End Sub

Entrez les nombres à rechercher dans la plage T11:Y11, la macro se déclenche automatiquement.

Bonne nuit.

 

[Ferbank]

merci mais je suis nul en programmation !
Comment et où ouvrir par le clic droit (clic droit sur l'onglet et Visualiser le code) :

 

[Ferbank]

Ok je vois le résultat de la recherche, mais pas de référence de la ligne du résultat pour la date.
Merci tout de même de la patience

 

[job75]

On ne vous demande pas de programmer, juste de comprendre un peu.

Le clic droit sur l'onglet "Feuil1" ouvre une liste, cliquez sur Visualiser le code, vous voyez alors la macro.

Pour ce qui est du résultat je vous ai demandé au post #2 d'indiquer ce que vous voulez obtenir mais vous n'avez rien fait.

 

[Ferbank]

C'est super, va falloir aller dormir, mais comment transporter cette macro dans mon fichier original?
Je peux faire un copier coller, peut être
Ca y est je vois la macro, ne pourrait on pas faire la même chose en formule excel?

 

[job75]

Oui, vous placerez la macro au bon endroit par copier-coller.

Une solution par formules me paraît très difficile, voire impossible.

Pour terminer ce fichier (2) restitue les dates, la macro complétée :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recherche As Range, P As Range, Dates As Range, c As Range, Q As Range, R As Range
Set Recherche = [T11:Y11]
Set P = [E:J]
Set Dates = [D:D]
If Intersect(Target, Recherche) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Recherche.Offset(1).Resize(Rows.Count - Recherche.Row, Recherche.Columns.Count + 1).Delete xlUp 'RAZ
For Each c In Recherche
    If c <> "" Then
        P.Replace c, "#N/A", xlWhole
        Set Q = Nothing
        Set Q = P.SpecialCells(xlCellTypeConstants, 16)
        If Q Is Nothing Then Exit Sub
        Q = c
        Set Q = Intersect(Q.EntireRow, P)
        If R Is Nothing Then Set R = Q Else Set R = Intersect(Q, R)
        If R Is Nothing Then Exit Sub
    End If
Next
'---résultat---
R.Copy Recherche(2, 1)
Intersect(R.EntireRow, Dates).Copy Recherche(2, Recherche.Columns.Count + 1)
End Sub

 

[patricktoulon]

bonjour
perso pur une recherche multicritère par vba je me sert d'une formule simple avec evaluate

exemple

Sub Macro4()
'récuperation de l'index de ligne dans le sheets correspondant au criteres en colonnes "A.B.C"
    criteres = Array("""truc""", """machin""", """chose""")    'criteres a retenir dans le meme ordre que les colonnes
    ColonS = Array("A2:A9", "B2:B9", "C2:C9")    ' colonne a observer pour les criteres dans le meme ordre
    feuille = "Feuil1"    'nom de la feuille
    MsgBox Evaluate("=MATCH(1,(" & feuille & "!" & ColonS(0) & "=" & criteres(0) & ")*(" & feuille & "!" & ColonS(1) & "=" & criteres(1) & ")*(" & feuille & "!" & ColonS(2) & "=" & criteres(2) & "),0)") + Range(ColonS(1)).Row - 1
Debug.Print "=MATCH(1,(" & feuille & "!" & ColonS(0) & "=" & criteres(0) & ")*(" & feuille & "!" & ColonS(1) & "=" & criteres(1) & ")*(" & feuille & "!" & ColonS(2) & "=" & criteres(2) & "),0)" ' + Range(ColonS(1)).Row - 1
End Sub

tu met cela dans une boucle pour rechercher plusieur serie
a adapter
ps: si c'est des numeric pas besoins des doubles guillemets
l'array serait

criteres = Array(218, 345, 500)    'criteres a retenir dans le meme ordre que les colonnes

 

[Ferbank]

Bonjour patriktoulon
Merci pour cet essai mais je n'y comprend rien ; comment l'appliquer sur ma feuille ?
J'ai bien copié la macro et execution mais elle me signale une erreur d'execution ligne 13 incompatibilité de type!
Es ce bien comme cela que je dois enregistrer la macro et l'executer ou y a t il d'autre solutions?

 

[Ferbank]

Merci à job75 qui m'a donné la bonne solution je l'ai copié dans macro et je l'execute .
Est elle applicable sur une autre feuille, même principe, mais avec des dispositions de données différente?
si oui ou non comment modifier les lignes de commande dans cette macro?

 

[Ferbank]

Bonjour à vous je fais une copie d'ecran pour signaler l'anomalie dans la macro en jaune

 

[Ferbank]

M.....
bonjour je suis dans la mouise la macro de job75 fonctionnait hier et pas ce matin j'ai fait une copie d'ecran
vous voyez où ca pêche??