IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

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


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : Mars 2018
    Messages : 3
    Par défaut 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

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par G.duc Voir le message
    une formule sur VBA permettant de compter le nombre d'apparition d'un mot (ex : pommes) dans des phrases, et ce dans plusieurs cellules.
    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é.

    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...

  3. #3
    Candidat au Club
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : Mars 2018
    Messages : 3
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Ton aide vba interne -->> rubrique Split, Fonction --->> lire, comprendre, l'utiliser.

  5. #5
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2010
    Messages
    194
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 194
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  6. #6
    Candidat au Club
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Mars 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs

    Informations forums :
    Inscription : Mars 2018
    Messages : 3
    Par défaut
    Citation Envoyé par unparia Voir le message
    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

  7. #7
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    et je ne sais pas du tout ou trouver ce que tu m'indiques.
    ===>>
    aide vba interne Split, Fonction -->>
    S'agit il de la fonction text to column ?
    --->>
    Split, Fonction

  8. #8
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par G.duc Voir le message
    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.

  9. #9
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par G.duc Voir le message
    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 :

Discussions similaires

  1. nombre d'occurences d'un mot dans une phrase
    Par florent090 dans le forum Débuter
    Réponses: 11
    Dernier message: 19/05/2012, 14h43
  2. [RegEx] Compter les occurences d'un mot dans un PHP
    Par FoxLeRenard dans le forum Langage
    Réponses: 2
    Dernier message: 19/02/2009, 08h18
  3. Compter les occurences d'un mot dans une chaîne
    Par mimi2311 dans le forum Pascal
    Réponses: 4
    Dernier message: 20/04/2008, 22h37
  4. Réponses: 2
    Dernier message: 09/04/2008, 21h03
  5. Nombre d'occurences d'un mot dans une phrase
    Par cirtey dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 07/05/2007, 21h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo