Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

avatar
14/10/15 12:16
Ecrit un peu vite, mais ce qui suit peut déjà faire l'affaire :

1. Il faut une fonction pour extraire la partie Texte d'un code.
Langage: Visual Basic
Function ExtraireTexte(ByVal strChaine As String) As String Dim intI As Integer Dim strResultat As String Dim strCaract As String   intI = 1 strResultat = "" Do While intI <= Len(strChaine) strCaract = Mid(strChaine, intI, 1) If (Not IsNumeric(strCaract)) And (strCaract <> ".") Then strResultat = Mid(strChaine, intI) Exit Do End If   intI = intI + 1 Loop   ExtraireTexte = strResultat End Function
2. Ensuite, une variante de la fonction TotalPrefixes() des messages précédents.
Langage: Visual Basic
Function TotalPrefixes(ByVal strChaine As String) As Double Dim varValeurs As Variant Dim v As Variant Dim lngTotal As Double Dim strPartieTexte As String   ' Eclater la chaîne autour des espaces varValeurs = Split(strChaine, " ")   ' Additionner les valeurs de chaque sous-chaîne lngTotal = 0 For Each v In varValeurs strPartieTexte = ExtraireTexte(v) If IsNull(DLookup("[Code]", "tbl Codes exclus", "[Code]='" & strPartieTexte & "'")) Then lngTotal = lngTotal + Val(v) End If Next   ' Valeur finale TotalPrefixes = lngTotal End Function
On pourrait optimiser : le DLookup() sera lent si la fonction est utilisée sur un grand nombre de calculs.

3. Il faut enfin une table pour stocker les codes exclus. Dans mon exemple, la table s'appelle "tbl Codes exclus", et elle contient un seul champ qui est "Code".

Ouala !

-- Hervé Inisan.
SujetAuteurEnvoyé le

[AC07] Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435007/10/15 17:55

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan09/10/15 12:49

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435009/10/15 12:57

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan09/10/15 13:07

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435009/10/15 14:10

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435009/10/15 15:39

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435009/10/15 16:45

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan12/10/15 13:09

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435012/10/15 16:52

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan13/10/15 13:19

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435013/10/15 13:28

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan14/10/15 12:16

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435015/10/15 14:51

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan15/10/15 21:08

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

steph2435016/10/15 10:46

[AC07] Re: Extraire le préfixe (valeur numérique) d'un bloc de chaine de caractère

Hervé Inisan17/10/15 10:47

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter