suppression de caractère dans une chaine

Question

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...

David · Answer

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

Suppression de caractère dans une chaine

1 réponse

Discussions similaires

Newsletters