Excel: Rechercher une lettre
maited
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Savez vous comment rechercher si dans une chaine de caractère il y a une lettre ? et que la réponse me renvoit cette lettre et en bonus, sa place dans la chaine de caractère
exemple: ma chaine: 123A4567; résultats que j'aimerai connaitre: A et 4.
mais ma chaine peut etre aussi bien sur: 12B34567;
Merci d'avance pour votre aide.
Maïté
Savez vous comment rechercher si dans une chaine de caractère il y a une lettre ? et que la réponse me renvoit cette lettre et en bonus, sa place dans la chaine de caractère
exemple: ma chaine: 123A4567; résultats que j'aimerai connaitre: A et 4.
mais ma chaine peut etre aussi bien sur: 12B34567;
Merci d'avance pour votre aide.
Maïté
A voir également:
- Excel recherche lettre dans cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Clavier iphone chiffre et lettre - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
2 réponses
Bonjour,
Si votre information est en A1 essayez de taper cette formule.
=SI(ESTNUM(CHERCHE("a";A1))=VRAI;"A"&CHERCHE("a";A1);"")
Cordialement
Si votre information est en A1 essayez de taper cette formule.
=SI(ESTNUM(CHERCHE("a";A1))=VRAI;"A"&CHERCHE("a";A1);"")
Cordialement
Bonjour,
pour trouver une lettre quelconque (majuscule ou minuscule) dans ta cellule, cela doit être possible par une formule "usine à gaz" mais tu peux employer une fonction personnalisée que voici:
la cellule de départ est A1
le résultat est en A2 pour trouver sa position =extrait_lettres(A1)
sa position est
Michel
pour trouver une lettre quelconque (majuscule ou minuscule) dans ta cellule, cela doit être possible par une formule "usine à gaz" mais tu peux employer une fonction personnalisée que voici:
Function extrait_lettres(ByRef texto As String) As String
Dim reg As Object
Dim extraction As Object
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "(\D)"
Set extraction = reg.Execute(texto)
For Each digit In extraction
extrait_lettres = extrait_lettres & (digit.Value)
Next digit
Set extraction = Nothing
Set reg = Nothing
End Function
la cellule de départ est A1
le résultat est en A2 pour trouver sa position =extrait_lettres(A1)
sa position est
=cherche(A2;A1)
Michel
