Suppression de caractère dans une chaine

Mendez, le mercredi 11 juin 2008 à 12:41:50

Bonjour,

J'ai un souci et j'aimerai quon puisse me venir en aude. Voila: je suis tombé sur un fichier excel relatif à un listing de malades pour une société. Ce tableau établit sous Excel nous donne le numero d'ordre, le numero matricule, le numero d'assuré et le nom et prenoms de l'individu. Les numero matricule et les numero d'ordre comprenant des lettres, il nous ait demandé de supprimer les lettres pour avoir rien que des chiffres.
Alors j'aimerai qu'on puisse me donner un programme, sinon un algorithme me permettant de le réaliser sous Excel!!!

Merci d'avance...

Configuration: Windows XP
Internet Explorer 6.0

Répondre à Mendez Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

David, le mercredi 11 juin 2008 à 13:05:47

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

Répondre à David

Posez votre question Répondre

Toutes les réponses pour « suppression de caractère dans une chaine »