XL 2019 Equivalent de sommeprod

Rabeto · 8 Janvier 2024

Bonjour,

Bonne et heureuse année 2024 à tous, vous souhaitant à tous du bonheur et surtout santé

j'ai besoin de votre aide svp, j'utilise ce formule pour compter le nombre de valeur distinct dans la colonne M hors les vides, sauf que la formule a rendu mon fichier très lourd et lorsque j'exécute un macro assez simple ne serais ce que effacer des données, l'exécution du macro a pris bcp de temps que d'habitude et ce depuis que j'ai commencé à utiliser cette formule.

SOMMEPROD(1/(NB.SI(M:M;M:M)+(M:M=0)))-NB.VIDE(M:M)

Est ce que vous connaissez une autre méthode svp,

merci d'avance

mapomme · 8 Janvier 2024

Re,

Une fonction sans doute un peu plus rapide pour de vastes plages :

VB:

Function NbrUnique&(plage As Range)
Dim xrgReduite As Range, xrg As Range, xrgSpecials As Range, collec As New Collection, xtype, xarea, x
   On Error Resume Next
   Set xrgReduite = Intersect(plage.Parent.UsedRange, plage)
   If xrgReduite Is Nothing Then On Error GoTo 0: Exit Function
   For Each xtype In Array(xlCellTypeFormulas, xlCellTypeConstants)
      Set xrgSpecials = xrgReduite.SpecialCells(xtype, 23)
      For Each x In xrgSpecials
         If Not IsError(x) Then If x <> "" Then collec.Add vbNullString, LCase(x)
      Next x
   Next xtype
   On Error GoTo 0
   NbrUnique = collec.Count
End Function

JHA · 8 Janvier 2024

Bonjour à tous,

Au lieu d'utiliser des colonnes entières, ne peux-tu pas nommer une plage dynamique sur la colonne "M"?

JHA

xUpsilon · 8 Janvier 2024

Bonjour,

Belle année à toi également,
Sous Excel 2019 il va être difficile de faire mieux je pense. On pourrait toujours restreindre la plage par contre, je suppose que tu n'utilises pas les 1048576 lignes de la colonne M ?

Bonne journée,

PS : Bonjour JHA

Rabeto · 8 Janvier 2024

xUpsilon à dit:
je suppose que tu n'utilises pas les 1048576 lignes de la colonne M ?

Si
le nombre de ligne change tout le temps chaque fois que j'actualise les données,
Pour éviter de changer tout le temps le nombre de ligne, je sélectionne la colonne entière

Rabeto · 8 Janvier 2024

JHA à dit:
Bonjour à tous,

Au lieu d'utiliser des colonnes entières, ne peux-tu pas nommer une plage dynamique sur la colonne "M"?

JHA

hello JHA

C'est à dire, donner un nom à la colonne et utiliser le nom de la colonne à la place de M:M ?

Cousinhub · 8 Janvier 2024

Bonsoir,
Et passant en mode de calcul manuel en début de macro, et retour en auto à la suite?
+ Un Screenupdating à false, qui ne fait jamais de mal
Peut-être?

TooFatBoy · 8 Janvier 2024

Bonjour,

Rabeto à dit:
C'est à dire, donner un nom à la colonne et utiliser le nom de la colonne à la place de M:M ?

Non. Il serait plutôt question ici d'utiliser seulement le nombre nécessaire de lignes, par exemple en utilisant un Tableau Structuré.

mapomme · 8 Janvier 2024

Bonsoir à tous ,

Sinon une fonction, VBA très rapide utilisable sur PC et Mac : NbrUnique(plage)
Cette fonction accepte une plage à plusieurs colonnes.
Exemple d'utilisation : = NbrUnique(M:M) ou = NbrUnique(M:P) ou = NbrUnique(M10:P9999)

Le code de la fonction :

VB:

Function NbrUnique(plage As Range)
Dim xrg As Range, collec As New Collection, x
   On Error Resume Next
   Set xrg = Intersect(plage.Parent.UsedRange, plage)
   For Each x In xrg.Value
      If x <> "" Then collec.Add vbNullString, LCase(x)
   Next x
   On Error GoTo 0
   NbrUnique = collec.Count
End Function

JHA · 8 Janvier 2024

Bonjour à tous,

Un exemple ci joint

JHA

Modeste geedee · 8 Janvier 2024

