XL 2019 formule nb.si.ens

[Ferbank]

Bonjour je n'arrive pas à valider une formule de recherche voir mon exemple du tableau joint .
Ce tableau est extrait d'un tableau plus complet avec une macro;
la macro n'est pas active dans ce fich
Merci de modifier ma formule et voir l'erreur ou j'ai fauté.
Ferbank

 

[JHA]

Bonjour à tous,

Pas sur de tout comprendre ton raisonnement.

JHA

 

[Ferbank]

Bonsoir et merci pour la réponse je m'explique:
Je recherche parmi les 10 étoiles rangées en lignes exemple ligne à partir de la colonne O3 tous les N° sortis depuis la recherche du bloc D3 H19 associés aux N° de l'étoile 1 puis 2 puis 3 de la ligne 2 O

 

[Backhandshot]

Bonsoir à tous !
Ferbank, voici ton fichier vois si cela te convient si j'ai bien compris ta demande
Bonne nuit !

 

[Ferbank]

Bonjour; hélas je ne suis pas chez moi et mon portable ne possède pas la version excel 2019 je ne peux pas ouvrir les fich.xlsm avec ce Pc.
Je verrai ça demain soir .
Merci encore

 

[Ferbank]

Re bonjour je viens de convertir le fich, en effet ça fonctionne bien sur l'exemple .
La conversion ne fait pas apparaitre les formules ; es ce du fait du convertisseur ou volontaire de votre part?
Je m'explique, j'ai recharge le bloc de donnes des tirages depuis l'origine et j'aurais souhaiter faire appliquer les formules depuis l'origine des tirages.
merci

 

[Backhandshot]

Bonjour à tous !
Ferbank, il n'y a pas de formules je l'ai fait avec un petit code VBA
Si vous voulez utiliser la formule NB.SI.ENS il faudra changer la structure des tirages
ce qui serait plus gourmand en ressources aussi. J'ai apporté 2 modifications sur le fichier

Bonne journée !

 

[Ferbank]

Bonsoir merci pour la macro
j'ai réajusté le bloc de recherche avec tous les tirages depuis 2008; la macro ne me donne pas les bons résultats par rapport à la liste ci jointe dans le fichier.
Merci j'essaie de comprendre la macro.
Est il possible d'incorporer cette macro dans mon fichier qui comprend déjà une macro de recherche.
Je devrais simplement réécrire la macro avec les bonnes colonnes n'es ce pas?

 

[Ferbank]

Re:
est il possible d'enregistrer le fichier en compatible avec le vieux Excel 1997 que je possède sur ce micro je ne suis pas chez moi.
Merci

 

[Backhandshot]

Bonjour à tous !
Ferbank, voici ton fichier de retour
Le nombre de sorties ne correspond pas avec le nombre de la feuille2 que vous avez fourni ça sera à vérifier qui a le bon nombre de sorties...mais je crois que le nombre de sorties est erroné sur la feuille 2...
Bonne continuation & bonne journée !

 

[Ferbank]

Bonjour à tous !
Ferbank, voici ton fichier de retour
Le nombre de sorties ne correspond pas avec le nombre de la feuille2 que vous avez fourni ça sera à vérifier qui a le bon nombre de sorties...mais je crois que le nombre de sorties est erroné sur la feuille 2...
Bonne continuation & bonne journée !

Re çà fonctionne bien et correspond à mon fich réf.
Maintenant je vais l'intégrer à mon tableau mais les ref des cellules et colonnes ne correspondra pas exactement je modifierai si possible .
Merci

 

[mapomme]

Bonsoir @Ferbank 🙂 , @Backhandshot 🙂 ,

Si j'ai bien compris... Une autre méthode plus rapide.

Le principe ;
On construit directement le tableau résultat res dimensionné à 49 lignes (les 49 numéros possibles du loto) et à 10 colonnes (correspondant aux valeurs 1 à 10 de la colonne I).

On boucle sur l'ensemble des valeurs des colonnes D à H.
Pour une valeur (pour exemple la valeur 31 de la cellule E4), on incrémentera l'élément de res à la ligne 31 et à la colonne correspondant à la valeur de cellule I4 (soit 9).
On a donc un adressage direct entre valeur lue et élément du tableau res à incrémenter.
Comme on le fait sur des tableaux en mémoire, la méthode est très rapide.

Cliquer sur le bouton Hop!

Le code dans le module de Feuil1:

Sub Compter()
Dim res(1 To 49, 1 To 10), t, i&, j&
   t = Range("d2:i" & Cells(Rows.Count, "i").End(xlUp).Row)
   For i = 1 To UBound(t): For j = 1 To 5
      res(t(i, j), t(i, 6)) = res(t(i, j), t(i, 6)) + 1
   Next j, i
   Range("o2").Resize(49, 10) = res
End Sub

 

[Ferbank]

Bonsoir; ha oui c'est super rapide, alors comment vais je l'intégrer à mon tableau?
Faut il faire une copie macro ou une importation macro?
J'ai en col AH:AQ la mise en forme manuelle comment insérer cette macro?
Ce fich comprend déjà une macro de recherche performante.
je vous remercie sincèrement de votre aide

 

[micheldu52]

Bonsoir,
Je me suis "amusé" à reprendre ton idée de nb.si.ens
voila une possibilité sans VBA.
Bonne soirée!
Michel

 

[Ferbank]

Bonsoir,
Je me suis "amusé" à reprendre ton idée de nb.si.ens
voila une possibilité sans VBA.
Bonne soirée!
Michel

Merci mais je ne peux pas ouvrir les fich xlsx essayez de l'enregistrer en Excel 97.
merci