recherche combinaisons

[paskikic]

Slt les Xlnautes

comme d hab je fais appel a vous car mon cerveaux n est pas bien develloppé

je vous expliquer je cherche a retrouver les combinaisons suivant un tableau et des choix par categories

mon fichier sera plus explicite que moi


merci a vous.

 

[ROGER2327]

Re : recherche combinaisons

Bonjour paskikic.

En W18 :​

=ET(SOMME(NB.SI($C$4:$F$4;Q18:U18))=$C$3;
    SOMME(NB.SI($G$4:$J$4;Q18:U18))=$G$3;
    SOMME(NB.SI($K$4:$O$4;Q18:U18))=$K$3;
    SOMME(NB.SI($P$4:$Z$4;Q18:U18))=$P$3)

Valider par Ctrl Maj Entrée pui recopier vers le bas.​

Bonne nuit.


ℝOGER2327
#7209

Vendredi 27 Pédale 141 (Saint Valens, frère onirique - fête Suprême Tierce)
1[SUP]er[/SUP] Germinal An CCXXII, 0,7329h - primevère
2014-W12-5T01:45:32Z

 

[paskikic]

Re : recherche combinaisons

Slt et merci ROGER2327

mais a tout hasard tu naura pas la meme chose mais en vbA car j ai environ 1000 lignes et si je met des formule de calcul mon fichie va etre trop lourd encore merci

 

[ROGER2327]

Re : recherche combinaisons

Re...

Slt et merci ROGER2327

mais a tout hasard tu naura pas la meme chose mais en vbA car j ai environ 1000 lignes et si je met des formule de calcul mon fichie va etre trop lourd encore merci

C'eut été facile de le dire dès le début : j'aurais évité de perdre mon temps à rédiger une solution par formule. Mais le temps des bénévoles, c'est gratos. Pourquoi s'en priver ?

Essayez ceci :​

Sub toto()
Dim i&, j&, k&, tf As Boolean, a, na&, rf(), dt(), s() As Boolean

'==== À adapter =====================================================
rf = [REF].Value 'Dans votre exemple : [REF]=Feuil1!$C$3:$Z$4
dt = [DAT].Value 'Dans votre exemple : [DAT]=Feuil1!$Q$18:$U$30
'====================================================================

  ReDim s(1 To UBound(dt, 1), 0)
  For i = 1 To UBound(dt, 1)
    tf = True
    For k = UBound(rf, 2) To 1 Step -1
      a = rf(2, k)
      For j = 1 To UBound(dt, 2)
        If dt(i, j) = a Then na = na + 1
      Next
      If Not IsEmpty(rf(1, k)) Then
        tf = tf And na = rf(1, k)
        na = 0
      End If
    Next
    s(i, 0) = tf
  Next

'==== À adapter en fonction de l'emplacement des résultats===========
With [DAT]: .Offset(, 2).Columns(.Columns.Count).Value = s: End With
'====================================================================

End Sub

ℝOGER2327
#7215

Vendredi 27 Pédale 141 (Saint Valens, frère onirique - fête Suprême Tierce)
1[SUP]er[/SUP] Germinal An CCXXII, 7,6460h - primevère
2014-W12-5T18:21:01Z

 

[paskikic]

Re : recherche combinaisons

merci roger dsle pour cette perte de temps mais je croyait l avoir mis das mon exemple. et encore mille merci

 

[ROGER2327]

Re : recherche combinaisons

Re...

merci roger dsle pour cette perte de temps mais je croyait l avoir mis das mon exemple. et encore mille merci

Ce n'est pas grave ; si ça marche, tout va bien...​

Bonne nuit.


ℝOGER2327
#7216

Vendredi 27 Pédale 141 (Saint Valens, frère onirique - fête Suprême Tierce)
1[SUP]er[/SUP] Germinal An CCXXII, 8,6112h - primevère
2014-W12-5T20:40:01Z

 

[paskikic]

Re : recherche combinaisons

merci roger Dsl pour cette perte de temps mais je croyait l avoir mis das mon exemple. et encore mille merci

 

[mapomme]

Re : recherche combinaisons

Bonjour à tous 🙂

Désolé, m'a trompé de fil 😡