Cette
fonction développée sur VBA vise à extraire les données à partir d’un Texte
délimité par un Texte Début et Un Texte Final. Cette fonction permet d’économiser
un effort considérable de formule Excel qui peuvent être utilisés pour
effectuer l’extraction.
uFonction VBA :
T_Extraire(Texte Global, Texte Début, Texte Fin)
Public Function
T_Extraire(ByVal
Text_Global, ByVal Txt_Debut, ByVal txt_fin)
Dim
Place_TxtDebut, Place_TxtfIN As Integer
Dim
Txt_Restant
Dim
temporel
'Cherche la place du texte à partir duquel on va extraire les
caractaire
Place_TxtDebut
= InStr(1, Text_Global, Txt_Debut)
If
Place_TxtDebut > 0 Then
'Le text qui se situe à droite du text début
Txt_Restant
= Right(Text_Global, (Len(Text_Global) - Place_TxtDebut + 1))
'la place des caractères à partir desquelles on va arrêter
d'extraire
Place_TxtfIN
= InStr(1, Txt_Restant, txt_fin)
'Extraire les caracteres qui se trouve entre les texte début et
les texte fin
temporel
= Mid(Txt_Restant, (Len(Txt_Debut) + 1), (Place_TxtfIN - Len(Txt_Debut) - 1))
Else
temporel
= 0
End If
If
InStr(1, temporel, ".") > 0 Then
T_Extraire
= Replace(temporel, ".", ",")
Else
T_Extraire
= temporel
End If
End Function
uUtilisation de la fonction T_Extraire(Texte
Global, Texte Début, Texte Fin)
Les éléments d’entré de cette fonction sont :
Text_Global : La cellule qui
contient les données brutes, à partir de laquelle sera effectuée l’extraction.
Txt_Debut : Texte choisit par l’utilisateur
qui indique le commencement de l’extraction.
txt_fin : Texte choisit par l’utilisateur
qui indique la fin de l’extraction.
La fonction sera intégrée et utilisée à
l’instar des autres fonctions d’Excel.
Nous
proposons dans l’image suivant un exemple d’utilisation de cette fonction pour
extraire le prix, la nature, la quantité et le total à partir d’un brut :
Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.
Aucun commentaire :
Enregistrer un commentaire