Nombre de fois cités

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Nombre de fois cités

Bonjour,

Essaie avec ce code :

Code:
Sub nombre()
Dim Cel As Range
Dim Nbr As Object
Set Nbr = CreateObject("Scripting.Dictionary")
For Each Cel In Range("E7").CurrentRegion
    Nbr.Item(Cel.Value) = Nbr.Item(Cel.Value) + 1
Next Cel
Columns("A:B").Clear
Range("A1").Value = "Nombre": Range("B1").Value = "Nbr Répétition"
Range("A2").Resize(Nbr.Count) = Application.Transpose(Nbr.Keys)
Range("B2").Resize(Nbr.Count) = Application.Transpose(Nbr.Items)
Range("A1:B" & Nbr.Count + 1).Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range( _
        "A2"), Order2:=xlAscending, Header:=xlYes
End Sub

Bonne soirée
 
Re : Nombre de fois cités

Re,

C'est le nom de ton tableau
Plage nommée (Insertion – Nom Définir dansExcel 2003. Insertion – Définir un nom dans Excel 2007)
Ou bien sélectionner le tableau et saisir le nom choisi dans la zone "Nom", à gauche de la barre de formule.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
395
Réponses
6
Affichages
323
Réponses
18
Affichages
607
Réponses
6
Affichages
197
Réponses
2
Affichages
242
  • Question Question
Réponses
13
Affichages
443
Réponses
11
Affichages
248
Retour