XL 2016 Retrouver les valeurs d'une plage de cellule avec des critères prédéfinis

[album40]

Bonsoir le forum
J'ai un code VBA que j'utilise pour retrouver les 3 premiers numéros de la cellule ("B3:F3") dans la plage de cellule ("B9:F31)
J'aimerais modifier ce code de la sorte que son fonctionnement respecte certaines conditions mais je n'arrive pas à trouver la solution.
J'aimerais qu'on m'aide à trouver la solution.
Voici les conditions que je souhaite avoir

1) Avoir la possibilité de lancer la recherche des cinq numéros de la plage ("B3:F3")

2) Pour la recherche des valeurs ("B3:F3") j'opte ce choix :

Valeurs ("B3:F3") = Valeurs ("B9:K9") c'est à dire la recherche 26 donne 26
Valeurs ("B3:F3") = Valeurs ("B9:K9") +1 c'est à dire la recherche 26 donne 27
Valeurs ("B3:F3") = Valeurs ("B9:K9") -1 c'est à dire la recherche 26 donne 25

Bref lorsque je lance la recherche la valeur

3) la copie des valeurs trouvées

A partir de 3 valeurs (ou plus) trouvées sur une ligne de la plage ("B9:F31") , copier et coller la plage trouvée
dans la plage ("I9:M31)

NB : Ne pas tenir compte d'une ou deux valeurs trouvées

 

[chris]

Bonjour

Une solution PowerQuery, intégré à Excel, sans VBA qui recherche les tirages comportant au moins 3 des numéros sélectionnés

Pour l'instant je n'ai pas cherché les proches (+1 ou -1)

Acualiser par Données, Actualiser Tout

 

[album40]

Bonjour Chris
Déjà merci pour votre réponse, comme expliqué plus haut, j'ai déjà un code dans ma feuille, j'aimerais qu'on modifie ce code afin de pouvoir répondre à mes besoins.
Merci

 

[chris]

RE

Je te proposais une solution plus efficace qu'une boucle VBA, tu n'en veux pas, tant pis...

 

[album40]

Je veux bien Chris, l'essentiel c'est de pouvoir l'adapter à mes besoins, peux tu m'expliquer comment se fait la manipulation à chaque recherche, ensuite si tu peux m'apporter une solution pour les proches (+1 ou -1) ce serai bien pour moi.

 

[chris]

RE

Tu modifie tes nombres en jaunes puis, comme déjà indiqué, Données, Actualiser Tout

Tu peux voir la requête en ouvrant PowerQuery (sur 2016, Données, Afficher les requêtes, clic droit sur Tirages, Modifier

Version avec les proches +-1

 

[mapomme]

Bonsoir @album40, @chris ,

Une version par VBA.

• indiquez dans la cellule J3, le nombre minimal de correspondance
• cliquez sur le bouton Hop!

Le code est dans module1.

Sub tirage()
Dim NbrIdentic&, derlig&, xval, t1, t2, i&, j&, n&
   Application.ScreenUpdating = False
   NbrIdentic = Range("j3")
   Range("i9").Resize(Rows.Count - 8, 7).Clear
   derlig = Cells(Rows.Count, "a").End(xlUp).Row
   Range("a9:f" & derlig).Copy Range("i9")
   For Each xval In Range("b3:f3").Value: Range("i9:n" & derlig).Replace xval, "#N/A", lookat:=xlWhole: Next
   t1 = Range("a9:f" & derlig)
   t2 = Range("i9:n" & derlig)
   For i = 1 To UBound(t2)
      t2(i, 1) = 0: For j = 2 To 6: t2(i, 1) = t2(i, 1) - IsError(t2(i, j)): Next
      If t2(i, 1) >= NbrIdentic Then: n = n + 1: For j = 1 To 6: t2(n, j) = t1(i, j): Next
   Next i
   Range("i9").Resize(Rows.Count - 8, 7).Clear
   If n = 0 Then Exit Sub
   Range("i9:n9").Resize(n) = t2
   Range("j9:n9").Resize(n).Borders.LineStyle = xlContinuous
   Range("i9:n9").Resize(n).HorizontalAlignment = xlCenter
End Sub

 

[album40]

RE

Tu modifie tes nombres en jaunes puis, comme déjà indiqué, Données, Actualiser Tout

Tu peux voir la requête en ouvrant PowerQuery (sur 2016, Données, Afficher les requêtes, clic droit sur Tirages, Modifier

Version avec les proc

RE

Tu modifie tes nombres en jaunes puis, comme déjà indiqué, Données, Actualiser Tout

Tu peux voir la requête en ouvrant PowerQuery (sur 2016, Données, Afficher les requêtes, clic droit sur Tirages, Modifier

Version avec les proches +-1

Je viens d'essayer, ça fonctionne comme j'ai demandé', j'aimerais savoir s'il est possible de lancer simultanément deux recherches sur une feuille comportant 2 tableaux. comme indiqué sur la feuille jointe

 

[album40]

J'oubliais surtout pour des tableaux comportant au moins 6000 lignes
Merci d'avance

 

[mapomme]

Re,

Personnellement, je n'ai absolument rien compris à la demande avec les +1 ou -1 . Et pourtant il parait que: "Ce que l'on conçoit bien s’énonce clairement, et les mots pour le dire arrivent aisément"

 

[album40]

Bonsoir @mapomme
Merci pour votre aide
au fait ma demande avec les +1 ou -1
veut dire par exemple : si j'ai en B3 le nombre 25 ma recherche doit me permettre de sélectionner 25 ou à défaut de trouver 24 ou 26

 

[chris]

RE

Le nombre de tirages dans le tableau importe peu : c'est géré

Par contre il ne suffit pas de dupliquer une requête pour qu'elle traite un autre tableau de tirages et d'autres nombres choisis....

 

[album40]

RE

Le nombre de tirages dans le tableau importe peu : c'est géré

Par contre il ne suffit pas de dupliquer une requête pour qu'elle traite un autre tableau de tirages et d'autres nombres choisis....

j'avais demandé s'il est possible de lancer simultanément deux recherches sur une feuille comportant 2 tableaux. comme indiqué sur la feuille jointe

 

[mapomme]

Re,

Une version avec ce que j'ai compris des -1 et/ou +1 .

 

[chris]

Bonjour à tous

j'avais demandé s'il est possible de lancer simultanément deux recherches sur une feuille comportant 2 tableaux.

Tu l'as écrit à l'intérieur d'une citation de mon message et comme je ne relis pas mes citations... c'était peu visible