Formater plusieurs variables en 1 fois

[Fab]

Bonjour,
J'ai environ 50 variables enregistrées. Toutes correspondent à des chiffres avec plusieurs décimales
Je souhaite inscrire les valeurs de ces variables dans des cellules. Seulement je ne souhaite afficher qu'une seule décimale.
Suis-je obligé pour chaque variable de taper :
Variable01 = Format(Variable01, "0.0")
Variable02 = Format(Variable02, "0.0")
...
ou existe-t-il un moyen de toutes les formater en même temps ?
Merci d'avance.

 

[Dan]

Bonjour,

Je ne sais pas si cela peut convenir mais ce que tu peux faire c'est attribuer un nom au 50 cellules de destination.

Pour ce faire :

1. sélectionne les cellules de destination
2. attribue un nom via menu / insertion / définir un nom (ex : "tablo")
3. appelle ce nom (via la zone nom à coté de la barre des formules)
4. fais menu / format / cellule pour appliquer le format désiré

en commande macro, cette instruction appellera le nom défini : Application.Goto Reference:="tablo"

Est-ce que cela peut te convenir ?

Dans l'attente de te lire

@+

Dan

 

[@+Thierry]

Hello Dan, Fab

Rapidos, vraiment rapidos, sans aucun test... Mais pour l'idée :


Dim Variable(50) As Double
Dim i As Byte

Variable(1) = TextBox1
Variable(2) = TextBox2
Variable(3) = TextBox3
Variable(4) = TextBox4
Variable(5) = TextBox5
Variable(6) = TextBox6
' Etc....

For i = 1 To 50
If Not IsEmpty(Variable(i)) Then
Variable(i) = Format(Variable(i), "0.0")

'... Etc

Bon App
@+Thierry


PS Remarque Perso : 50 variables c'est pas un peu beaucoup ??? Faudrait ptet voir si elles sont rééllement ustiles ?