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]

Bonjour Ferbank,

D'où l'intérêt de bien tester les solutions, testez donc maintenant ce fichier (3) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recherche As Range, NC As Range, P As Range, Dates As Range, Complement As Range, R As Range, c 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
    Set R = P
Else
    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)
        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

A+

 

[Ferbank]

Je vous prie de bien vouloir m'excuser pour ce retard et vous remercie de votre patience.
J'essayais de modifier une macro alors que je n'y connais pas grand chose;
par comparaison avec d'anciennes versions.
Je ne consulte souvent mes fichiers que le jour du tirage loto, je suis prie par d'autres occupations .
mais merci encore d'avoir apporter cette modif qui fonctionne correctement.
Max