Excel: Rechercher une lettre
Fermé
maited
-
26 sept. 2012 à 04:28
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 sept. 2012 à 09:01
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 sept. 2012 à 09:01
A voir également:
- Excel recherche lettre dans cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
2 réponses
landrin
Messages postés
10
Date d'inscription
jeudi 13 septembre 2012
Statut
Membre
Dernière intervention
26 septembre 2012
4
26 sept. 2012 à 08:49
26 sept. 2012 à 08:49
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 26/09/2012 à 09:02
Modifié par michel_m le 26/09/2012 à 09:02
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