XL 2013 (RESOLU)Nombre de cellule non vide et sans doublon

chaelie2015

XLDnaute Accro
Bonjour Forum
Je cherche une formule qui calcule nombre de cellule NonVide et sans doublon
j'ai pas la fonction UNIQUE dans cette version)
comme ce code
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim uniqueValues As Collection
    Dim countUnique As Integer
    
    ' Spécifie la feuille de calcul et la colonne à analyser
    Set ws = ThisWorkbook.Sheets("Feuil1") ' Remplace "NomDeTaFeuille" par le nom de ta feuille
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' Initialise une collection pour stocker les valeurs uniques
    Set uniqueValues = New Collection
    
    ' Parcours chaque cellule dans la plage
    On Error Resume Next
    For Each cell In rng
        If cell.Value <> "" Then
            uniqueValues.Add cell.Value, CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' Compte les valeurs uniques
    countUnique = uniqueValues.Count
  
    
    ' Affiche le résultat
    MsgBox "Nombre de cellules non vides et uniques sans doublon : " & countUnique, vbInformation, "Résultat"
End Sub
Merci
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
254
Réponses
0
Affichages
220

Statistiques des forums

Discussions
313 224
Messages
2 096 338
Membres
106 572
dernier inscrit
JM04082023!