VBA COMPTER LE NB D'OCCURENCE
noobduvb
-
NikoBübü -
NikoBübü -
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 !
mais malheursement cette fonction ne fonction pas chez moi :(
si quelqu'un pourrais m'aider ! xD
bye byee
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
A voir également:
- Excel vba compter le nombre d'occurence dans une colonne
- Déplacer une colonne excel - Guide
- Trier colonne excel - Guide
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
6 réponses
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
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