XL 2019 formule de recherche Excel .

[Ferbank]

Bonjour; je postes ci dessous 2 fichiers dont, un fichier témoin, recherche des séries de 3 numéros qui fonctionne bien.
Un autre fichier identique " Ferbank_V4B_ STAT_4n°" une recherche approfondie des séries de 4 numéros qui foire et ne répond pas aux résultats attendus. j'ai repris l'exemple du fichier témoin et je me suis planté...
Si quelqu'un a une idée pour corriger mes erreurs ou trouver une autre solution je l'en remercie par avance...
Ferbank

 

[Ferbank]

Merci les compagnons je viens de voir le fichier il fonctionne parfaitement chez moi je vous en remercie grandement je vais mettre le fichier à jour des derniers tirages et faire le même fichier avec l'euromillon
voulez vous que je le présente en ligne?
merci
Ferbank

 

[Ferbank]

Bonjour j'ai modifié le fichier en insérant les dates et résultats de l'euromillon mais ça bugue au débogage de la macro pourquoi?
Ci dessous le lien du fichier depuis le site WETransfert .
Ferbank

EURO_STATS_du_JOUR_3_4_n°_Fevrier23.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

 

[TooFatBoy]

TooFatBoy, j'ai fait une macro avec l'enregistreur de macro pour la MFC parce que le programme supprime tout à partir de la colonne "I : XFD" pour remettre en place la MFC

Merci, mais la MFC n'a aucune raison d'être si la macro fonctionne correctement.

La MFC n'était là que pour mettre en évidence les cellules qui contiennent du texte au lieu de contenir une date.

Je n'avais pas remarqué au départ, mais les cellules qui contenaient bien une date étaient en fait aussi erronées (elles ne contenaient pas la bonne date).
Mais normalement les deux macros sont corrigées.

 

[Ferbank]

Merci les compagnons je viens de voir le fichier il fonctionne parfaitement chez moi je vous en remercie grandement je vais mettre le fichier à jour des derniers tirages et faire le même fichier avec l'euromillon
voulez vous que je le présente en ligne?
merci
Ferbank

 

[Ferbank]

RE bonsoir j'ai posté plus haut le fichier avec les dates et tirages de l'euromillon mais il ne fonctionne pas!
Quand je lance la recherche sur les triplets il s'arrête dans une de débogage erreur 21 et il plante!
Le fichier est ci dessous poste à 9h 54
ferbank

 

[TooFatBoy]

Pb en A939 et A1225, et A1603 à A2243.

 

[Ferbank]

Pb en A939 et A1225, et A1603 à A2243.

 

[Ferbank]

ok mais maintenant il est complètement farfelu dans les résultats.
les dates sont erronées

le lien de téléchargement ci dessous

EURO_STATS_du_JOUR_3_4_n°_Fevrier23_V2.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

 

[TooFatBoy]

ok mais maintenant il est complètement farfelu dans les résultats.
les dates sont erronées

Les numéros ne sont pas triés dans ton tableau de tirages. 😉

Essaye d'activer le tri dans la macro.

 

[TooFatBoy]

En activant le tri dans les macros, il y a quand même une petite erreur, aussi bien pour les triplets que pour les quadruplets (une date doublée).

Il faudra voir avec l'auteur de la macro pour obtenir une correction, ou au moins une explication.

 

[Ferbank]

@Ferbank : en pièce jointe, une version qui (chez moi) affiche les dates correctement.

@Ferbank : en pièce jointe, une version qui (chez moi) affiche les dates correctement.

Bonjour,
TooFatBoy, j'ai fait une macro avec l'enregistreur de macro pour la MFC parce que le programme supprime tout à partir de la colonne "I : XFD" pour remettre en place la MFC

Sub Macro1()
    Range("M2:T18425").FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(M2<>"""";ESTNUM(M2)=FAUX)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599963377788629
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Bonne journée!

Bonjour: depuis une copie du fichier Loto, j'ai voulu copier la colonne des dates et résultats de l'euromillon sans modifier le reste à partir de la ligne 2A et 2B.
Il y a un problème de débogage.
J n'y arrive pas !
Peut être que ma copie de la colonne 2B des résultats non classés est fautif?

 

[Ferbank]

Merci les compagnons je viens de voir le fichier il fonctionne parfaitement chez moi je vous en remercie grandement je vais mettre le fichier à jour des derniers tirages et faire le même fichier avec l'euromillon
voulez vous que je le présente en ligne?
merci
Ferbank

Bonjour j'ai remis dans le fil le fichier STAT euromillon pour l'anomalie que je n'arrive pas à modifier.
1 er Fichier modifie avec les dates et résultats euromillon

Ici je mets en ligne un exemple totalement indépendant pour une formule de classement en ligne par tirage.
2 ieme fichier exemple de classement en ligne des resultats

sur les colonnes de C à G il y a les tirages bruts de sortie de la FDJ .
il ne faut surtout pas faire un tri par colonne sous peine de modifier les tirages eux même!
Je n'y arrive pas à faire ce classement en respectant les tirage des 5 n° par ligne
Merci si vous pouviez m'aider!!
Ferbank

 

[TooFatBoy]

Dans la macro le tri change l'ordre des numéros des tirages.
C'est un problème pour toi ?

 

[Ferbank]

Dans la macro le tri change l'ordre des numéros des tirages.
C'est un problème pour toi ?

oui j'ai cherche sur le net comment réorganiser les numéros des tirages par ordre croissant et par ligne, je n'ai pas trouvé de formules concluantes

 

[Backhandshot]

Bonjour à tous !
Ferbank, pourquoi chercher sur le net quand vous avez la solution dans le fichier ???

'---- Tri des lignes du tableau
    ReDim Vtmp(1 To DerCol - 1)    'Tableau tempo
    ' Boucle sur chaque ligne du tirage pour remplir V pour le tri
    For i = 1 To DerLig
        ' Boucle sur les colonnes du tirage
        For j = 2 To DerCol
            Vtmp(j - 1) = Vals(i, j)
        Next j
        ' Tri de V
        Qsort Vtmp, 1, DerCol - 1
        ' On remplace les valeurs non triées par les valeurs triées
        For j = 2 To DerCol
            Vals(i, j) = Vtmp(j - 1)
        Next j
    Next i
    ' Écriture du tableau trié sur la feuille
    xrg.Value = Vals

Bonne journée !