Probléme de type VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probléme de type VBA

bobo19

Bonjour,

Voici mon code VBA que j applique sous excel, la boucle fonctionne correctement mais lors de l'éxécution certaines valeurs sont erronées : elles affichent trop de décimal (environ 10^-8). Sauriez vous pourquoi?

Code :

Sub NeauGraphique2()
Dim N As Double, L As Double
Dim Graphique As ChartObject
N = -2
With ActiveWorkbook.Worksheets("Polynomes" )
.Range("A1" ) = "Valeurs X"
.Range("B1" ) = "N+10"
.Range("C1" ) = "N+5"
For L = 2 To 402
.Range("A" & L) = "X=" & N
.Range("B" & L) = N + 10
.Range("C" & L) = N + 5
N = N + 0.01
Next L
.Range("A:C" ).Columns.AutoFit
Set Graphique = .ChartObjects.Add(0, 140, 600, 450)
End With
Graphique.Chart.SetSourceData Worksheets("Polynomes" ).Range("A1:C401" )
End Sub

Merci d avance pour votre réponse

Publicité

olivthill

:hello:
Peut-être que NumberFormat résoudrait le problème.

...
.Range("B" & L).NumberFormat = "##########0.00"
.Range("B" & L) = N + 10
.Range("C" & L).NumberFormat = "##########0.00"
.Range("C" & L) = N + 5
...

Message édité par olivthill le 15-01-2007 à 21:11:10

bobo19

Cette solutione ne fonctionne pas pour moi, c'est meme au niveau de la colonne A quand la boucle affecte ces valerus qu il y a un probléme!

olivthill

Bon, si c'est pour la colonne A, il faut mettre :

.Range("A" & L).NumberFormat = "##########0.00"

Edit :
Je viens de relire le programe initial, et je vois qu'il s'agit d'une chaine de caractère au lieu d'un champ numérique.
Dans ce cas il faudrait agir au niveau de la ligne

.Range("A" & L) = "X=" & N

en la remplaçant par

.Range("A" & L) = "X=" & CStr(CInt(N * 100) / 100)

CInt() fait une conversion en entier et CStr() fait une conversion en chaine de caractères.
Ou bien, il faudrait essayer avec les fonctions d'arrondis, mais je ne les ai pas en tête (je ne sais plus si c'est floor ou round).

Message édité par olivthill le 17-01-2007 à 20:44:30

bobo19

Parfait!!!Merci beaucoup!!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Probléme de type VBA

Sujets relatifs
probleme avec EasyPHP	Problème de compréhension avec un ligne de shell
{flash 8} probleme d'arrêt sur un bouton	Problème avec requete SELECT .. WHERE
Problème java sous Firefox, ok sous IE	[FLASH 8]probleme lien interne a un site flash
problème d'ip avec php	Opérations matrices problème structure pointeur
probleme de code php pour atcivé un bouton desactivé	[Javamail] Comment extraire les PJ de type mail ?
Plus de sujets relatifs à : Probléme de type VBA

Page générée en 0.039 secondes