Comment utiliser Visual Basic pour Applications pour compter les occurrences d’un caractère dans une sélection dans Excel

  • Article
  • S’applique à:
    Microsoft Office Excel 2007

Résumé

Dans Microsoft Excel, vous pouvez utiliser une macro pour compter les occurrences d’un caractère spécifique dans une cellule ou une plage de cellules. Cet article contient un exemple de macro permettant de compter les occurrences d’un caractère spécifique dans une cellule ou une plage de cellules.

Vous pouvez également utiliser une formule pour accomplir la tâche. Si vous préférez ne pas utiliser de macro, cliquez sur les numéros d’article suivants pour afficher les articles de la Base de connaissances Microsoft :

187667 formules pour compter les occurrences de texte, de caractères ou de mots dans Excel pour Mac

Informations supplémentaires

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de commercialisation et d'adaptation à un but en particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Exemple de procédure Visual Basic

La procédure Visual Basic suivante vous invite à entrer un caractère (ou des caractères), puis effectue une recherche dans la cellule ou la plage de cellules actuellement sélectionnées, puis affiche une boîte de message indiquant le nombre total d’occurrences de ce caractère ou chaîne de caractères. Cela fonctionne pour tous les caractères alphanumériques.

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub