Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Compter le nombre de samedi sans les doublons

@

@Tech

XLDnaute Nouveau
Bonjour,

J’ai besoin de votre aide car cela fait deux jours que je cherche une solution…
J'ai une colonne de dates comme celle qui suit:

Colonne C
03/09/2020
04/09/2020
05/09/2020 Samedi (doublon)
05/09/2020 Samedi (doublon)
06/09/2020
07/09/2020
12/09/2020 Samedi
13/09/2020
14/09/2020

Comment compter le nombre samedi en ignorant les doublons?
J’ai plus de 200 000 lignes et je suis sur Excel 2013.

Avec la formule ci-dessous je compte le nombre de samedi total mais avec les doublons…
=SOMMEPROD((JOURSEM(C1:C10)=7)*1)

Vous savez comment je peux faire ?

Merci d'avance, et bon week-end !
 
Solution
Re,

Une version v2 de la fonction avec deux paramètres:
=CompterSamediUnique(Plage As Range, Optional annee)​
  • Plage est la zone des dates
  • annee est l'année concernée. Si annee est omis, alors on examine toutes les dates sans considération d'année.


Le code de la fonction :
VB: 
Function CompterSamediUnique(Plage As Range, Optional annee)
Dim dico, xcell, t, i&, AN
   Application.ScreenUpdating = False
   AN = IIf(IsMissing(annee), "*", annee)
   Set dico = CreateObject("scripting.dictionary")
   t = Plage.Value
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then If IsDate(t(i, 1)) Then If Year(t(i, 1))...
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Tech, bienvenue sur XLD ,
Bonjour @njhub

Pour 200 000 lignes de dates, je pense qu'une fonction personnalisée est plus rapide.
La fonction dans la cellule F2:
VB: 
=CompterSamediUnique1(C2:C200001)

Cliquez sur le bouton bleu pour initialiser 200 000 lignes de dates.

Le code de la fonction est dans module1:
VB: 
Function CompterSamediUnique1(Plage As Range) As Long
Dim dico, xcell
   Set dico = CreateObject("scripting.dictionary")
   For Each xcell In Plage
      If xcell <> "" Then If IsDate(xcell) Then If Weekday(xcell) = 7 Then dico(CStr(xcell)) = ""
   Next xcell
   CompterSamediUnique1 = dico.Count
End Function
 

Pièces jointes

  • @Tech- Samedi Uniq- v1a.xlsm
    19.8 KB · Affichages: 21
Dernière édition:
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,
Une version plus rapide.
Code de la fonction:
VB: 
Function CompterSamediUnique1(Plage As Range) As Long
Dim dico, xcell, t, i&
   Application.ScreenUpdating = False
   Set dico = CreateObject("scripting.dictionary")
   t = Plage.Value
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then If IsDate(t(i, 1)) Then If Weekday(t(i, 1)) = 7 Then dico(CStr(t(i, 1))) = ""
   Next i
   CompterSamediUnique1 = dico.Count
End Function
 

Pièces jointes

  • @Tech- Samedi Uniq- v1b.xlsm
    20.5 KB · Affichages: 9
Vote positif 0 Vote négatif
@

@Tech

XLDnaute Nouveau
Bonjour à tous,

Merci pour votre réactivité et votre temps...

J'ai essayé avec la solution de njhub, cela fonctionne, mais c'est un peu lent...
La solution de mapomme fonctionne très bien et est beaucoup plus rapide...

Aussi, J'ai une autre question pour mapomme!
Serait il possible de filtrer l'année?
Ex:
Cellule F2 pour 2018
Cellule F3 pour 2019
Cellule F3 pour 2020

Merci d'avance pour votre patience
 
Dernière édition:
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Une version v2 de la fonction avec deux paramètres:
=CompterSamediUnique(Plage As Range, Optional annee)​
  • Plage est la zone des dates
  • annee est l'année concernée. Si annee est omis, alors on examine toutes les dates sans considération d'année.


Le code de la fonction :
VB: 
Function CompterSamediUnique(Plage As Range, Optional annee)
Dim dico, xcell, t, i&, AN
   Application.ScreenUpdating = False
   AN = IIf(IsMissing(annee), "*", annee)
   Set dico = CreateObject("scripting.dictionary")
   t = Plage.Value
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then If IsDate(t(i, 1)) Then If Year(t(i, 1)) Like AN Then If Weekday(t(i, 1)) = 7 Then dico(CStr(t(i, 1))) = ""
   Next i
   CompterSamediUnique = dico.Count
End Function
 

Pièces jointes

  • @Tech- Samedi Uniq- v2.xlsm
    20.2 KB · Affichages: 7
Vote positif 0 Vote négatif
Solution
@

@Tech

XLDnaute Nouveau
Re mapomme,

Super ! votre code est juste parfait !

J'ai déjà eu l’occasion de faire un peu de vba sur 2 ou 3 fichiers... mais là je suis perdu...

High Level votre niveau

En tout cas, mille merci pour votre aide
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2013 Recherche d'occurrence sous des conditions
Réponses
3
Affichages
538
chaelie2015
K
  • Question
XL 2013 Rang / classement selon 2 critères (nom et date)
Réponses
13
Affichages
1 K
kawi99
K
  • Question
XL 2019 Calculer la somme de plusieurs dates personnalisés (00A00M17J)
Réponses
10
Affichages
537
HE_RA
X
  • Résolu(e)
Microsoft 365 Formule calcul taux de service
2
Réponses
20
Affichages
773
xls_62
X
A
  • Question
XL 2016 Problème Arrangements des Nombres avec EXCEL
2 3
Réponses
33
Affichages
2 K
aurelio.ewane
A
A
  • Question
XL 2016 Permutations des nombres sur EXCEL VBA
Réponses
12
Affichages
919
Dranreb
B
  • Résolu(e)
Microsoft 365 Trouver date début et fin de période sans interruption
2
Réponses
20
Affichages
2 K
bb78
B
C
  • Question
Microsoft 365 Compter le nombre de cellules remplies dans une colonne avec un critère dans une autre colonne
Réponses
2
Affichages
901
njhub
N
F
  • Question
XL 2019 Compter le nbr de cellule non vide, mais sans les doublons
Réponses
8
Affichages
673
xUpsilon
D
  • Question
Microsoft 365 Nombre d’occurrences sur une suite de noms
Réponses
0
Affichages
847
DavidMM
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…