Rabeto à dit:
Bonjour,

Bonne et heureuse année 2024 à tous, vous souhaitant à tous du bonheur et surtout santé

j'ai besoin de votre aide svp, j'utilise ce formule pour compter le nombre de valeur distinct dans la colonne M hors les vides, sauf que la formule a rendu mon fichier très lourd et lorsque j'exécute un macro assez simple ne serais ce que effacer des données, l'exécution du macro a pris bcp de temps que d'habitude et ce depuis que j'ai commencé à utiliser cette formule.

SOMMEPROD(1/(NB.SI(M:M;M:M)+(M:M=0)))-NB.VIDE(M:M)

Est ce que vous connaissez une autre méthode svp,

merci d'avance

Bonsour®
=SOMMEPROD(1/(NB.SI(MaplageM;MaplageM)+(MaplageM=0)))-NB.VIDE(MaplageM)
définir un nom dynamique pour la plage

OUPSS !!!
Bonjour Dunkirk...
Pas rafraîchi

mapomme · 8 Janvier 2024

Re,

Une fonction sans doute un peu plus rapide pour de vastes plages :

VB:

Function NbrUnique&(plage As Range)
Dim xrgReduite As Range, xrg As Range, xrgSpecials As Range, collec As New Collection, xtype, xarea, x
   On Error Resume Next
   Set xrgReduite = Intersect(plage.Parent.UsedRange, plage)
   If xrgReduite Is Nothing Then On Error GoTo 0: Exit Function
   For Each xtype In Array(xlCellTypeFormulas, xlCellTypeConstants)
      Set xrgSpecials = xrgReduite.SpecialCells(xtype, 23)
      For Each x In xrgSpecials
         If Not IsError(x) Then If x <> "" Then collec.Add vbNullString, LCase(x)
      Next x
   Next xtype
   On Error GoTo 0
   NbrUnique = collec.Count
End Function

CISCO · 8 Janvier 2024

Modeste geedee à dit:
Bonsour®
=SOMMEPROD(1/(NB.SI(MaplageM;MaplageM)+(MaplageM=0)))-NB.VIDE(MaplageM)
définir un nom dynamique pour la plage

OUPSS !!!
Bonjour Dunkirk...
Pas rafraîchi

Bonsoir à tous, bonsoir Modeeste geedee.

Est-ce que cela ne serait pas mieux avec un EQUIV(9^9;$M:$M;1) plutôt qu'avec un NBVAL, si la colonne M contient des nombres ?

@ plus

Modeste geedee · 9 Janvier 2024

CISCO à dit:
Bonsoir à tous, bonsoir Modeeste geedee.

Est-ce que cela ne serait pas mieux avec un EQUIV(9^9;$M:$M;1) plutôt qu'avec un NBVAL, si la colonne M contient des nombres ?

@ plus

Bonsour®
Oui tout à fait
en l'absence de fichier , savoir comment est organisée et le contenu de la colonne M (vide, formule, texte, valeur num) ???
NB compte les valeurs numériques ?
NBVAL compte les valeurs alphanumériques non vide ?
dernière ligne renseignée ???

Rabeto · 9 Janvier 2024

mapomme à dit:

Re,

Une fonction sans doute un peu plus rapide pour de vastes plages :

VB:

Function NbrUnique&(plage As Range)
Dim xrgReduite As Range, xrg As Range, xrgSpecials As Range, collec As New Collection, xtype, xarea, x
   On Error Resume Next
   Set xrgReduite = Intersect(plage.Parent.UsedRange, plage)
   If xrgReduite Is Nothing Then On Error GoTo 0: Exit Function
   For Each xtype In Array(xlCellTypeFormulas, xlCellTypeConstants)
      Set xrgSpecials = xrgReduite.SpecialCells(xtype, 23)
      For Each x In xrgSpecials
         If Not IsError(x) Then If x <> "" Then collec.Add vbNullString, LCase(x)
      Next x
   Next xtype
   On Error GoTo 0
   NbrUnique = collec.Count
End Function

Merci à tous pour votre contribution,
j'ai pris la réponse de mapomme comme étant la solution,

XL 2019 Equivalent de sommeprod

Rabeto

XLDnaute Occasionnel

mapomme

JHA

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

Rabeto

XLDnaute Occasionnel

Rabeto

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Rabeto

XLDnaute Occasionnel

Discussions similaires