Variant vers nombre

Version imprimable

Variant vers nombre

Bonjour,

Je rapatrie des données dans un tableau, mais ces données étant de styles très divers, je suis contraint d'utiliser le type Variant dans les fonctions qui les traitent. Notamment, j'utilise la fonction suivante qui va uniquement récupérer le nombre lorsque celui-ci est précédé du signe <:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Function extraire_nbre(donnee As Variant) As Variant If donnee <> "" Then If InStr(1, donnee, "<") Then donnee = Right(donnee, Len(donnee) - 1) End If extraire_nbre = donnee End If End Function
Mon problème est que lorsque les nombres arrivent dans les cellules, ils ne sont pas considérés comme tels par Excel qui me les affiche donc à gauche de la cellule (et me propose de les convertir en nombre). A cause de cela je ne peux les traiter dans mes graphiques. Sauriez-vous comment faire pour contourner le problème ?

Merci d'avance.

19/08/2011, 12h13
jfontaine

Bonjour,

Si tu retourne toujours du numérique utilise un type de variable numérique en retour (ici long si pas de décimal)

Code:

Function extraire_nbre(donnee As Variant) As Long
19/08/2011, 12h15
Orhleil

Je suis d'accord avec jfontaine. J'ajouterais même que si tu souhaites renvoyer un Long (comme dans l'exemple de jfontaine), il faut le convertir :

Code:

extraire_nbre = CLng(donnee)
19/08/2011, 13h24
m@tix

Merci à tous les deux, mais l'ennui, c'est que souvent les données qui arrivent sont de la forme <2.1, et non <2,1, du coup chacune de vos méthode plante à l'exécution.. :calim2:
19/08/2011, 13h30
jfontaine

Convertis en valeur

Code:

donnee = Val(Right(donnee, Len(donnee) - 1))

En appliquant ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function extraire_nbre(donnee As Variant) As Variant
 
If donnee <> "" Then
 
    If InStr(1, donnee, "<") Then
 
        donnee = Val(Right(donnee, Len(donnee) - 1))
 
    End If
 
    donnee = Val(Right(donnee, Len(donnee) - 1))
 
    extraire_nbre = donnee
 
End If

ça me transforme les 2.3 en 0,3, les <2.3 en 0. :calim2:

Tu as mis 2 fois la ligne qui supprime le premier caractère.

Gère le symbole décimale au début du code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function extraire_nbre(donnee As Variant) As Double
 
donnee = Replace(donnee, ",", ".")
 
If donnee <> "" Then
 
    If InStr(1, donnee, "<") Then
 
        donnee = Replace(donnee, "<", "")
 
 
   End If
 
    extraire_nbre = donnee
 
End If
End Function

Code que l'on peut raccourcir comme suit

Code:

1
2
3
4
5
6
7
Function extraire_nbre(donnee As Variant) As Double
 
donnee = Replace(donnee, ",", ".")
donnee = Replace(donnee, "<", "")
extraire_nbre = donnee
 
End Function

heu...!

bonjour

essaie cet exemple

Code:

1
2
3
4
5
6
Sub conversion_string_to_long()
Dim i As Long, s As String
    s = Right(">24", Len(">24") - 1) 'on enleve le symbole
    i = s +1 'ici on ajoute 1 a s pour i
    MsgBox i ' le message affiche 25 l'adition a reussi!!!donc c'est bien un type long (numeric)
End Sub

a adapter a ta fonction
au plaisir

22/08/2011, 08h41
m@tix

Bonjour,

Je viens d'essayer l'ensemble de vos codes, ça marche, et je vous en remercie ! :ccool:
En fait, j'ai quand même dû modifier la ligne

Code:

donnee = Replace(donnee, ",", ".")

en

Code:

donnee = Replace(donnee, ".", ",")

Seul un petit problème persistte.. Quand la variable donnee est vide (""), les fonctions me renvoient 0, alors que je souhaiterais ne rien renvoyer... Est-ce envisageable ?
22/08/2011, 09h26
jfontaine

La fonction retournant un type e donnée numérique, ce n'est pas possible via la fonction.
Par contre, il te suffit de tester le résultat dans la formule de la cellule

Code:

=si(extraire_nbre(A2)=0;"";extraire_nbre(A2))
22/08/2011, 09h55
m@tix

Ok, je vais essayer de me débrouiller avec ça alors !

Encore merci pour tout ! :ccool: