XL 2016 VBA : trouver doublons, triplons, quadruplons, etc...

[Phillip]

Bonjour,

je ne trouve pas sur le net ce qui peut correspondre à mon besoin.

J'ai une série de variables (Une vingtaine) calculée dans une macro, et je voudrais savoir s'il y en a une (ou plusieurs!) qui apparait 5 fois (et laquelle !), 4 fois et lesquelles, 3 fois, 2 fois....

la formule Nb.si compte bien les occurences dans une plage, mais il faut déjà savoir ce que l'on cherche, et je veux de toutes façons l'intégrer dans ma macro.

J'ai tenté un array comme dans le code suivant, mais il ne trouve pas la deuxième occurence, et comment faire pour plus de 20 ou 30 variables ?

Sub nbsi()

VarA = A
VarB = B
VarC = C
VarD = D
VarE = A


Mon_Tableau = Array(0,VarA, VarB, VarC, VarD, VarE)
For i = LBound(Mon_Tableau) To UBound(Mon_Tableau)
    If i = A Then
    totalA = totalA + 1
    End If
Next i

End Sub

J'ai fixé VarA, VarB, etc...dans le code exemple pour simplifier, mais dans mon code réel je ne connais pas à l'avance leur valeur, puisque ce sont des....variables !

Des idées ?

Merci

Cordialement

Phillip

 

[laurent950]

Re,
j'ai corrigé le code en Poste #26

 

[Phillip]

Alors cette

fois-ci ça me met bien chapitre1, 2,3 mais les données sont identiques

 

[laurent950]

Re,
C'est Normal car :
Les variables ne sont pas modifier dans le Tableau en Chapitre 2 et Chapitre 3, Donc résultats identiques c'est normal.
Explication ? : En chapitre 2
- archint cela correspond a qu'elle Poste ? le résultat de cette variable
- LeDon cela correspond a qu'elle Poste ? le résultat de cette variable
- Ect.

 

[Phillip]

Je regarde et vous redis...Merci !