Bonjour,

Public Function ExtraireNombre(ByRef voRange As Range) As Long
    ExtraireNombre = Val(voRange.Text)
End Function

Sub blabla()
            Cells(tre, 7).Value = ExtraireNombre(Cells(tre, 3))
 End sub

Cette ensemble me permet de récupérer les chiffres. Mais j'ai remarqué que lorsqu'il y a des décimales, des chiffres à virgules, il ne prend pas les décimales.
Serait-il possible de modifier le code pour la récupération des décimales??


Merci d'avance
!!!
+

Réponse acceptée !
salut,

Public Function ExtraireNombre(ByRef voRange As Range) As LongDouble

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

attention au fait que Val va attendre un "." comme séparateur, et non selon les parametres regionnaux

faire, pour gérer les deux :

Public Function ExtraireNombre(ByRef voRange As Range) As Double
    If IsNumeric( voRange.Text) Then
        ExtraireNombre = CDbl(voRange.Text)        
    Else
        ExtraireNombre = Val(voRange.Text)
    End If
End Function

ou peut-être simplement :

Public Function ExtraireNombre(ByRef voRange As Range) As double
    ExtraireNombre = voRange.VALUE
End Function

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

ah oui, tu me rappelle un truc

de mémoire, le but de passer par cette fonction etait d'extraire la valeur numérique dans "1991kjlhj"

ça me parle aussi, mais apparemment c'est pas lui.
Par contre il est vrai que s'il y a du texte dans sa cellule, il aura une erreur d'incompatibilité

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Slt oué j'ai prit cette fonction sur une autre rubrique.
NOn en faite dans ma cellule il n'y que des chiffres.

En faite cette fonction m'est pratique.
En effet ma cellule d'origine contient un chiffre (se chiffre est situé à gauche de la cellule!), j'ai remarqué que Excel ne voit pas ces chiffres.
De plus cette fonction, aussi bizarre que se soit, me permet de faire en sorte un copier de la cellule d'origine vers une autre cellule. ET là EXCEl voit bien qu'il y a un chiffre (maintenant le chiffre est à droite de la cellule)


Je ne sais pas si c'est clair mais merci de la modification apportée qui fonctionne !

c'est parce que ta cellule d'origine n'était pas en format Nombre mais chaines de caractères

Click droit sur tes cellules, format de cellule, premier onglet

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Oui j'avais essayé cette manip, mais bon sa ne change rien ...(ehehehhe)

En faite j'ouvre en fichier txt en .xls

Et comment t'y prends-tu pour ouvrir ou du moins pour insérer le fichier dans la feuille?

À l'aide des fonctions de fichiers Open, LOF ... tu peux copier le contenu du fichier dans une variable String et utiliser un DataObject pour le copier dans le presse-papier puis dans la feuille. Ça peut paraître un peu bizarre comme ça, mais le formatage des chiffres est en général conservé comme il se doit. C'est du moins mon expérience...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI