A voir également:
- Suppression de caractère dans une chaine
- Caractère ascii - Guide
- Forcer suppression fichier - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Chaine tnt gratuite sur mobile - Guide
1 réponse
Salut mendez
Si j'ai bien compris ton besoin, voila une fonction qui t'ira
Sub verif_num()
Dim i, j, str, temp
i = 1
While Not Cells(1, i) = ""
str = ""
For j = 0 To Len(CStr(Cells(1, i)))
temp = Mid(CStr(Cells(1, i)), j + 1, 1)
If (temp = 0 Or temp = 1 Or temp = 2 Or temp = 3 Or temp = 4 Or temp = 5 Or temp = 6 Or temp = 7 Or temp = 8 Or temp = 9) Then
str = str + temp
End If
Next
Cells(1, i) = str
i = i + 1
Wend
End Sub
Je pense que pour la condition il y a un autre moyen mais je ne me suis pas penché sur le problème
David
Si j'ai bien compris ton besoin, voila une fonction qui t'ira
Sub verif_num()
Dim i, j, str, temp
i = 1
While Not Cells(1, i) = ""
str = ""
For j = 0 To Len(CStr(Cells(1, i)))
temp = Mid(CStr(Cells(1, i)), j + 1, 1)
If (temp = 0 Or temp = 1 Or temp = 2 Or temp = 3 Or temp = 4 Or temp = 5 Or temp = 6 Or temp = 7 Or temp = 8 Or temp = 9) Then
str = str + temp
End If
Next
Cells(1, i) = str
i = i + 1
Wend
End Sub
Je pense que pour la condition il y a un autre moyen mais je ne me suis pas penché sur le problème
David