Compter le nombre d’occurrences d'une valeur dans une colonne

Bonjour,

J'ai un feuille excel wsCible avec une colonne O

je voudrais dans ma macro si toto existe compter le nombre d'occurence dans cette meme colonne

Est-ce que je suis obligée de faire une boucle ligne par ligne et de faire mon propre compteur :(
(mon fichier est enorme, et ca va etre tres lourd..., plus des boucles imbriquées , suis pas fan ) ou existe-il une fonction rapide qui me le retourne ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim totoExiste As Variant Set totoExiste = wsCible.Columns("O").Find("toto")   If totoExiste Is Nothing Then MsgBox "toto existe pas " Else 'calcul nombre occurence ? MsgBox "toto existe " End If

---

merci d'avance

Bonjour,

utilise la fonction feuille de calcul NB.SI()

Bonjour,
En revanche si tu tien à faire ta propre fonction,
bah tu peut utiliser ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

dim ligne as integer dim colonne as integer dim vide as integer dim moncompteur as integer   moncompteur = 0 ligne = 1 colonne = 0 vide = 0 'je fixe 50 celules vides ou qui ne contienent pas mon information 'pour ne pas avoir de boucle infinie while vide < 50   'je donne ma condition de comptage if cells(ligne,colonne) <> "" then 'si je trouve une case qui correspond a mon besoin alors + 1 moncompteur = moncompteur + 1 vide = 0 else 'si non j'incrémente le compteur de case vide ou qui ne corresponde pas a mon besoin vide = vide + 1 end if   ligne = ligne + 1   wend

---

Mais cela dit, si tu a la possibilité, préfére la solution de bbil, excel met à notre disposition des fonctions déjà faites, alors autant s'en servire(une licence sa coute, alors perd pas ton temps à tout refaire, même si c'est la classe).
Avec ce morceau de code je tien juste a nourrire ta curiosité.:mrgreen:

merci de vos réponses.
@pasdechances: oh non je ne tiens pas plus a écrire mon propre code:calim2:
@bbil: oui , je souhaiterai utiliser cette fonction NB.SI

Code:

---

1 2 3 4 5 6 7 8 9

' contenu a rechercher Dim valCell As String valCell = wsSource.Range("N" & myQuestionIterator).Value   Dim nbOccurences As Integer nbOccurences = NB.SI("O4:O15;valCell")   MsgBox "nb occurence: " & nbOccurences

---

mais je prend une erreur executage 424 :(

C'est normal,
:)
cette fonction est à appliquer dans les celules de ton classeur, après avec ton code VBA, tu récupère cette valeur.
Du moins, je crois, je l'ai toujours utilisée de la sorte.

Bonjour,


pour utiliser les fonction de feuilles de cacul en VBA il faut utiliser l'objet WorkSheetFunction et les fonctions à l'anglaise :

Code:

---

nbOccurences = Application.WorksheetFunction.CountIf(wsCible.Columns("O"), valCell)

---

PS : au sujet de ton utilisation de valCell pour utiliser le contenu d'une variable il ne faut pas la placer entre guillemet ...

Super, ca marche a merveille :) :)
et ca fait pas usine !
merci beaucoup

je pousse un peu :weird: mais est-ce qu'il est possible d'avoir aussi du coup, les numeros des lignes auxquels ces instances ont été trouvé?

quelque chose du style findnext ?
je ne trouve pas

Code:

---

Set idBaseCampExist = wsCible.Columns("O").Find(valIdBaseCamp)

---

J'ai trouvé pour obtenir le numéro de la ligne

Code:

---

1 2 3 4 5 6 7

Set FoundCell = wsCible.Range("A:A").Find(what:="valeurChampO", lookat:=xlWhole) If Not FoundCell Is Nothing Then MsgBox ("valeur champ A trouvé à " & FoundCell.Row) Else MsgBox ("valeur champ A pas trouvé") End If

---