Autres (RESOLU) Extraire des lettres âpres "KDL"

chaelie2015 · 11 Août 2023

Bonsoir Forum
Suivant le même principe de la discussion de "Extraire une année composée de quatre chiffres ("aaaa")" précédente , cette fois-ci, je souhaite extraire les lettres après 'KDL' soit L ou .L ou P ou .P
exemple un :dans A1 = 071/2011 KDL.P/11 donc j'aurai dans B1= .P
exemple deux : A1 =73/2012-KDLL/26 donc j'aurai dans B1= L
j'ai trouvé cette fonction

VB:

Function ExtraireLettreApresKDL(chaine As String) As String
    Dim positionKDL As Integer
    Dim extrait As String
    
    positionKDL = InStr(1, chaine, "KDL", vbTextCompare)
    
    If positionKDL > 0 And positionKDL < Len(chaine) - 2 Then
        extrait = Mid(chaine, positionKDL + 3, 1)
        If extrait = "L" Or extrait = ".L" Or extrait = "P" Or extrait = ".P" Then
            ExtraireLettreApresKDL = extrait
        Else
            ExtraireLettreApresKDL = ""
        End If
    Else
        ExtraireLettreApresKDL = ""
    End If
End Function

Mais elle n'affiche pas des résultats souhaité comme dans l'exemple un ci dessus
Merci

Zon · 11 Août 2023

Salut,

Mid(chaine, positionKDL + 3, 1) te donne qu'un caractère dans la chaine,
si c'est P ou L la fonction retourne P ou l
si c'est le point il faut tester le caractère juste après pour voir si c'est L ou P.

un exemple de code

VB:

If positionKDL > 0 And positionKDL < Len(chaine) - 2 Then
      extrait = Mid(chaine, positionKDL + 3, 1)

      Select Case extrait
         Case "L", "P": ExtraireLettreApresKDL = extrait
         Case ".":
            extrait = Mid(chaine, positionKDL + 4, 1)
            If extrait = "L" Or extrait = "P" Then ExtraireLettreApresKDL = "." & Mid(chaine, positionKDL + 4, 1)
      End Select
   Else
      ExtraireLettreApresKDL = ""
   End If

A+++

Jacky67 · 11 Août 2023

chaelie2015 à dit:
Bonsoir Forum
Suivant le même principe de la discussion de "Extraire une année composée de quatre chiffres ("aaaa")" précédente , cette fois-ci, je souhaite extraire les lettres après 'KDL' soit L ou .L ou P ou .P
exemple un :dans A1 = 071/2011 KDL.P/11 donc j'aurai dans B1= .P
exemple deux : A1 =73/2012-KDLL/26 donc j'aurai dans B1= L

Bonjour,
En formule à tester

Code:

=STXT(A1;TROUVE("KDL";A1)+3;TROUVE("/";STXT(A1;TROUVE("KDL";A1)+3;NBCAR(A1)))-1)

Zon · 11 Août 2023

Salut,

Mid(chaine, positionKDL + 3, 1) te donne qu'un caractère dans la chaine,
si c'est P ou L la fonction retourne P ou l
si c'est le point il faut tester le caractère juste après pour voir si c'est L ou P.

un exemple de code

VB:

If positionKDL > 0 And positionKDL < Len(chaine) - 2 Then
      extrait = Mid(chaine, positionKDL + 3, 1)

      Select Case extrait
         Case "L", "P": ExtraireLettreApresKDL = extrait
         Case ".":
            extrait = Mid(chaine, positionKDL + 4, 1)
            If extrait = "L" Or extrait = "P" Then ExtraireLettreApresKDL = "." & Mid(chaine, positionKDL + 4, 1)
      End Select
   Else
      ExtraireLettreApresKDL = ""
   End If

A+++

chaelie2015 · 11 Août 2023

Jacky67 à dit:
Bonjour,
En formule à tester

Code:

=STXT(A1;TROUVE("KDL";A1)+3;TROUVE("/";STXT(A1;TROUVE("KDL";A1)+3;NBCAR(A1)))-1)

