Discussion :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[m@tix]

En appliquant ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.