VBA COMPTER LE NB D'OCCURENCE Fermé

Question

Bonjour à tous !!!

Voilà je vien à vous car je n'arrive pas à faire une fonction correcte et rapide,
pour trouver le nombre d'occurence dans ma feuille excel !

en fouinant un peus j'ai trouver cette fonction très astucieuse 
qui consiste à compter le nombre de remplacement que l'on fait !

Function NbOc(Chaine As String, Ch As String) As Long

  NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, ""))) / Len(Ch)

End Function


mais malheursement cette fonction ne fonction pas chez moi :(
si quelqu'un pourrais m'aider ! xD

bye byee

noobduvb · Answer

petit up ! :)

xav3601 · Answer

Bonjour,
Tu cherche a detecter le nbre d'appartition d'un mot ou d'un caractere dans ta feuille excel c'est ca?

xav3601 · Answer

En fait je ne comprend pas trop l'astuce de ton premier poste car pour la fonction Len sers a recuperer la longueur d'une chaine de caractere :/
Donc je vois pas trop comment ca marche, enfin en l'occurence ca marche pas!
mais moi pr faire j'aurai fais un boulce sur toute les cellules avec un test donc en gros ce que tu as fais je pense :)

lermite222 · Answer

Bonjour,
Faudrait un peu mieux détailler ce que tu veux faire.
Nombre d'occurence dans ta feuille ?
Une partie du contenu des cellules ?
par ex: rechercher AA dans toutes les cellules
ou rechercher l'entièreté des contenu cellules
Par exemple cellule A1 contient "Ces mots" ... rechercher dans la feuille s'il y a d'autre cellules qui contiennent "Ces mots" ?
Tu dit

xav3601 · Answer

Comme ca

if
instruction1
end if

instruction 2

NikoBübü · Answer

je pense que tu veux plutot faire:
1) compter le nombre de caracteres dans la chaine originale
2) remplacer tes "1" par "" avec la fonction Replace()
3) recompter le nomre de caracteres
4) comparer le 1er et le 2e comptage
tu aura ainsi le nombre de "1" dans ta chaine

ca donne:

Sub test()
Dim str As String
Dim num, num2 As Integer

str = "abc1def1ghi1jkl113265481"
num1 = Len(str)
str = Replace(str, "1", "")
num2 = Len(str)

num1 = num1 - num2
MsgBox ("il y a " & num1 & " fois le chiffre 1 dans la chaine")

End Sub

VBA COMPTER LE NB D'OCCURENCE

6 réponses

Discussions similaires