Excel : Extraction lettres dans chaîne de caractères

[Nospam]

Bonjour à toutes et à tous !

Au cours d'un traitement sur un fichier Excel 2003 je suis amené à traiter une chaîne de 11 caractères. Celle-ci peut ne contenir que des chiffres (et là mon traitement se poursuit sans souci) ou bien une ou plusieurs lettres positionnées de façon aléatoire dans la chaîne.
J'aimerais pouvoir, soit par une formule, soit en VBA 2003, qu'Excel teste la présence ou non de lettre(s) et en détermine la position de façon à ce que je traite cette particularité...

Est-ce possible ?

Merci par avance de vos réponses !

Nospam

[Sebastien]

Bonjour,

Voici une macro VBA qui teste chaque caractère un par un et qui indique si le caractère est une lettre ainsi que sa position le cas échéant.
La macro affiche des boites de dialogue.

Vous pourriez adapter le code pour exécuter vos traitements à la place des boites de dialogue.

Code: Tout sélectionner

Sub test_cellule2()

Dim i, compteur As Integer
Dim cellule As Variant

cellule = ActiveCell.Address

'compteur des lettres
compteur = 0

'test des caractères de la chaine
For i = 1 To Len(Range(cellule).Value)
     If Mid(Range(cellule).Value, i, 1) Like "[A-Z,a-z]" Then compteur = compteur + 1: MsgBox "une lettre en position " & i
Next i

'cas ou il n'y a pas de lettre
If compteur = 0 Then MsgBox ("pas de lettre dans la chaine")

End Sub

Exemple de résultat sur une chaine 11111111111
pas de lettre dans la chaine

Exemple de résultat sur une chaine 1111111DE11
une lettre en position 8
une lettre en position 9

@+

[Nospam]

Bonjour et merci Sébastien !

Ce code va m'être très utile. C'est exactement ce que je cherchais. Effectivement je zapperai les boites de dialogue, mon traitement devant rester "transparent" pour l'utilisateur.

Encore merci !