Hellos les Gars !!
Merci Pascal, moi en tout cas je compatis avec les Italiens (!!!) et aussi avec les pauvres Francophones qui doivent apprendre tout en double les Fonctions !! Car (Car en français par en Formule, qui serait donc Chr en VBA et en version yankee ou british, et certaiment pas un autobus !! Lol)... Donc je disais, car il est pas évident de penser "Len" et de traduire NBCAR !
Enfin comme çà Fredrennes aura les deux versions ...
Pour Sebb, oui on parle bien de "len" et j'avais émi les réserves d'usage (déposées chez mon avocat Maïtre VébéHa) en ce qui concernait mon incertitude quant à CHAR et CAR , car (toujours pas l'autobus sinon vous l'avez raté !!!) je ne travaille qu'en version US de windows, office et de tous les programmes.
Toujours pour Sebb, çà donnerait ceci :
Public Function CompteNumericDigit(ByRef Cell As Range)
Dim Expression As String, ExpressionC As String
Dim TotCar As Byte
Dim Compteur As Byte
Dim Car As String
Application.Volatile
Expression = Cell.Value
TotCar = Len(Expression)
For Compteur = 1 To TotCar
Car = Right(Left(Expression, Compteur), 1)
If IsNumeric(Car) = True Then
ExpressionC = ExpressionC & Car
End If
Next
CompteNumericDigit = Len(ExpressionC)
End Function
Il suffirait de taper dans une cellule : =CompteNumericDigit(A1)
(Pour autant que c'est A1 qui contient la valeur Alpha/Numérique...
Pour mon compatriote Ândré, je ne connais pas de Function standard...
Bon Aprèm
@+Thierry