.zip + compter les caractères numériques

T

Ti

Guest

• 14 Novembre 2002

• #2

Pour les zip, pas de réponse :-(, mais voilà une fonction qui peut compter les caractères numériques d'une cellule alphanumérique :

Function NbCarNum(Cel As Range) As Long
Dim Boucle As Long, Chaine As String, Car As String * 1
Chaine = CStr(Cel.Value)
For Boucle = 1 To Len(Chaine)
Car = Mid(Chaine, Boucle, 1)
If Car >= "0" And Car <= "9" Then NbCarNum = NbCarNum + 1
Next Boucle
End Function

 

Vote positif 0 Vote négatif

C

catherine

Guest

• 14 Novembre 2002

• #3

Merci ,à toi, Ti, ça marche SUPER!!!! ;-))

Catherine

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 14 Novembre 2002

• #4

bonjour


certains prônent un code du genre suivant

For j% = Len(valeur) To 1 Step -1
If IsNumeric(Mid(valeur, j%, 1)) Or Mid(valeur, j%, 1) = "," Then 'Pour
compenser un comportement
'erratique de Isnumeric avec la virgule décimale
compteur% = compteur% + 1
Else
Exit For 'Évite de faire toute la boucle quand il n'y a plus de caractère
numérique
End If
Next


bye
steph

 

Vote positif 0 Vote négatif

C

catherine

Guest

• 14 Novembre 2002

• #5

Merci Steph, ça marche super bien, mais sans le else (car on sort tout de suite).

Catherine

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 14 Novembre 2002

• #6

désolé Stéph, mais je pense que pour la circonstance, tu te compliques un peu la vie. Ceci dit, voilà une illustration des multiples solutions apportées à une même question

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 14 Novembre 2002

• #7

bonjour


ou alors un truc qui revient au même, mais qui est peut-être un peu plus rapide :

Function CountNumChar(cel As Range) As Integer
For i = 1 To Len(cel.Value)
If InStr(1, "0123456789", Mid(cel, i, 1)) Then ctCN = ctCN + 1
Next
CountNumChar = ctCN
End Function

bye
Stéphane

 

Vote positif 0 Vote négatif