Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

A

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
Trier par date Trier par votes

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
Vote positif 0 Vote négatif
A

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.
 
Vote positif 0 Vote négatif

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
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
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
Vote positif 0 Vote négatif
A

album40

XLDnaute Nouveau
 

Pièces jointes

  • EXTRAIRE_PQ.xlsx 2.xlsx
    27.8 KB · Affichages: 4
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
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"
 
Dernière édition:
Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc
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....
 
Vote positif 0 Vote négatif
A

album40

XLDnaute Nouveau
chris à dit:
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....
Cliquez pour agrandir...
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
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
443
mapomme
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
540
vgendron
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
461
GClaire
G
A
  • Question
XL 2016 recherche de combinaisons sur plusieurs feuilles d'un classeur
2
Réponses
15
Affichages
1 K
mapomme
C
  • Question
XL 2016 Faire un tableau de nombres uniques puis associer des images aux cellules
Réponses
4
Affichages
453
DJunqueira
D
  • Résolu(e)
XL 2019 Récupération des valeurs d'une plage selon 3 critères
Réponses
4
Affichages
604
Patrick@221
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
801
PatFr38
P
  • Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
691
Phil69970
A
  • Question
XL 2019 Incrémenter une plage de cellules dans une formule lors d'une recopie.
Réponses
2
Affichages
794
Astyanax
A
K
  • Résolu(e)
XL 2013 Modifier noms de plage par lots
Réponses
6
Affichages
466
Kostrovit
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…