Tous les caractères numériques doivent être comptés dans une cellule. Utilisez la fonction suivante pour cette tâche.
Function NombreCaracteres(celluleA) As Integer Dim i As Integer Application.Volatile For i = 1 To Len(celluleA) If Mid(celluleA, i, 1) Like "#" Then NombreCaracteres = NombreCaracteres + 1 End If Next i End Function
Commentaires:
■ Tout d’abord, déterminez la longueur totale de la cellule.
■ Parcourez ensuite une boucle et traitez un caractère à la fois à l’aide de la fonction Mid.
■ Utilisez l’opérateur Like pour déterminer si le caractère est une valeur numérique. Dans ce cas, cet opérateur renvoie une valeur comprise entre 0 et 9. Ajoutez ensuite la valeur 1 dans votre fonction.