Macro de comptages de ligne.

[JJ1]

Bonjour à tous,
J'ai mon fichier Excel avec des formules (sommeprod+fréquence) qui demandent beaucoup de temps de reclacul à chaque modification.
Je souhaiterais une macro pour les remplacer:

J'ai une Feuil2 avec un tableau de 16 colonnes avec des 0 ou des 1 selon que le nombre en en-tête (1 à 16) de la colonne est présent(1) ou non (0).
(j'ai mis 100 lignes de AO à BD100 en exemple de présentation)

En Feuil3, je souhaiterais une macro qui compte, en face de chaque combinaison possible ( notées en col A à D):
- le nombre total de chaque combinaison dans la plage AO-BD100 Feuil2
- les 5 lignes où se rencontre chaque combinaison en partant du haut du tableau (donc en descendant)(ex: 1 2 3 4 se trouve en ligne 3, puis 5, puis 10, puis 20 et enfin 50)
(ps: c'est un exemple)
Ces lignes me permettront de faire une moyenne.
Je vous remercie de votre aide
Bon vendredi à tous.

 

[Minick]

Re : Macro de comptages de ligne.

Salut,

J'ai du mal a saisir ce que tu veux...

Peux-tu ajouter dans ton fichier exemple le resultat souhaite pour quelques combinaisons?

++
Minick

 

[job75]

Re : Macro de comptages de ligne.

Bonjour JJ1, Minick,

Je ne comprends pas le tableau Feuil2 :

- comment a-t-il été créé ?
- comment le lire ?
- comment l'utiliser dans le problème posé ?

A+

 

[JJ1]

Re : Macro de comptages de ligne.

Bonjour Job75, Minick,
La feuil2 a été revue après lecture de vos réponses: j'ai tout mis sur la même feuille avec les nombres à partir de la colonne A (qui remplace le tableau de 0 et de 1).
je joins le nouveau fichier qui annule le précédent.
merci
Bon AM

 

[JJ1]

Re : Macro de comptages de ligne.

voici le fichier:

 

[job75]

Re : Macro de comptages de ligne.

Re,

Pas plus clair JJ1...

Edit : c'est moi qui suis bouché (perturbé par l'ancien tableau Feuil2)... Bebere grâce à toi j'ai compris, merci.

A+

 

[Bebere]

Re : Macro de comptages de ligne.

bonjour à tous
une 1ère proposition
à bientôt

 

[JJ1]

Re : Macro de comptages de ligne.

Re bonsoir et merci pour ce premier fichier.
Je renvoie un fichier exemple avec 20 lignes et une combinaison en exemple (rouge)
Si une ligne contient plus de 4 nombres, il y autant de combinaisons concernées (et comptées) que de permutations avec ces numéros:
ex: si sur une ligne, il y a 2 4 5 8 9
il y aura +1 à :
2 4 5 8
2 4 5 9
4 5 8 9
2 5 8 9
par exemple et l'écart en tiendra compte.
Merci, je sais que ce n'est pas évident et facile.
Bonne soirée

 

[Bebere]

Re : Macro de comptages de ligne.

bonsoir
une nouvelle proposition
à bientôt

 

[bqtr]

Re : Macro de comptages de ligne.

Bonsoir à tous,

Une autre façon : (un chouilla plus rapide)

Public Sub Compte()
Dim TabDonne, TabCombin
Dim Cpt As Integer, z As Byte, x As Long, y As Long, m As Byte
Dim TCombin As Long, TabNumLign(), n As Integer
Application.ScreenUpdating = False
Feuil1.Activate
TabDonne = Range("A1:G" & Range("A65536").End(xlUp).Row)
TabCombin = Range("T2:W" & Range("T65536").End(xlUp).Row)
Range("X2:AC" & Range("X65536").End(xlUp).Row).ClearContents
For x = 1 To UBound(TabCombin, 1)
  For y = 1 To UBound(TabDonne, 1)
    For z = 1 To UBound(TabCombin, 2)
      For m = 1 To UBound(TabDonne, 2)
        If TabCombin(x, z) = TabDonne(y, m) Then Cpt = Cpt + 1
      Next m
    Next z
    If Cpt = 4 Then
       ReDim Preserve TabNumLign(n)
       TCombin = TCombin + 1
       TabNumLign(n) = y
       n = n + 1
    End If
    Cpt = 0
  Next y
  On Error Resume Next
  Cells(x + 1, 24) = TCombin
  Cells(x + 1, 25).Resize(, UBound(TabNumLign) + 1) = TabNumLign()
  n = 0
  TCombin = 0
  Erase TabNumLign
Next x
Application.ScreenUpdating = True
End Sub

A+

 

[JJ1]

Re : Macro de comptages de ligne.

Bonjour et merci beaucoup pour ce travail de macro, elle fonctionne parfaitement et vite. La macro de Bebère fonctionne auusi mais stoppe après la combinaison qui commence par 1.
Encore merci et bon WE