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

[chaelie2015]

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

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

 

[Jacky67]

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

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

 

[Zon]

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

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]

Bonjour,
En formule à tester

=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]

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]

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]

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

 

[Phil69970]

Re

Non testé car j'ai une version fr

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

 

[Jacky67]

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

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

En anglais

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

 

[Phil69970]

@chaelie2015

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

 

[chaelie2015]

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

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]

@chaelie2015

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

re
regarde le post 7

 

[Phil69970]

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

 

[chaelie2015]

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]

Bonjour

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