Compter le nombre de caractères dans une cellule avec Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x