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

album40

XLDnaute Nouveau
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
 

Pièces jointes

  • EXTRAIRE B.xlsm
    17.3 KB · Affichages: 9

chris

XLDnaute Barbatruc
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
 

Pièces jointes

  • EXTRAIRE_PQ.xlsm
    28.2 KB · Affichages: 6

album40

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • EXTRAIRE_PQ.xlsx
    21.5 KB · Affichages: 4

mapomme

XLDnaute Barbatruc
Supporter XLD
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.
VB:
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
 

Pièces jointes

  • album40-EXTRAIRE- v1.xlsm
    20.6 KB · Affichages: 6

album40

XLDnaute Nouveau
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
 

Pièces jointes

  • EXTRAIRE_PQ.xlsx 2.xlsx
    27.8 KB · Affichages: 4

album40

XLDnaute Nouveau
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
 

Pièces jointes

  • EXTRAIRE_PQ.xlsx 2 (1).xlsx
    27.8 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal