récupération de données en fin de cellule

[sri75]

Bonjour je travaille sur des fichiers dont les cellules contiennent du texte et du numérique.

le numérique est toujours en fin de ligne

TOTAL A ................................ 305 480
B - A DEDUIRE ;
* TAXE PROFESSIONNELLE ; 5 613
- ASSURANCE MALADIE OBLIGATOIRE 9 687

je cherche une macro pour récuperer la valeur numérique en bout de ligne.

( fichier joint )

Merci pour vos conseils

 

[vbacrumble]

Re : récupération de données en fin de cellule

Bonjour


Avec une UDF en VBA (utilisant regexp)

Function numseul(r As Range)
Dim chiffres As String
Dim oReg As Object
Set oReg = CreateObject("vbscript.regexp")
With oReg
.Global = True
.IgnoreCase = True
.Pattern = "\D"
chiffres = .Replace(r.Text, "")
End With
numseul = IIf(Val(chiffres) = 0, vbNullString, Val(chiffres))
End Function

PS: c'est possible aussi en formule

 

[sri75]

Re : récupération de données en fin de cellule

Merci, j'avoue mal dominer l'utilisation d'une fonction et je ne comprends pas où la placer dans ma macro pour l'utiliser.

par exemple en général je me place sur la cellule et j'utilise taxepro=activecell.value

comment lancer cette fonction si ma variable est taxepro ?

merci d'éclairer ma lanterne sur ce point.

 

[vbacrumble]

Re : récupération de données en fin de cellule

Re

Tu utilises comme une formule classique

si en A1 tu as : TOTAL A ................................ 305 480

en b1: =numseul(A1)

renvoiera : 305480


Au préalable, tu auras copié le code VBA dans un module standard.
dans la le classeur contenant tes données.

Autrement comme je le disais précédemment une solution par formule parmi d'autres
( à tester avec tes données)

en B1:

=STXT(A1;MIN(TROUVE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"));SOMME(1+NBCAR(A1)-NBCAR(SUBSTITUE(A1;{0.1.2.3.4.5.6.7.8.9};""))))*1

 

[vbacrumble]

Re : récupération de données en fin de cellule

Re


Une autre formule pour la route

=SI(ESTERREUR(STXT(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"));(NBCAR(A1)+1)-MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789")))*1);"";STXT(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"));(NBCAR(A1)+1)-MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789")))*1)

 

[sri75]

Re : récupération de données en fin de cellule

ok j'ai enfin compris

Sub toto()

resultat = numseul(Range("a5"))

End Sub

Et là j'ai effectivement mon chiffre.

merci à beaucoup pour ton iade et ta patience

 

[sri75]

Re : récupération de données en fin de cellule

Une dernière question ; dans mes fichiers parfois il y a un chiffre en fin de cellule et parfois il n'y en a pas. Par contre je dois prévoir tous les cas et définir une variable par cellule.

ex a1=a
a2=b etc...

si fin en fin de macro j'ecris resultat = a + b et qu'en a1 il n'y avait pas de chiffre , ma variable vaut alors "" et l'addition génère une erreur.

Si en début de macro j'ecris dim a as long , a vaut zero mais j'ai une erreur 13 "incompatibilité" qui plante ma macro.

Une dernière astuce pour contourner ce problème ?

Merci d'avance.

 

[vbacrumble]

Re : récupération de données en fin de cellule

Re


Essayes en modifiant la function numseul comme ci-dessous
A la place de
numseul = IIf(Val(chiffres) = 0, vbNullString, Val(chiffres))

mettre

numseul = IIf(Val(chiffres) = 0, 0, Val(chiffres))

 

[sri75]

Re : récupération de données en fin de cellule

Merci, sinon en mettant un "on error resume next" ca passait.

Bonne journée