Calcul extremement long

soenda

XLDnaute Accro

• 8 Novembre 2009

• #2

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

 

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 8 Novembre 2009

• #3

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 8 Novembre 2009

• #4

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 8 Novembre 2009

• #5

Re : Calcul extremement long

Suite

Peut-on les triés ?

A plus

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 8 Novembre 2009

• #6

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

 

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 8 Novembre 2009

• #7

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

 

Pièces jointes

• exemple.xls

  29 KB · Affichages: 107
• exemple.xls

  29 KB · Affichages: 100
• exemple.xls

  29 KB · Affichages: 98

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 8 Novembre 2009

• #8

Re : Calcul extremement long

Re,

Un exemple quelque peu bourrin, en PJ

Rectifié, maintenant je trouve 33 😀.
Merci Jocelyn 🙂

A plus

 

Pièces jointes

• alcazone.xls

  23.5 KB · Affichages: 60
• alcazone.xls

  23.5 KB · Affichages: 58
• alcazone.xls

  23.5 KB · Affichages: 65

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Novembre 2009

• #9

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😉

 

Pièces jointes

• alcalzone.xls

  28 KB · Affichages: 71

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 8 Novembre 2009

• #10

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 8 Novembre 2009

• #11

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

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Novembre 2009

• #12

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

 

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 8 Novembre 2009

• #13

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2009

• #14

Re : Calcul extremement long

Bonsoir alcalzone, soenda, Jocelyn,

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

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2009

• #15

Re : Calcul extremement long

Re,

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

Code:

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+

 

Pièces jointes

• exemple(1).xls

  38 KB · Affichages: 65
• exemple(1).xls

  38 KB · Affichages: 65
• exemple(1).xls

  38 KB · Affichages: 66

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif