Formule pour compter l'occurence d'un mot dans une phrase. Excel VBA

Version imprimable

07/03/2018, 09h51
G.duc

Formule pour compter l'occurence d'un mot dans une phrase. Excel VBA

Bonjour a tous,

Je sollicite votre aide afin de trouver une formule sur VBA permettant de compter le nombre d'apparition d'un mot (ex : pommes) dans des phrases, et ce dans plusieurs cellules.
Je m'explique, je recois chaque semaine des fichiers excel (+/- 30 000 lignes) dans lequel se trouvent un grand nombre d'informations. Le probleme est que 1/4 de ces informations me sont utiles. J'aimerais trouver une formule sur VBA permettant d'identifier les lignes ou le mot est present pour ensuite nettoyer le fichier et ne garder que les informations necessaires.
Jusqu'a present j'utilise une formule simple du genre =SUM(LEN(colonne:ligne)-LEN(SUBSTITUTE(colonne:ligne"pommes","")))/LEN("pommes") le probleme est que cette formule n'est pas fiable et je dois prendre beaucoup de temps a verifier chaque ligne. Pour etre plus precis, je peux avoir "pommes golden" et aussi "pommes de terre" la deuxieme formulation ne m'etant pas utile.

J'espere avoir ete le plus clair possible sur ma demande, je debute sur VBA et j'ai encore beaucoup de mal a me debrouiller tout seul.

Merci pour votre aide :)
07/03/2018, 10h04
Menhir

Citation:

Envoyé par G.duc

une formule sur VBA permettant de compter le nombre d'apparition d'un mot (ex : pommes) dans des phrases, et ce dans plusieurs cellules.

Citation:

identifier les lignes ou le mot est present pour ensuite nettoyer le fichier et ne garder que les informations necessaires.

Ces deux formulations sont très différentes : la présence d'un mot dans une cellule ou le nombre de fois qu'il y est contenu, ce n'est pas la même chose ni la même difficulté.

Citation:

Jusqu'a present j'utilise une formule simple du genre =SUM(LEN(colonne:ligne)-LEN(SUBSTITUTE(colonne:ligne"pommes","")))/LEN("pommes")
le probleme est que cette formule n'est pas fiable et je dois prendre beaucoup de temps a verifier chaque ligne. Pour etre plus precis, je peux avoir "pommes golden" et aussi "pommes de terre" la deuxieme formulation ne m'etant pas utile.

Malheureusement, difficile avec un simple VBA Excel de faire un analyseur contextuel...

Merci Menhir pour votre reponse,
Je me doutais que ca allait etre complique de trouver une formule permettant de "nettoyer" completement le fichier mais pensez vous qu'il est possible d'ameliorer le comptage des informations recherchees ?

Pour l'instant j'ai trouve ca :
Code:

1 2 3 4 5 6 7 8 9 10 Function Compterpommes(MaColonne As Long, MonChoix As String) As Long Dim Ligne As Long Ligne = 1 While Cells(Ligne, MaColonne) <> "" If Cells(Ligne, MaColonne) = MonChoix Then Compterpommes = Compterpommes + 1 End If Ligne = Ligne + 1 Wend End Function
Sub execution()
MsgBox "Il y a " & Compterpommes (3, "pommes") & " pommes."
End Sub

En fait cette fonction ne marche que si le contenu de la cellule affiche Pommes. Or dans mon cas le mot apparait dans une phrase. Je ne sais pas quelle formulation utiliser. Peut etre n'est ce pas la bonne logique ?

Merci pour votre aide

07/03/2018, 10h55
unparia

Bonjour
Ton aide vba interne -->> rubrique Split, Fonction --->> lire, comprendre, l'utiliser.
07/03/2018, 11h06
Menhir

Citation:

Envoyé par G.duc

Pour l'instant j'ai trouve ca :

Tu peux faire exactement la même chose que la fonction que tu présentes là avec la fonction Excel NB.SI().
https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR
Et si tu encadres ta désignation avec des *, ça pourra même faire exactement ce que tu souhaites.
Par exemple, pour connaitre le nombre de cellules qui contiennent le mot "Pomme" en colonne B :

Code:

=NB.SI(B:B;"*Pomme*")

Bonjour,

Unperia, tu m'as devancé !

mais comme le travail est fait je poste quand même ;)

j'utilise un petit code comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
Function NbOccurenceChaine(ByVal ChaineSource As String, ChaineRecherchee As String) As Long
    If ChaineSource = "" Then
        NbOccurenceChaine = 0
        Exit Function
    End If
    On Error Resume Next
    NbOccurenceChaine = UBound(Split(ChaineSource, ChaineRecherchee))
    If Not Err = 0 Then NbOccurenceChaine = 0
    Debug.Print NbOccurenceChaine
End Function

voila pour le VBA

07/03/2018, 12h40
G.duc

Citation:

Envoyé par unparia

Bonjour
Ton aide vba interne -->> rubrique Split, Fonction --->> lire, comprendre, l'utiliser.

Bonjour unperia,
Merci pour ta reponse mais comme precise dans mon premier post je suis debutant et je ne sais pas du tout ou trouver ce que tu m'indiques.
S'agit il de la fonction text to column ?

Merci
07/03/2018, 12h48
unparia

Citation:

et je ne sais pas du tout ou trouver ce que tu m'indiques.

===>>

Citation:

aide vba interne Split, Fonction -->>

Citation:

S'agit il de la fonction text to column ?

--->>

Citation:

Split, Fonction
07/03/2018, 14h16
Menhir

Citation:

Envoyé par G.duc

je ne sais pas du tout ou trouver ce que tu m'indiques.

A l'époque du MS-DOS, il y a plus de 30 ans, la plupart des logiciels utilisaient déjà la touche F1 pour accéder à l'aide.
Ca n'a pas changé depuis.