répétition de nombres

[JJ1]

Bonsoir,
Je voudrais comptabiliser les répétitions de nombres dans une plage, non discontinues, par une ou plusieurs lignes où le nombre n'est pas présent.
Je joins un petit exemple avec 6 nombres.
merci de votre formule.
Bonne soirée à tous.

 

[pierrejean]

Re : répétition de nombres

bonjour JJ1

Vois si cela te convient

 

[JJ1]

Re : répétition de nombres

Bonsoir Pierrejean,
merci pour ta macro parfaite ( c'est fou la vitesse avec laquelle tu crées une macro....)
Je vais l'adapter à mon fichier, si j'ai un problème je reviendrai.
merci et bonne soirée

 

[Cousinhub]

Re : répétition de nombres

Bonsoir,

salut Pierre 🙂

j'ai eu du mal avec mon déambulateur, moi aussi......😀

une autre option :

code :

Sub Nbr()
Dim Cel As Range, Nombre As Object, Nbr As Integer
Dim DerLig As Long, DerLig2 As Long, I As Long
Dim DerCol As Byte
Set Nombre = CreateObject("Scripting.Dictionary")
DerLig = [C65000].End(xlUp).Row
DerCol = [IV1].End(xlToLeft).Column
If DerCol > 4 Then Range(Cells(1, 5), Cells(100, DerCol)).ClearContents
For Each Cel In Range("A2:C" & DerLig)
     If Not Nombre.Exists(Cel.Value) Then Nombre.Add Cel.Value, Cel.Value
Next Cel
With [E1].Resize(1, Nombre.Count)
    .Value = Nombre.items
    .Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
        Orientation:=xlLeftToRight
End With
For Each Cel In [E1].Resize(1, Nombre.Count)
    For I = 2 To DerLig
        DerLig2 = Cells(65000, Cel.Column).End(xlUp).Row + 1
        If Not IsError(Application.Match(Cel.Value, Rows(I), 0)) Then
            Nbr = Nbr + 1
        Else
            If Nbr > 1 Then
                Cells(DerLig2, Cel.Column).Value = Nbr
                Nbr = 0
            Else
                Nbr = 0
            End If
        End If
        If I = DerLig And Nbr > 1 Then Cells(DerLig2, Cel.Column).Value = Nbr
    Next I
    Nbr = 0
Next Cel
End Sub

le fichier :

 

[JJ1]

Re : répétition de nombres

Bonjour bhbh,pierrejean,
merci à vous deux pour ces macros.

peut-on rajouter en bas de tableau pour chaque nombre le nombre de fois où le numéro est présent par lignes?
nombre1: 1/2 par ex voudrait dire que le 1 est présent une ligne sur 2.
(ou absent si cela vous arrange?)
merci et bonne journée

 

[pierrejean]

Re : répétition de nombres

Re

Salut Hubert 🙂 (et a bientot)

@ JJ1

vois si cela convient

 

[JJ1]

Re : répétition de nombres

Bonjour PierreJean et merci pour ta modification, super!



ps: j'ai posté un sujet hier sur le comptage d'unités:
https://www.excel-downloads.com/threads/comptage-dunites-frequence.104541/
si tu as un moment pour y regarder car je n'ai pas de solution (sauf à passer par plusieurs formules intermédiaires) ?
merci
Bon AM