Couplés
bonjour le forum
je recherche une formule ou un code pour macro qui me sortirait les couplés de la BdD.
merci
Bonsoir,
Demande n'est pas claire, tu peux donner plus d'explications ???
@ +
bonsoir r@chid,le forum
le but c'est sortir les couplés avec le nombre de fois qu'ils sont sortis ensemble,j'ai mis une formule en col O mais comme je ne suis pas doué en formule elle ne donne rien.
merci
a+
Bonsoir,
Par formules ça va être un peu compliqué...
il faut extraire d'abord toutes les combinaisons disponibles dans le tableau, puis compter le nombre d'apparition de chacune.
Mais un peut être un VBAiste va passer par la pour te faire une macro
@ +
Bonjour,
R@chid a écrit :Par formules ça va être un peu compliqué...
Compliqué mais pas impossible :
=SOMME(FREQUENCE(SI($A$2:$E$51=O2;LIGNE($A$2:$E$51));LIGNE($A$2:$E$51))*FREQUENCE(SI($A$2:$E$51=P2;LIGNE($A$2:$E$51));LIGNE($A$2:$E$51)))matricielle, à valider par Ctrl+Maj+Entrée.
A+
Bonsoir,
Compliqué mais pas impossible
Oui, je parle de l'extraction de tous les couplés qui existent dans la plage avant de passer au calcul du nombre de d'apparition de chacun dans la plage...
Sauf s'il va les taper manuellement
@ +
bonjour Banzai64,R@chid,OOoiste,le forum
excusez le retard merci pour vos réponses.
je prend le code de Banzai qui est beaucoup plus rapide que la formule,par contre Banzai j'aimerais savoir ou se trouve le code de la verificatio en colK29 et L29,il n'interesse pour ailleurs.
De plus le code des couplés je voudrais l'adapter ailleurs pour le Keno mais la basede données n'est pas sur la meme feuille,y a t-il quelque chose a changer
merci
Bonjour
jad73 a écrit :j'aimerais savoir ou se trouve le code de la verificatio en colK29 et L29
Il n'y a pas de code juste une Mise En Forme Conditionnelle
jad73 a écrit :la basede données n'est pas sur la meme feuille
Vois cette version 2
Il faut juste nommer la feuille des données
bonjour banzai,le forum
j'essaie d'adapter ton code au keno mais j'ai un message "erreur d'execution'9' l'indice n'appartient pas a la selection et c'est laligne
"Tablo(3, indice) = Tablo(3, indice)+1" qui est surlignée en bleu
et je ne sais pas quoi faire.
merci
Sub couplés()
'
' couplés Macro
'
'
Dim J As Long, K As Long, L As Long
Dim NbLg As Long
Dim Tablo
Dim Indice As Long
Dim LeMini As Long, LeMaxi As Long
ReDim Tablo(1 To 3, 1 To WorksheetFunction.Combin(70, 2))
For J = 1 To 70
For K = J + 1 To 70
Indice = Indice + 1
Tablo(1, Indice) = J
Tablo(2, Indice) = K
Next K
Next J
With Sheets("Feuil1")
For J = 2 To .Range("C" & Rows.Count).End(xlUp).Row
For K = 1 To 19
For L = K + 1 To 20
LeMini = Application.Min(.Cells(J, K), .Cells(J, L))
LeMaxi = Application.Max(.Cells(J, K), .Cells(J, L))
' Formule compliquée pour trouver le bon élément
Indice = ((70 * (LeMini - 1))) + 1 - ((((LeMini - 1) + 1) * (LeMini - 1) / 2)) + (LeMaxi - LeMini - 1)
Tablo(3, Indice) = Tablo(3, Indice) + 1
Next L
Next K
Next J
End With
Range("A2").Resize(UBound(Tablo, 2), 3) = Application.Transpose(Tablo)
Range("S1").Select
End Sub
Bonjour
Il faudrait ton fichier
peut-être est ce la formule pour trouver Indice qui n'est pas bonne
Mais comme cela je ne sais pas