Compte le nombre d'apparition d'un nom avec VBA

[sososo82]

Bonsoir tout le monde,


Voila mon projet, je cherche à restituer dans un formulaire (en cliquant sur un bouton "Compter") le nombre de fois ou apparait un nom ("saisi" au préalable dans une listbox du même formulaire) dans une colonne EXCEL remplies de noms. Et ce en VBA.

Une idée ?

Merci beaucoup par avance

Bonne soirée.

 

[Staple1600]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonsoir

Une idée ?

Oui, 2 😉
1) Lire la charte du forum
(ou relire le passage causant de faire une recherche avant de poser une question ...)
2) chercher grâce au moteur de recherche du forum des questions (et donc leurs solutions) similaires à ta question

 

[néné06]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonsoir sososo82

Peux tu nous indiquer si ta liste de noms est triée ou aléatoire et
le mieux serait une petite pièce jointe.

Cordialement.

 

[sososo82]

Re : Compte le nombre d'apparition d'un nom avec VBA

J'ai cherché sur le forum et trouvé des problèmes beaucoup plus complexes que le mien...

La liste est aléatoire et susceptible d'être modifiée.


Voici en PJ un exemple de ce que je voudrais faire:

Merci

 

[job75]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonsoir sososo82, Staple, néné06,

En effet sososo vous n'avez pas dû beaucoup chercher...

Par exemple :

Private Sub ListBox1_Click()
Dim n As Long
n = Application.CountIf(Sheets("Feuil1").Columns("A"), ListBox1)
MsgBox ListBox1 & " : " & n & " fois"
End Sub

Edit : pas ouvert votre fichier (j'ai Excel 2003)

A+

 

[néné06]

Re : Compte le nombre d'apparition d'un nom avec VBA

bonsoir à tous

un exemple si cela te conviens.

à terminer

A+

 

[Staple1600]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonsoir à tous

Job75 (salutations 😉 )
(pour infos)
Il y a un joli userform et pas une seule ligne de code dedans !

Il y a bien cette procédure dans un module standard

Sub AfficheUsf()
FNom.Show
End Sub

C'est là que l'on voit ceux qui veulent du tout cuit et les autres... 🙄

 

[sososo82]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonsoir Job75,

Merci pour votre exemple.

Merci beaucoup Néné06 pour le code, c'est exactement ce qu'il me fallait (et stocké dans une variable c'est plus pratique pour moi...)
car j'ai l'intention de réutiliser le nombre de noms par la suite dans une autre procédure.

Bonne soirée à tous

 

[néné06]

Re : Compte le nombre d'apparition d'un nom avec VBA

Transpose le code de notre ami,Job75 qui est beaucoup plus efficace que mon code!

Salutation à Tous.

 

[JCGL]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonjour à tous,

Un essai avec le code de Job

A+ à tous

Édition : Un peu à la bourre... Salut aux amis

 

[sososo82]

Re : Compte le nombre d'apparition d'un nom avec VBA

A vrai dire je n'arrivais pas à faire fonctionner le code de Job75 au début... (la Msgbox m'affichais toujours 0 pour le nombre)

Merci beaucoup JCGL pour votre aide!

 

[laetitia90]

Re : Compte le nombre d'apparition d'un nom avec VBA

bonjour sososo82 , néné06 , JCGL ,Job75, Jean Marie

un autre exemple

 

[PatLac]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonjour à tous !
J'essai de compter les noms en feuil2, mais avec la macro en Feuil1 ...et la liste est vide.

J'ai modifié le code, mais ça ne fonctionne quand même pas ....Une idée ?😕

Private Sub CBCompte_Click()
Dim n As Long
n = Application.CountIf(Sheets("Feuil2").Columns("A"), CNom)
CCompte = n & " fois"
End Sub

Merci

 

[ROGER2327]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonjour PatLac

Toutes vos variables ne sont pas déclarées : que représente la variable CNom ?​

ROGER2327
#6934

Jeudi 19 Haha 141 (Saint Raphael, apéritif et philistin - fête Suprême Quarte)
3 Brumaire An CCXXII, 5,8727h - poire
2013-W43-4T14:05:41Z

 

[JCGL]

Re : Compte le nombre d'apparition d'un nom avec VBA

Bonjour à tous,

Il est nécessaire de mettre à jour le Nom Défini 'Liste'
Ainsi la combo CNom se "remplit"

A+ à tous