VBA EXCEL- Compter le nb d'apparitions d'un mot précis ds une cellule
Fermé
Lena75
-
7 janv. 2021 à 16:47
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 8 janv. 2021 à 07:45
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 8 janv. 2021 à 07:45
A voir également:
- VBA EXCEL- Compter le nb d'apparitions d'un mot précis ds une cellule
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Piratage facebook changer mot de passe - Guide
- Verrouiller cellule excel - Guide
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
Modifié le 8 janv. 2021 à 08:01
Modifié le 8 janv. 2021 à 08:01
Bonjour,
Comme vous avez intitulé votre demande VBA EXCEL, voici une solution en VBA
Option Compare Text
ou par formule
Cdlt
Comme vous avez intitulé votre demande VBA EXCEL, voici une solution en VBA
Option Compare Text
Sub Extraire()
Chaine = Range("B1") ' on récupère le contenu de B1 dans la variable "Chaine"
Chaine = Application.WorksheetFunction.Substitute(Chaine, "(", "") 'on retire la parenthèse ouvrante
Chaine = Application.WorksheetFunction.Substitute(Chaine, ")", "") 'on retire la parenthèse fermante
Cpt = 0 'on initilaise le compteur à 0
Texte = Split(Chaine, ", ") 'on relève tous les mots sans les séparateur ", "
For k = 1 To UBound(Texte) 'on boucle sur chaque mot
If Texte(k) = "ami" Then Cpt = Cpt + 1 'si le mot trouvé est égal à "ami" alors on incrémente le compteur
Next
MsgBox "Quantité trouvée: " & Cpt 'on affiche le résultat
End Sub
ou par formule
Cdlt
