Discussion :

[jeyjey44]

Bonjour,

Dans une macro VBA je cherche à appliquer un format à un nombre, avec une unité, sachant que cette dernière n'est pas toujours la même.

Je pense que ça doit être un truc comme ça :

Code :

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

1
2
3
4
Dim a As String
a = Range("D6").Value
    Range("C11").Select
    Selection.NumberFormat = "0.00" & a & ""

mais ça ne fonctionne pas, il me met :
erreur 1004 : impossible de définir la propriété number format de la classe range

ou le a correspond à l'unité (en chaine de caractères)
ceci est un exemple, après je me débrouille pour mettre ce que je veux dans le a, mais j'aurais voulu savoir si quelqu'un aurait une idée ?

Merci!

[LeForestier]

Bonjour,
Beh oui...

Code :

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

1
2
3
    Range("C11").Select
    Range("C11") = Range("D6")
    Selection.NumberFormat = "0.00"

Mais ce n'est peut-être pas ce que tu cherche ? explique un peu ce que tu veux mettre dans 'a'
A+

[JPierreM]

Chez moi ça fonctionne
par contre je ne vois pas l'intérêt de : & ""
à la fin du format

[jeyjey44]

merci messieur,

alors dans a je met sois Tonne ou kg ou encore litres...

par contre ta méthode Leforestier me remplace mon nombre de la case C11 par l'unité..
ce que je veux c'est, par exemple, écrire '4 litres' sachant que ça pourrait être kg ou Tonne, selon d'autres paramètres.
c'est pour ça que je voudrais pouvoir rentrer l'unité dans une variable, en chaîne de caractères, puis pouvoir appliquer à mon nombre le bon format (avec l'unité qu'il faut donc)

JpierreM ça fonctionne chez toi ? si dans D6 tu mets litres, et que dans C11 tu as un nombre (ex : 6.235) il te met 6.25 litres ?

[casefayere]

Bonjour,

essayes ça

Code :

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

Range("C11") = format(Range("D6"),"#0.00 kg")

[melouille56]

Salut jeyjey

je te propose

Code :

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

Selection.NumberFormat = "0.00 " & a

salut

[melouille56]

Et modifie ton

Code :

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

a = Range().Value

en

Code :

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

a = Range().Text

et ca devrait marcher

[casefayere]

re tout le monde,
je pensais aussi un truc à adapter

Code :

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

1
2
3
4
5
Sub essai()
Dim a As String, formatnom As String
a = "kg": formatnom = "#0.00 "
Range("C11") = Format(Range("D6"), formatnom & a)
End Sub

[jeyjey44]

merci, mais ça ne fonctionne pas

j'ai essayé ça :

Code :

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

1
2
3
4
    Dim a As String
    a = Range("D6").Text
    Range("C11").Select
    Selection.NumberFormat = "0.00 " & a

mais j'ai tjr l'erreur

et ta méthode casefyre me remplace C11 par l'unité
après je sais je me suis peut être mal expliqué (j'ai fait une modif de mon dernier message)

je cherche en fait à appliquer la bonne unité à un chiffre, les unités possibles se trouvant dans des cases