Discussion :

[Antdec]

Bonjour,

Je souhaite créer une fonction qui compte les occurrences d'une chaine de caractère (nom + prénom) dans une colonne précise : ici la 5e.
Pour ce faire, j'utilise la fonction ESTNUM(CHERCHE("Jean Dupont";E2;VRAI;FAUX)) en bouclant sur la cellule où je fais la recherche, et en comptant le nombre de fois où cette fonction renvoie vrai.

1. Est-ce possible de faire plus simple ?
2. Je suis confronté au fait que la fonction cherche renvoie #VALUE quand elle ne trouve pas, j'ai voulu éviter ça sous vba en utilisant IFERROR, mais l'erreur arrive quand même.. que faire ?

Voici mon code :

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
Public Function nombre_postu(nom)
'
' Tri_prospect Macro
    Dim i, j, compteur As Integer
' me permet de trouver jusqu'ou boucler, le document changeant de taille
    i = 1
    While Worksheets(1).Cells(i, 1).Value <> ""
        i = i + 1
    Wend
    compteur = 0
    j = 1
    While j < i
        j = j + 1
        k = Worksheets(1).Cells(j, 5).Value
        If Application.WorksheetFunction.IfError(Application.WorksheetFunction.Find(nom, Worksheets(1).Cells(j, 5).Value), False) Then
            compteur = compteur + 1
        End If
    Wend
    nombre_postu = compteur
 
End Function

Merci !!

Antdec

[mat955]

Bonjour,

Oui, il y a une fonction qui existe exprès pour faire cela : NB.SI
En VBA : CountIf

Pas besoin de boucle, et comme la fonction compte le nombre d'occurrences, elle ne renvoie pas d'erreur mais zéro si elle ne trouve rien.

[Antdec]

Merci de votre réponse,
Mon problème vient justement du fait que je ne puisse pas utiliser NB.SI puisque mes cases ne contiennent pas exactement le nom et le prénom, mais parfois plusieurs noms et prénoms, d'où mon utilisation de FIND ...

Merci

Andec

[78chris]

Bonjour à tous

NB.SI accepte les * pour une recherche à l'intérieur d'une chaîne. Encadrer la chaîne recherchée de *

[Igloobel]

Bonjour à tous

Moi j'utilise en VBA Instr() elle renvois 0 si elle ne trouve pas sinon un chiffre qui correspond au premier caractère de la chaine recherchée

L'équivalent de la Fonction TROUVE() pour les formules Excel



Sinon concernant ton code

Il est inutile de boucler pour connaitre la dernière ligne une ligne de code suffit :

Code :

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

Der_Ligne = [A1].End(xlDown).Row

En suite la boucle While ... Wend est la boucle la plus lente (vieux reliquat du basic) je te conseille les boucles : Do While ... Loop ou Do ... Loop While (ou loop until tout dépend si tu veux dire Tant Que ou Jusqu'à ce que )

@ bientôt

[Raccourcix]

Pour ce faire, j'utilise la fonction ESTNUM(CHERCHE("Jean Dupont";E2;VRAI;FAUX)) ...

La fonction CHERCHE n'a que 2 ou 3 arguments, pas 4

Sinon comme le suggère 78chris, il FAUT utiliser NB.SI et oublier VBA dans votre cas.
=NB.SI(A1:A4;"*Jean Dupont*")
Stéphane

[Antdec]

Merci pour vos réponses !

J'ai fini par utiliser * * dans NB.SI ce qui m'a grandement facilité la vie, j'ai pensé au début que c'était % comme en SQL, mais j'aurai du plus me renseigner.

Bien à vous,

Antdec