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

Collection

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion J-Charles
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

J-Charles

XLDnaute Occasionnel
Bonjour à tous,
J'ai un petit problème à vous soumettre. J'ai une plage de cellules dans lesquelles se trouvent des codes de 4 chiffres au format texte. J'aimerais pouvoir déterminer pour chaque code, le nombre de fois où il est répété dans cette plage.
J'ai essayé d'utiliser une collection mais dans ce cas les codes sont rentrés de manière unique.
Est ce qu'un bon samaritain aurait une idée à me proposer ? je vous remercie d'avance
 
Trier par date Trier par votes
Re : Collection

rebonjour tous; que dire de plus avec les explications de JB que je salue énormement au passage
pour repondre d'abord a JB

en terme de rapidité que pense tu qu'on utiliser directement

Code: 
Set m = New Dictionary

a la place de

Code: 
Set m = CreateObject("Scripting.Dictionary")

puis

Code: 
Dim m As Dictionary, i As Long
 Set m = New Dictionary
t = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(t)
'ect..

bien sur cela nous oblige de d'activer la réference

Code: 
microsoft Scripting.Dictionary

éventuellement on peut le faire par vba

Code: 
Sub es()
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
End Sub

en rapidité j'ai l'impression que c'est plus rapide vu mes faibles connaissances
je voudrais bien avoir ton avis

por repondre a david84

en régle génerale les fonctions excel sont plus rapide que les fonctions vba
tu es sur la bonne voie!!!

pour pierre jean que dit la ligne
Code: 
m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
si m.Exists(c.Value on ajoute autrement on reste a 1
attention quand méme a l'instruction IIf les 2 conditions sont systematiquement teste cela peut avoir des effets pervers de la peut être gerer les erreurs possibles
par
Code: 
On Error Resume Next
'le plus simple mais surtout pas le meilleur
le mieux
Code: 
On Error GoTo 0

que rajouter de plus quand je vois Pierrejean 9000 posts quel investissement !!!pas jeune en plus
comme dirait mon papounet
châpeau bas monsieur
a+ leti
 
Vote positif 0 Vote négatif
Re : Collection

Re,
merci à JB et à laétitia pour les explications.
Remerciements renouvelés à staple et pierrejean.
A+

NB : concernant la formule que j'avais proposée, pas besoin de passer par equiv :
=SI(LIGNES($1:1)<=SOMME(1/NB.SI(A$1:A$9;A$1:A$9));INDEX(A$1:A$9;PETITE.VALEUR(SI(FREQUENCE(EQUIV(A$1:A$9;A$1:A$9;0);EQUIV(A$1:A$9;A$1:A$9;0))>0;LIGNE(INDIRECT("1:"&LIGNES(A$1:A$9))));LIGNES($1:1)));"")
Cliquez pour agrandir...
semble donner les mêmes résultats.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Collection

>en rapidité j'ai l'impression que c'est plus rapide

Pour le test qe j'ai effectué, j'obtiens le même temps.

>en règle générale les fonctions excel sont plus rapides que les fonctions vba

Ce n'est pas le cas pour les formules matricielles qui peuvent devenir catastrophiques si les champs ont une taille importante et si les formules sont recopiées x fois.

http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#PlusFreq


JB
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Collection

Re

De retour de WE
Je dois une reponse a David:
La variable temp pourrait s'appeler titi toto Pierre Paul ou Jacques cela ne changerait rien
Ici cela rappelle seulement qu'il s'agit d'une variable temporaire

@ Laetitia
Merci pour l'explication
J'en ai profité pour etudier un peu ce Dictionary a partir de ta macro et voici le fruit de mes cogitations
NB: Il y a un peu de Collection egalement (largement bonifiées par tableaux)
Utiliser la macro garnir avant de tester
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Collection

Re,
La variable temp pourrait s'appeler titi toto Pierre Paul ou Jacques cela ne changerait rien
Ici cela rappelle seulement qu'il s'agit d'une variable temporaire
Cliquez pour agrandir...

Bonjour pierrejean,
cela veut-il donc dire qu'il ne garde la variable en mémoire que le temps de son traitement ?
L'intérêt est-il de libérer de "l'espace mémoire" pour accélérer la vitesse d'exécution ou y-a-t-il un autre intérêt ?
Je vais regarder ton fichier et voir si j'arrive à saisir les différences entre les macros.

Merci.
 
Vote positif 0 Vote négatif
Re : Collection

Re

Non , elle n'est temporaire que par l'usage qui en est fait et non par nature
Comme toute variable d'une macro ,elle n'existe que lorsque la macro tourne
Seules les variables declarées publiques sont conservées tant que le fichier est ouvert (et en regle tres generale ni les unes ni les autres n'encombrent la mémoire )
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
624
Piment
P
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
287
Blackfwolf
B
  • Question Question
XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer
16 17 18
Réponses
268
Affichages
9 K
p'tit vieux
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
898
AtTheOne
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
3 K
dysorthographie
D
  • Question Question
Microsoft 365 Tableau gestion ticket restau
Réponses
3
Affichages
700
yoyo2018
Y
K
  • Question Question
XL 2019 somme d'une plage après chaque saut de ligne
Réponses
10
Affichages
695
Kaganaias
K
  • Question Question
Microsoft 365 MACRO VBA - Extraire des listes à partir d'une boucle
Réponses
5
Affichages
692
chris6999
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
1 K
Helios77
H
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
  • Question Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
9 K
laurent950
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
732
tactic6
L
  • Résolu(e)
Microsoft 365 Figer nombre décimales
Réponses
2
Affichages
628
Lambert03
L
L
  • Résolu(e)
XL 2016 listbox vers uderform
2
Réponses
18
Affichages
2 K
LJII
L
P
  • Question Question
XL 2021 EXCEL VBA chercher text precis sur Internet
Réponses
6
Affichages
656
pasquetp
P
J
  • Question Question
Microsoft 365 Extraire texte de toutes les zones de texte
Réponses
7
Affichages
771
patricktoulon
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
533
oguruma
K
  • Résolu(e)
XL 2013 Modifier noms de plage par lots
Réponses
6
Affichages
674
Kostrovit
K
E
  • Question Question
XL 2013 Excel VBA - Problème lien hypertexte pour ouvrir un dossier
2
Réponses
19
Affichages
2 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…