pascallac
Messages postés35Date d'inscriptiondimanche 7 septembre 2003StatutMembreDernière intervention12 mai 2005
-
6 mai 2005 à 10:46
pascallac
Messages postés35Date d'inscriptiondimanche 7 septembre 2003StatutMembreDernière intervention12 mai 2005
-
6 mai 2005 à 15:18
bonjour j'ais remarqué une erreur si mon champ W1 =< 1 sa valeur egal 100
Private Sub A1_DblClick(Index As Integer)
For i = 0 To 13
If W1(i) = "" Or W1(i) < "0" Then
W1(i) = 0
End If
W1(i) = Format(W1(i), "0.0")
A1(i) = W1(i) / 12
A1(i) = Format(A1(i), "0.00")
Next
End Sub
avec W1= 1,1 m^m probleme
si le nombre W1 est > à 1,2 ca fonction
pascallac
Messages postés35Date d'inscriptiondimanche 7 septembre 2003StatutMembreDernière intervention12 mai 2005 6 mai 2005 à 12:00
Ce qui me choque dans ceci : If W1(i) = "" Or W1(i) < "0" Then, cela veut dire que tu tests sur unc champ texte une valeur qui pourrait-être négative
oui possible si A1 = -2 ceci fonctionne sauf lorsque l'on met une lettre
Si tu as un champ texte pense à le convertir en numérique
peut etre que depuis le debut de mon programme (1er) mon erreur est de prendre des champ texte pour des valeur numerique mais je ne vois pas de champ numerique
De même ici: W1(i) / 12, tu divise un nombre ou un texte
c'est toujours une valeur numerique
Starec
Messages postés152Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention 5 mars 2007 6 mai 2005 à 10:56
Salut,
Ce qui me choque dans ceci : If W1(i) "" Or W1(i) < "0" Then, cela veut dire que tu tests sur unc champ texte une valeur qui pourrait-être négative, essaye If W1(i) "" Or cDbl(W1(i)) < 0 Then pour tester sur une valeur numérique
De même ici: W1(i) / 12, tu divise un nombre ou un texte ?
Si tu as un champ texte pense à le convertir en numérique avec : clng, cdb, etc
Va voir les fonctions de conversion dans l'aide