Comment désigner 2 chiffres dans macro?

P

Pascal76

Guest

• 22 Novembre 2004

• #2

Bonjour

essaies ceci

Range("P" & l).Value = Format(Range("c" & l), "000.00") & "*" & Format(Range("d" & l), "000.00") & "*" & Format(Range("e" & l), "000.00")

Bonne journée

Pascal

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #3

Merci pour la rapidité de la réponse,et pour le code qui marche bien.
Une dernière petite question : est-il possible, si en C1=26, en D1=65.3 et en E1=152.99 d'obtenir en P1 le résultat 026*065.3*152.99

Merçi d'avance
Cordialement, JP

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #4

Re,
Je viens de trouver un élément de réponse.
En écrivant :

Range("P" & l).Value = Format(Range("c" & l), "000.##") & "*" & Format(Range("d" & l), "000.##") & "*" & Format(Range("e" & l), "000.##")


j'obtiens presque le résultat que je voudrais.
Mais si j'écris en C1:25, en D1:56.6 et en E1:898.99, j'obtiens en P1:025.*056.6*898.99.

Y aurait-il en moyen d'enlever le point lorsqu'il n'y a pas 00 derière?(c'est à dire obtenir 025*56.6*898.99)

Merçi

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Novembre 2004

• #5

re

J'en étais là avec le problème du point et je suis en train de voir

Pascal

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Novembre 2004

• #6

Bon j'ai pas trouvé avec le format directement donc je te propose quelque chose mais un peu plus long

Var = ""
For x = 3 To 5
If Cells(l, x) = CInt(Cells(l, x)) Then
Var = Var & "*" & Format(Cells(l, x), "000")
Else
Var = Var & "*" & Format(Cells(l, x), "000.##")
End If
Next
Range("P" & l) = Right(Var, Len(Var) - 1)

Bon courage

Pascal

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #7

J'ai éssayé et ça marche impeccable.
Merçi beaucoup.
Cordialement, JP

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #8

RE-RE!
Encore une petite question : j'ai du mal à comprendre la signification de ce code.
Pourriez-vous me détailler les lignes pour pouvoir les comprendre, et au besoin m'en reservir un jour?
Merçi.
JP

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Novembre 2004

• #9

Re

Juste un petit truc tu peux me tutoyer sinon j'ai l'impression d'être un vieux crouton (LOL) et c'est plus sympa

Var = "" 'Remise à zéro de la variable
For x = 3 To 5 'boucle sur les colonnes numéro 3 à 5 (C à E)
If Cells(l, x) = CInt(Cells(l, x)) Then 'Si la cellule est un entier
Var = Var & "*" & Format(Cells(l, x), "000") ' ajout à la variable Var le sigle * et la valeur au format sans la décimale
Else 'Sinon (si la cellule a des decimales)
Var = Var & "*" & Format(Cells(l, x), "000.##") 'ajout à la variable Var le sigle * et la valeur au format que tu avais trouvé toi-même
End If 'fin condition
Next 'boucle sur les 3 colonnes
Range("P" & l) = Right(Var, Len(Var) - 1) 'je mets dans la cellule de la colonne P de la même ligne la variable Var sans le premier caractère *

Pascal

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #10

OK, je te remercie pour cette explication bien détaillée.
Bonne après-midi et à bientôt peut-être.
JP

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #11

Allez, une petite dernière pour la route!
Pour désigner une cellule qui contient un entier, tu écris :
If Cells(l, x) = CInt(Cells(l, x)) Then


Mais quel serait le code pour désigner un nombre à virgule.
En gros, comment on déclare un réel?(En Pascal, on dit real, mais en VBA?)
Merçi encore une fois pour ce p'ti renseignement
JP

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 22 Novembre 2004

• #12

Salut"jpdestetienne!" salut "Pascal"
je me permets
Csng(expression)
If Cells(l, x) = Csng(Cells(l, x)) Then
tu peux trouver les differentes fonctions dans l'aide VBA
un petit extrait
Fonction Type renvoyé Plage de valeurs de l'argument expression
CBool Boolean
Toute chaîne ou expression numérique valide.
CByte Byte
0 à 255.
CCurCurrency
-922 337 203 685 477,5808 à 922 337 203 685 477,5807.
CDate Date
Toute expression de date valide.
CDbl Double
-1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
CDec Decimal
+/-79 228 162 514 264 337 593 543 950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28 décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est 0,0000000000000000000000000001.
CInt Integer
-32 768 à 32 767 ; les fractions sont arrondies.
CLng Long
-2 147 483 648 à 2 147 483 647 ; les fractions sont arrondies.
CSng Single
-3,402823E38 à -1,401298E-45 pour les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CStr String
Les valeurs renvoyées par la fonction Cstr dépendent de l'argument expression.
CVar Variant
Même plage de valeurs que le type Double pour les nombres et que le type String pour les chaînes non numériques.
A+++
Jean Marie

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #13

Ouah, pour être complet, on peut dire que c'est complet!
Merçi beaucoup pour ces informations qui vont m'être bien utile pour la suite!
A bientôt et bonne après-midi.
Cordialement, JP from Saint-Etienne(allez les verts!!)

 

Vote positif 0 Vote négatif

J

jpdestetienne!

Guest

• 22 Novembre 2004

• #14

Bon, là je m'arrache tellement les cheveux que si ça continue, je n'en n'aurais plus!
Malgré le grand nombre de réponses que vous m'avez tous apporté depuis ce matin, je n'arrive toujours pas à résoudr mon problème.

Je veux que les colonnes C,D,E soient au format 000,## mais sans que la virgule apparaise s'il n'y a as de décimal( si je tape 25, je veux avoir 025, si je tape2,3 je veux avoir002.3 etc)

J'ai donc, dans le code VBA de mon UserForm de saisie de données, tapé ceci(exemple pour colonne C seulement):


Range("C" & l + 10).Value = TextBox2.Value
x = 3
If Cells(l + 10, x) = CInt(Cells(l, x)) Then
Range("C" & l + 10).Value = Format(Cells(l + 10, x), "000")
Else
Range("C" & l + 10).Value = Format(Cells(l + 10, x), "000.##")
End If
Range("C" & l).Value = Range("C" & l + 10).Value
Sheets("tableau").Range("C" & l + 10).ClearContents


Le problème, c'est que s'il n'y a pas de décimal, la virgule est toujours affichée.
Je pense que je suis vraiment près du but, mais là j'ai vraiment plus d'idée.
Est-ce que quelqu'un pourrait m'aider?
Merçi d'avance.
Cordialement, JP

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 22 Novembre 2004

• #15

Re

Range("C" & l + 10).Value = TextBox2.Value
x = 3
If Cells(l + 10, x) = CInt(Cells(l+10, x)) Then '<<====== Ici une erreur
Range("C" & l + 10).Value = Format(Cells(l + 10, x), "000")
Else
Range("C" & l + 10).Value = Format(Cells(l + 10, x), "000.##")
End If
Range("C" & l).Value = Range("C" & l + 10).Value
Sheets("tableau").Range("C" & l + 10).ClearContents

Pascal

 

Vote positif 0 Vote négatif