Discussion :

[natcre]

Bonjour,

Je souhaiterai compter dans une même cellule le nombre de fois ou une chaine de caractère apparait.

Par ex:
Dans 09/07/2007 17:23:03 888888
Tout va bien
09/07/2007 17:54:11 999999
tout va bien
09/07/2007 18:00 888888

Je veux compter combien la chaine 888888 est repétée dans cette cellule, et mettre le nombre dans une cellule à côté. Je dois balayer plusieurs cellules et dans certain cas cette chaine ne figure pas, dans ce cas je veux faire afficher la valeur zéro dans la cellule d'à côté
Merci pour vos solutions

[random]

essaye

Code :

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

1
2
 
=NBCAR("abracadabra")-NBCAR(SUBSTITUE("abracadabra";"a";""))

[natcre]

Merci pour la reponse mais ce n'est pas ce que je recherche.

Je souhaite qu'Excel me dise que j'ai 2 fois dans la cellule le code 888888.

J'aimerai une solution en VBA.

Merci

[Jean-Philippe André]

euh,
j'aurais proposé un

Code :

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

1
2
3
If(Instr(Range("A1").Value,"888888")) Then
Range("B1").Value = Range("B1").Value + 1
end if

[fred65200]

bonjour,

Si j'ai bien compris, colle la fonction en bas dans un module.
Dans une cellule (F5 par ex.) tu tapes le texte suivant :

09/07/2007 17:23:03 888888
Tout va bien
09/07/2007 17:54:11 999999
tout va bien
09/07/2007 18:00 888888

En F6, tu saisies =NbOcc(F5;888888), tu auras 2 comme résultat.
Pour du texte, place le second argument entre guillemets.

code à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub NbOcc()
chaine = [feuil1!b1]
mot = "8888"
occ = 0
i = 1
While InStr(i, chaine, mot) > 0 And i < Len(chaine)
i = InStr(i, chaine, mot) + 1
occ = occ + 1
Wend
MsgBox occ
End Sub

ou utilise la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function NbOcc(chaine As String, mot As String)
'Tu appelles la fonction dans ta feuille de calcul
'=NbOcc(A1;"8888")
NbOcc = 0
i = 1
While InStr(i, chaine, mot) > 0 And i < Len(chaine)
i = InStr(i, chaine, mot) + 1
NbOcc = NbOcc + 1
Wend
 
End Function

Salutations

[random]

ben alors

Code :

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

=(NBCAR("abracadabra")-NBCAR(SUBSTITUE("abracadabra";"a";"")))/len("a")