Discussion :

[yaya_la_rafale]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,

utilise la fonction feuille de calcul NB.SI()

[pasdechances]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[yaya_la_rafale]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pasdechances]

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.

[SfJ5Rpw8]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[yaya_la_rafale]

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

je pousse un peu 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yaya_la_rafale]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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