Calcule de caractaires

Résolu
Bonjour, bonjour
je souhaite connaitre le nombre de car dans une cellule en excel si
exemple:
combien de foi "MM" ce répète dans la ce

MMMVVQQMMMMMQQMMQQMMMM pour cet exemple on a 10 MM

MM;M;VVQQMM;M;M;M;QQMM;QQMM;M;M;

merci

6 réponses

  1. Contributeur
    Bonjour, bonjour Fxx :-)
    Sub ConteDouble()
    Dim I As Integer, C As Integer
    Const Test = "MMMVVQQMMMMMQQMMQQMMMM"
        For I = 1 To Len(Test) - 1
            If Mid(Test, I, 2) = "MM" Then C = C + 1
        Next
        MsgBox "Nombre de fois = " & C
    End Sub

    A+

    1. je n'arrive pas à l'appliquer, sur Excel aider moi si ça peut ce faire
      merci
    2. Contributeur
      Tu veux ça comment ?

      Une formule ?
      Un Userform ?
      explique..
      EDIT:
      Un exemple sur une feuille.
  2. c'est un calcule pour la méthode Flender observer les interventions verbale chez l'enseignant alors
    1. <gras>pour un ensemble de caractères en majuscule écrie dans une cellule sur Excel exemple "MMMVAENMVVEEAAAAMMMMMMMMMMMMMMMMMNVVVVVENNNNNNNQMMMNE"
      Donc pour calculer le nombre de fois que "EM" ou"VE" ou "AM" ou autre est répéter dans la cellule en utilise la formule
      "=(NBCAR($A14)-NBCAR(SUBSTITUE($A14;"QM";"")))/2"
      mais pour calculer le nombre de fois que "MM" OU "AA" OU "VV" ca donne un résulta faux
      je veux trouver le calcule de MMM=2, MMMM=3, MMMMM= 4 et même si séparer par un lettre MMMAMMMVMMMMMMM= 2+2+6=10

      merci
      1. Contributeur
        ?????????????
        C'est exactement ce que mon exemple fait !!!!
        Ou alors tu t'explique mal.
    2. je ne trouve pas la formule "ConteReplique" dans les formules de Excel sur mon pc, alors que je la trouve sur la feuils de votre exemple,comment l'ajouté.
      car je l'est essayé sur votre exemple et ça marche
      merci pour votre aide
      1. Contributeur
        C'est une fonction personnelle.(en VBA)
        Apparemment tu connais pas...
        Sur ton classeur,
        Tu tape Alt+F11 pour entrer dans l'éditeur VBA
        Sur le menu -> Insertion -> Module
        Un nouveau module va s'ouvrir avec le nom Module1
        Dans ce module tu copie le code qui est sur le module de mon exemple.
        Tu retourne sur Excel et la fonction sera disponible.
        A+
    3. merci pour votre réponse, ça marche comme le nom du site l'indique encore merci