Bonsoir jacky67
Merci pour la formule , mais dans la cas suivant elle n'est pas fonctionnelle : A1= 142/2012 KDL.P 75?
A+

Phil69970 · 11 Août 2023

Bonjour à tous

@chaelie2015
Je te propose cette formule

=STXT(A1;TROUVE("KDL";A1)+3;2)

Et si tu ne veux pas le point donc juste le L ou le P

=STXT(A2;TROUVE("KDL";A2)+4;1)

chaelie2015 · 11 Août 2023

Phil69970 à dit:
Bonjour à tous

@chaelie2015
Je te propose cette formule

Regarde la pièce jointe 1176316

Et si tu ne veux pas le point donc juste le L ou le P

Regarde la pièce jointe 1176317

chaelie2015 · 11 Août 2023

Re
@ Phil69970
I have an English version, and I've used this function
"=MID(B3,SEARCH("KDL",B3)+3,2)"."
Is it correct?

Phil69970 · 11 Août 2023

Re

Non testé car j'ai une version fr

=MID(A1,find("KDL",A1)+3,2)

Jacky67 · 11 Août 2023

chaelie2015 à dit:
Bonsoir jacky67
Merci pour la formule , mais dans la cas suivant elle n'est pas fonctionnelle : A1= 142/2012 KDL.P 75?
A+

Re..
Et

Code:

=STXT(A1;TROUVE("KDL";A1)+3;SIERREUR(SI(TROUVE(".";STXT(A1;TROUVE("KDL";A1)+3;99));2);1))

En anglais

Code:

=MID(A1,FIND("KDL",A1)+3,IFERROR(IF(FIND(".",MID(A1,FIND("KDL",A1)+3,99)),2),1))

Phil69970 · 11 Août 2023

@chaelie2015

Pas de retour sur mes posts #5 et 8 ??

chaelie2015 · 11 Août 2023

Zon à dit:
Salut,

Mid(chaine, positionKDL + 3, 1) te donne qu'un caractère dans la chaine,
si c'est P ou L la fonction retourne P ou l
si c'est le point il faut tester le caractère juste après pour voir si c'est L ou P.

un exemple de code

VB:

If positionKDL > 0 And positionKDL < Len(chaine) - 2 Then extrait = Mid(chaine, positionKDL + 3, 1) Select Case extrait Case "L", "P": ExtraireLettreApresKDL = extrait Case ".": extrait = Mid(chaine, positionKDL + 4, 1) If extrait = "L" Or extrait = "P" Then ExtraireLettreApresKDL = "." & Mid(chaine, positionKDL + 4, 1) End Select Else ExtraireLettreApresKDL = "" End If

A+++

Bonjour ZON
Donc cette fonction ExtraireLettreApresKDL() extrait une lettre suivant "KDL" dans la chaîne d'entrée et renvoie cette lettre, ou une combinaison avec le point si nécessaire, ou une chaîne vide si aucune lettre ne suit "KDL" dans la chaîne.
MERCI

chaelie2015 · 11 Août 2023

Phil69970 à dit:
@chaelie2015

Pas de retour sur mes posts #5 et 8 ??

re
regarde le post 7

Phil69970 · 11 Août 2023

Il me semble que mon post #8 ta répondu !

chaelie2015 · 11 Août 2023

Phil69970 à dit:
Il me semble que mon post #8 ta répondu !

Re
malheureusement la formule ne répond pas a mous souci dans le cas ou j'ai dans la cellule AI = 03/2009 KDLP/03 elle affiche le résultat suivant P/
A+

chaelie2015 · 11 Août 2023

Bonjour

Merci à tous, c'est parfait ! J'ai maintenant encore deux options : une formule et du code VBA. C'est excellent !

Autres (RESOLU) Extraire des lettres âpres "KDL"

chaelie2015

XLDnaute Accro

Zon

Jacky67

XLDnaute Barbatruc

Zon

XLDnaute Impliqué

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires