[XL-2007] Variant vers nombre [Résolu]

[m@tix]

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.

[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

[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)

[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..

[jfontaine]

Convertis en valeur

Code :

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

[m@tix]

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.

[jfontaine]

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

[patricktoulon]

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

[m@tix]

Bonjour,

Je viens d'essayer l'ensemble de vos codes, ça marche, et je vous en remercie !
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 ?

[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))

[m@tix]

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

Encore merci pour tout !