Stat sur un nombre présent dans les lignes

[JJ1]

Bonsoir à tous,
J'ai un fichier composé de nombres de 3 chiffres.
(ces nombres ont été concaténés à partir de 3 fichiers)
Je voudrais connaître le nombre (ou plusieurs, si ex-aequo) qui revient le plus souvent dans chaque ligne pour tout le fichier (dans mon exemple j'ai mis 3 lignes et le "222" est le nombre qui est le plus souvent présent).
Peut-on le faire par formule ou faut-il une macro, sachant que j'ai environ 1000 lignes.
Merci de votre aide.
Bonne soirée

 

[suistrop]

Re : Stat sur un nombre présent dans les lignes

salut,
j ai fais pour tous le fichier et non ligne par ligne

Sub cartman()
'ici on va mettre le nombre de fois que apparait telle ou telle chiffre
'exemple si 22 apparait 2 fois alors tab_all(222)=2
Dim tab_all(1000)
For i = 1 To Range("A65536").End(xlUp).Row
    For y = 1 To 20
        tab_all(Cells(i, y)) = tab_all(Cells(i, y)) + 1
    Next y
Next i

'ici on va chercher le max du tableau
For i = 0 To UBound(tab_all)
If Max < tab_all(i) Then Max = tab_all(i)
Next i
'donc max contient le nombre de fois qu apparaissenet les nombre les plus souvent
j = 2
For i = 0 To UBound(tab_all)
If tab_all(i) = Max Then
    Cells(j, 24) = i
    j = j + 1
End If
Next i
Cells(1, 24) = "les nombres qui apparaissent le plus souvent apparaisse " & Max & " fois et sont"
End Sub

 

[JJ1]

Re : Stat sur un nombre présent dans les lignes

Bonsoir Suistrop et merci pour ton code qui fonctionne très bien, je viens de le tester dans mon fichier.
Toutefois le résultat me pose un problème: imaginons que le 222 soit 1 fois dans chaque ligne (donc 1000 fois), il est le premier, par exemple.
Supposons que le 333 apparaisse 4 fois par ligne toutes les 4 lignes, je préférerais avoir le résultat du 333 que du 222 (pour avoir le max par ligne).
Je ne sais pas si je suis clair dans mon explication?
merci et bonne soirée

 

[suistrop]

Re : Stat sur un nombre présent dans les lignes

hello, et ceci??
Je trouve cela bizzard ce que tu veux faire ....

Sub cartman()
'ici on va mettre le nombre de fois que apparait telle ou telle chiffre
'exemple si 22 apparait 2 fois alors tab_all(222)=2
Dim tab_histo(1000)
For i = 1 To Range("A65536").End(xlUp).Row
ReDim tab_all(1000)
    For y = 1 To 20
        tab_all(Cells(i, y)) = tab_all(Cells(i, y)) + 1
    Next y
    'ici on va garder un historique par rapport a la ligne qu on vient de traiter
    
    For Z = 0 To UBound(tab_all)
        If tab_all(Z) > tab_histo(Z) Then tab_histo(Z) = tab_all(Z)
    Next Z
Next i

'ici on va chercher le max du tableau
For i = 0 To UBound(tab_all)
If Max < tab_histo(i) Then Max = tab_histo(i)
Next i
'donc max contient le nombre de fois qu apparaissenet les nombre les plus souvent
j = 2
For i = 0 To UBound(tab_histo)
If tab_histo(i) = Max Then
    Cells(j, 24) = i
    j = j + 1
End If
Next i
Cells(1, 24) = "les nombres qui apparaissent le plus souvent apparaisse " & Max & " fois et sont"
End Sub