Format Variable

[Bruce68]

Bonjour à tous


Dans les variables: Tot; Tot1 et Tot2 le chiffre est toujours sans les chiffres derrieres la virgule .
Range("AR" & N) ) = 2485.2 Tot = 2485
La colonne AR est formatée en Chiffre monétaire ( 0.00 €)meme en la mettant Standard à 2 chiffres cela ne change rien

Private Sub ListBox1_Click()

Dim client As String
Dim N As Integer
client = ListBox1.List(ListBox1.ListIndex)
For N = 2 To Range("C65536").End(xlUp).Row
If Range("C" & N) & " " & Range("D" & N) = client Then Tot = Tot + Range("AR" & N)
If Range("C" & N) & " " & Range("D" & N) = client Then tot1 = tot1 + Format(Range("AK" & N), "0.00 €")
If Range("C" & N) & " " & Range("D" & N) = client Then tot2 = tot2 + Format(Range("AL" & N), "0.00 €")
If Range("C" & N) & " " & Range("D" & N) = client Then XX = Range("A" & N)
Next N

Pourquoi ce phenomene.
Merci de votr aide

 

[fanfan38]

Re : Format Variable

Bonjour
Tout d'abord pourquoi 4 fois la même condition...
Dim client As String
Dim N As Integer
client = ListBox1.List(ListBox1.ListIndex)
For N = 2 To Range("C65536").End(xlUp).Row
If Range("C" & N) & " " & Range("D" & N) = client Then
Tot = Tot + Range("AR" & N)
tot1 = tot1 + Format(Range("AK" & N), "0.00 €")
tot2 = tot2 + Format(Range("AL" & N), "0.00 €")
XX = Range("A" & N)
endif
Next N
Le résultat est le même mais la macro sera plus rapide...(et c'est plus propre)
Pour ton problème:
il faut savoir que le fait de mettre format... le chiffre devient texte (de plus ça ne sert à rien dans une macro tot1 +Range("AK" & N) aura le même résultat (format n'est utilisé que pour l'affichage)...
Ta variable est déclaré comment (double, long ou integer)?

A+ François

 

[Bruce68]

Re : Format Variable

Bonjour Fanfan38
Merci pour la reponse , mais la macro ainsi faite ne fonctionne plus.
Pourquoi 4 fois la meme condition : pour faire un total de plusieurs cellulles dans plusieurs colonnes et la quatrieme pour une autre condition.


For N = 2 To Range("C65536").End(xlUp).Row
If Range("C" & N) & " " & Range("D" & N) = client Then Tot = Tot + Range("AR" & N)
Me.TextBox2 = Tot ( Résultat= 20582) pas de chiffre apres la virgule
Avec F8= Tot= 20582; Tot + Range("AR" & N)= 20582.20 dans aucun des 2 cas il y a "20582" & "20582.20"
dans ce 2° cas meme colonne meme cellule resultat conforme
If Range("A" & z) = XX Then
Me.TextBox2 = Format(Range("AR" & z), "0.00 €") = 20580.20
Merci de votre aide.

 

[Roland_M]

Re : Format Variable

bonsoir
les variable Tot Tot1 et Tot2 sont peut être définit comme entière !
ex par Defint A-Z au début du module
pour avoir les valeurs avec (,) il faut les nommer comme ceci
Tot! = Tot! + ....
Tot1! = Tot1! + ....
Tot2! = Tot2! + ....
etc...
Roland

 

[Bruce68]

Re : Format Variable

Bonsoir Roland_M
Merci de ta reponse.
J'ai declare les Variables Top; Tot1 & Tot2 AS Double et ça marche .
Mettre Tot! = Tot! + cela ne fonctionne pas.
Bonne soirée à tous