Calcul extremement long

[alcalzone]

Bonsoir à tous,

Je sollicite une fois de plus votre aide.
J'utilise la formule =SOMMEPROD((1/NB.SI(Série;Série)))
qui permet de compter le nombre de N° de série différents dans une colonne.
Tout se passe bien quand j'ai une centaine de ligne.
Par contre, cas général, j'ai environ 30000 lignes.
Dans ce cas, le temps de calcul passe à 15 minutes.
Le problème c'est que j'utilise cette formule 17 fois dans la même feuille.
Le temps de calcul dépasse alors 1 heure.

N'y aurait-il pas une formule plus rapide??

Merci d'avance de votre aide

 

[soenda]

Re : Calcul extremement long

Bonsoir le fil, alcazone

Comment sont constitués les n° de séries ?
- des lettres et des chiffres
- Que des chiffres. (Quel est le min et le max ?)
- ...

A plus

 

[alcalzone]

Re : Calcul extremement long

Bonsoir soenda,

Merci de te pencher sur mon problème.
Les N° de série sont au format texte et peuvent être composés de chiffre et de lettres

 

[soenda]

Re : Calcul extremement long

Re

Ca complique un peu le problème.

Ont-ils tous la même longueur ?
peut-on avoir un n° exemple, pour que l'on puisse se faire une idée ?

A plus

 

[soenda]

Re : Calcul extremement long

Suite

Peut-on les triés ?

A plus

 

[soenda]

Re : Calcul extremement long

Re,

L'Algo auquel je pense est le suivant

On trie les Numéros, puis

Pour chaque Numéro
Si num_précédent <> Num_suivant Alors Total = Total + 1

Afficher Total

Qu'en penses-tu ?

A plus

 

[alcalzone]

Re : Calcul extremement long

Par défaut, ils sont triés par ordre alpha numériques et sont composés de 3 à 15 caractères
Je mets un exemple qui ne sera pas représentatif sur la durée de calcul

 

[soenda]

Re : Calcul extremement long

Re,

Un exemple quelque peu bourrin, en PJ

Rectifié, maintenant je trouve 33 .
Merci Jocelyn

A plus

 

[Jocelyn]

Re : Calcul extremement long

Bonjour le Forum,
Bonjour alcalzone, soenda,

une solution avec colonne intermédiaire mais attention si tes données ne sont triées elle ne fonctionnera pas.

la colonne supplementaire est la B en suite dans une cellule une simple somme(B:B)

Jocelyn

Edit : je trouve Bien 33 mais ton 32 est normal Soendapuisque la première valeur (-2103) est comptée 0 par ta formule

 

[alcalzone]

Re : Calcul extremement long

Merci de vos réponses Jocelyn, soenda,

Au départ, j'avais utilisé cette méthode mais elle alourdie le fichier qui fait déjà 20MO.
Je ne sais pas s'il y a un moyen de faire ce calcul sans rajouter de colonne et qui se calcule relativement rapidement.

Le problème n'est vraiment pas évident

 

[soenda]

Re : Calcul extremement long

Re,

A priori, je vois 2 solutions

1 - L'orsque l'on a le résultat on efface la colonne intermédiaire
2 - On programme une macro

A plus

 

[Jocelyn]

Re : Calcul extremement long

re,

Sans colonnes intermédiaire la seule solution formule matricielle et la problème de temps elles son tres gourmande et SOMMEPROD est une formule matricielle

autre solution mais la je ne sais pas faire les macro

Jocelyn

 

[alcalzone]

Re : Calcul extremement long

Bien vu soenda,
En voilà une bonne idée qui répond à mes besoins.
rapide et peu gourmand en place.
Je vais le tester dès maintenant

Encore merci

 

[job75]

Re : Calcul extremement long

Bonsoir alcalzone, soenda, Jocelyn,

Cette macro est très simple et très rapide :

Sub Compte()
Dim d As Object, cel As Range
Set d = CreateObject("Scripting.Dictionary")
For Each cel In [Série]
If Not d.Exists(cel.Value) Then d.Add cel.Value, CStr(cel)
Next
MsgBox d.Count 'nombre d'items différents
End Sub

A+

 

[job75]

Re : Calcul extremement long

Re,

On peut aussi utiliser une fonction macro, c'est peut-être plus simple à utiliser :

Function CPT(plage As Range) As Long
Dim d As Object, cel As Range
Set d = CreateObject("Scripting.Dictionary")
For Each cel In plage
If Not d.Exists(cel.Value) Then d.Add cel.Value, CStr(cel)
Next
CPT = d.Count 'nombre d'items différents
End Function

A+