Probleme formule nbdif

gilbert_RGI

XLDnaute Barbatruc

• 26 Janvier 2016

• #2

Re : Probleme formule nbdif

Bonjour,

il est où le fichier ???

😎

 

Vote positif 0 Vote négatif

C

cocktail

XLDnaute Occasionnel

• 26 Janvier 2016

• #3

Re : Probleme formule nbdif

Le fichier fait 1.80mo il passe pas :-(

 

Vote positif 0 Vote négatif

A

Alza

XLDnaute Junior

• 26 Janvier 2016

• #4

Re : Probleme formule nbdif

Bonjour,
Zip ? Ou héberge sur Accueil de Cjoint.com

Alza'

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 26 Janvier 2016

• #5

Re : Probleme formule nbdif

Bonjour

cette fonction d'un membre de ce forum ne compte pas les cellules vides

Function NbDoublon(Plage As Range)
Dim V As New Collection, c As Range
Application.Volatile (True)
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Plage
If c <> "" Then V.Add c.Value, CStr([c])
Next c
On Error GoTo 0
NbDoublon = V.Count
End Function

Cordialement

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Janvier 2016

• #6

Re : Probleme formule nbdif

cocktail à dit:

Le fichier fait 1.80mo il passe pas :-(

Cliquez pour agrandir...

il y a peut-être possibilité de faire juste un exemple avec cette fonction

 

Vote positif 0 Vote négatif

C

cocktail

XLDnaute Occasionnel

• 26 Janvier 2016

• #7

Re : Probleme formule nbdif

arf, je suis bloqué par mon proxy et la requête ne marche pas :-(

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Janvier 2016

• #8

Re : Probleme formule nbdif

Bonjour à tous.

Une autre fonction :​

Code:

'|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|
'|Ajouter la référence à la bibliothèque Microsoft Scripting Runtime (scrrun.dll) au projet !|
'|___________________________________________________________________________________________|

Function nbValDiff&(r As Range, Optional CompareOption%)
Dim i&, j&, v, d As New Scripting.Dictionary
  v = r.Value
  d.CompareMode = CompareOption
  If VarType(v) > vbArray Then
    For i = 1 To UBound(v, 1): For j = 1 To UBound(v, 2): d(v(i, j)) = 1 + d(v(i, j)): Next j, i
  Else
    d(v) = 1 + d(v)
  End If
  nbValDiff = d.Count + d.Exists(Empty)
End Function

Mode d'emploi :

• =nbValDiff(A1:A30) ou =nbValDiff(A1:A30;0) renvoie le nombre de valeurs distinctes dans la plage A1:A30 en excluant les cellules vides. La fonction distingue la casse.
• =nbValDiff(A1:A30;1)renvoie le nombre de valeurs distinctes dans la plage A1:A30 en excluant les cellules vides. La fonction ignore la casse.

ℝOGER2327
#8189

Lundi 2 Gueules 143 (Saint Sigisbée, eunuque - fête Suprême Quarte)
7 Pluviôse An CCXXIV, 6,1282h - amadouvier
2016-W04-3T14:42:27Z

 

Vote positif 0 Vote négatif

C

cocktail

XLDnaute Occasionnel

• 30 Janvier 2016

• #9

Re : Probleme formule nbdif

Merci Roger pour ta propositiin et Merci à tous pour votre tentatvive d'aide mais malheureusement ca ne marche pas, peut-être et sans doute quelque chose que je fais mal.

Dommage que l'on soit limité à 200k pour l'envoi d'un fichier :-(


bonne journée à tous.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 30 Janvier 2016

• #10

Re : Probleme formule nbdif

Pour info il y a Accueil de Cjoint.com

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Janvier 2016

• #11

Re : Probleme formule nbdif

Bonjour.

peut-être et sans doute quelque chose que je fais mal.

Cliquez pour agrandir...

Avez vous observé et suivi le commentaire bien encadré en tête du code de ROGER2327 ? Sinon ça vous fait une erreur de compilation "Type défini par l'utilisateur non défini".

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 31 Janvier 2016

• #12

Re : Probleme formule nbdif

Re...

cocktail à dit:

Merci Roger pour ta propositiin et Merci à tous pour votre tentatvive d'aide mais malheureusement ca ne marche pas, peut-être et sans doute quelque chose que je fais mal.
(...)

Cliquez pour agrandir...

Peut-être...​

ℝOGER2327
#8192

Vendredi 6 Gueules 143 (Sainte Touche, postulante - fête Suprême Quarte)
11 Pluviôse An CCXXIV, 0,2087h - éllébore
2016-W04-7T00:30:03Z

 

Pièces jointes

• Comptage de valeurs.xlsm

  20.3 KB · Affichages: 53

Vote positif 0 Vote négatif

C

cocktail

XLDnaute Occasionnel

• 30 Avril 2016

• #13

Re : Probleme formule nbdif

Super Roger, ca semble marcher

Merci pour ton aide et merci à tous pour le partage de vos compétences

Il est extra ce forum

bon we à tous

 

Vote positif 0 Vote négatif