Excel programmer bouton pour mise en forme de cellule automatique

keben666 Messages postés 2 Date d'inscription jeudi 4 septembre 2008 Statut Membre Dernière intervention 4 février 2009 - 19 nov. 2008 à 15:44
keben666 Messages postés 2 Date d'inscription jeudi 4 septembre 2008 Statut Membre Dernière intervention 4 février 2009 - 21 nov. 2008 à 09:22
Bonjour
Je suis plus que débutant en VB... et j'aurais voulu pouvoir creer deux boutons dans une feuille excel pour changer une colonne en euro ou keuro lorque on appui desssus.

voila le peu que j'ai produit sans succés aucun!

Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Selection.NumberFormat = "# ##0,00\ [$€]"
End Sub


j'imagine que pour des pros ça va être simplissime mais pour moi...tout coup de main sera o combien bienvenue!
merci a tous

4 réponses

dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 2
19 nov. 2008 à 19:47
Bonjour ,

Essaie d'utiliser la fonction "NumberFormatLocal"

Un exemple de format ,sur la feuille 1 et dans la colonne D:
Feuil1.Columns("D").NumberFormatLocal = "# ###.00 €"

A+
0
userrrqi115 Messages postés 181 Date d'inscription mardi 18 novembre 2008 Statut Membre Dernière intervention 4 février 2011
19 nov. 2008 à 20:30
Hello,

Ce truc là :
Feuil1.Columns("B").NumberFormat = "###,#00,k$"

t'affichera ton nombre avec séparateur de milier et unité "k€"

BR

USERRRQI115
Simple user
Great brain
0
userrrqi115 Messages postés 181 Date d'inscription mardi 18 novembre 2008 Statut Membre Dernière intervention 4 février 2011
19 nov. 2008 à 20:35
Oups

1 zero de trop . Feuil1.Columns("B").NumberFormat = "###,#0,k$"

BR

USERRRQI115
Simple user
Great brain
0
keben666 Messages postés 2 Date d'inscription jeudi 4 septembre 2008 Statut Membre Dernière intervention 4 février 2009
21 nov. 2008 à 09:22
merci pour cette réponse... ça marche impeccable...
0
Rejoignez-nous