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

 

[Modeste geedee]

Bonsour®

merci mais je suis nul en programmation !

tout en formules, sans macro, sans matricielles
préciser en Z1:ae1 les numéros à trouver
en AG1 le nombre minimum requis
la formule en z12 est à recopier jusque AE2000
(attention aux $)

 

[job75]

Bonjour Ferbank, patricktoulon, Modeste geedee,

Oui, je disais qu'une solution par formules est très difficile, ce n'est pas vrai.

Voyez ce fichier (3) qui utilise la colonne auxiliaire T avec en T12 la formule :

=SOMMEPROD(NB.SI(E12:J12;V$11:AA$11))=NB(V$11:AA$11)

Le tableau des résultats en V12:AB21 utilise des formules matricielles comme celle en V12 :

=SI(LIGNES(V$12:V12)>NB.SI($T$12:$T$2000;VRAI);"";INDEX(E$12:E$2000;PETITE.VALEUR(SI($T$12:$T$2000;LIGNE($T$12:$T$2000)-11);LIGNES(V$12:V12))))

A valider par Ctrl+Maj+Entrée et à tirer à droite et vers le bas.

Si le tableau source s'agrandit, adapter la limite 2000 des plages.

Bonne journée.

 

[Ferbank]

Merci à vous tous pour votre aide je vais maintenant exploiter les formules et faire chauffer Intel!!!!!

 

[job75]

Ah oui mais pour que mes formules du post #17 fonctionnent correctement il ne faut pas de doublons sur une ligne de la plage E:J.

Dans mon fichier (3) il y a des doublons pour les dates 31/05/2017, 27/05/2017, 30/07/2014 etc...

Avec la solution VBA les doublons ne posent pas de problème.

 

[Ferbank]

Merci j'ai vu le doublon alors qu'il a ignoré le chiffre 8 dans l’exécution de la formule pour la date du 31/05/2017.
par contre pour éviter ceci il ne faut pas prendre en compte le numéro complémentaire soit la colonne J dans la formule.
Merci c'est formidable.....

 

[job75]

Je n'ai jamais joué au loto mais j'aurais pensé que le numéro complémentaire devait être différent des 5 autres numéros.

 

[Ferbank]

Bonjour un an après je joue toujours avec cette formule c'est formidable et je vous en remercie; mais je n'ai toujours pas gagné au loto!
Comment concevoir avec la même macro la possibilité de recherche seulement par le n° complémentaire la colonne -j- en rouge j'ai trafiqué la macro mais en vain, elle fonctionne quand même pour les n° du tirage.
Voici mon fich excel
https://www.cjoint.com/c/JLkscVsQCKv

 

[job75]

Bonsoir Ferbank,

Puisque la recherche se fait sur les 5 colonnes E:I j'ai réduit la zone Recherche à T11:X11 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recherche As Range, P As Range, Dates As Range, Complement As Range, c As Range, Q As Range, R As Range
Set Recherche = [T11:X11]
Set P = [E:I]
Set Dates = [D:D]
Set Complement = [J: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, 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, Complement).Copy Recherche(2, Recherche.Columns.Count + 1)
Intersect(R.EntireRow, Dates).Copy Recherche(2, Recherche.Columns.Count + 2)
End Sub

Les numéros complémentaires sont restitués de la même manière que les dates.

A+

 

[Ferbank]

Merci je l'avais modifié en ce sens; mais je rechercher seulement un résultat par le numéro compl sans tenir compte des num du tirage.
Donc la recherche devra se faire par lla colo-j-

 

[Ferbank]

Par exemple je veux savoir combien de fois est sorti le n° compl de 1 à 10 avec tourjours les dates du tirage

 

[Ferbank]

Dans le dernier fic Loto (1) ci dessus la modif n'est pas executée c'est à dire recherche seulement par le numéro complémentaire de 1 à 10.
De plus il n'efface pas les dates à la fin de recherche il faut faire une autre demande de recherche mais c'est pas grave du tout.
Merci de votre patience

 

[job75]

Voyez ce fichier (2) et la macro complétée :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recherche As Range, NC As Range, P As Range, Dates As Range, Complement As Range, c As Range, R As Range, Q As Range
Set Recherche = [T11:X11]
Set NC = [Y11] 'recherche du numéro complémentaire
Set P = [E:I]
Set Dates = [D:D]
Set Complement = [J:J]
If Intersect(Target, Union(Recherche, NC)) 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 + 2).Delete xlUp 'RAZ
If NC <> "" Then
    Complement.Replace NC, "#N/A", xlWhole
    Set R = Complement.SpecialCells(xlCellTypeConstants, 16)
    If R Is Nothing Then Exit Sub
    R = NC
    Set R = Intersect(R.EntireRow, P)
End If
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)
    End If
Next
'---résultat---
R.Copy Recherche(2, 1)
Intersect(R.EntireRow, Complement).Copy NC(2)
Intersect(R.EntireRow, Dates).Copy NC(2, 2)
End Sub

 

[Ferbank]

Ha super merci celle ci fonctionne bien je vais essayer de comprendre la macro par rapport à la dernière . Mais c'est super merci Max

 

[job75]

Bonjour Ferbank, le forum,

Dans la macro précédente j'ai rendu plus logique le traitement de NC.

A+

 

[Ferbank]

Je reviens vers vous la veille de Noël, pour un petit prob dans la dernière version de la macro . si je fais une recherche par 1 ou 2 ou 3 ou 4 N° la réponse est bonne mais avec 5 N° elle fausse .
elle retourne la valeur pour 1 n°.
Il est rare d'avoir un double triple tirage identique.
La colonne X n'est pas bonne je n'arrive pas à corriger la macro.
Merci sivous aviez le temps de voir
Max