• Publicité

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

Dans ce forum, vous pouvez poser toutes vos questions concernant l'utilisation de logiciels de bureautique (Microsoft Office, Open Office, etc.)

Modérateurs: Sebastien, Stéphane, Christophe

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

Messagepar Nospam » 11 Avr 2013 14:09

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 ? :roll:

Merci par avance de vos réponses !

Nospam
Nospam
No0b
No0b
 
Messages: 2
Enregistré le: 10 Avr 2013 09:37

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

Messagepar Sebastien » 12 Avr 2013 17:31

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

@+
Image
Avatar de l’utilisateur
Sebastien
Administrateur
Administrateur
 
Messages: 5542
Enregistré le: 14 Fév 2005 19:17
Localisation: LILLE

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

Messagepar Nospam » 14 Avr 2013 08:20

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 !
Nospam
No0b
No0b
 
Messages: 2
Enregistré le: 10 Avr 2013 09:37


Retourner vers Forum d'entraide : Bureautique

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 2 invités

  • Publicité
cron