Format pour une colonne en VB

T

Thierry

Guest
Bonjour,

je souhaite en VB assigner le format pourcentage avec 2 décimales à toute une colonne ou le format numérique sans décimale avec séparateur de milliers.

Comment je m'y prends ? Je n'arrive pas à exploiter correctement l'aide en ligne VB pour trouver la solution

Worksheets(nom).Range(A1:A10).?????? = ??????
ou autre chose

Merci pour le coup de main.

Thierry
 

myDearFriend!

XLDnaute Barbatruc
Bonjour Thierry, le Forum.

Voici comment faire Thierry (grâce à l'enregistreur de macro) :
[ol][li]Menu Outils/Macros/Nouvelle Macro...[/li]
[li]Choisir Enregistrer la macro dans : 'Ce classeur'[/li]
[li]Sélectionner la plage A1:A10[/li]
[li]Puis, menu Format/Cellules... onglet Nombre : choisir pourcentage et régler Nombre de décimales à   2.[/li]
[li]Puis, menu Outils/Macros/Arrêter l'enregistrement.[/li]
[li]Ensuite tu fais ALT+F11 pour accéder à l'éditeur VBE et dans Module1 tu trouveras le code ci-dessous :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/09/2005 par XXXX
'
      Range('A1:A10').Select
      Selection.NumberFormat = '0.00%'
End Sub
[/li]
[li]Tu obtiens ainsi le code souhaité.[/li][/ol]
Et si tu veux améliorer un peu ce code (la sélection de cellule n'étant pas obligatoire pour modifier cette dernière par VBA), tu peux le mettre sous cette forme :
Worksheets(nom).Range('A1:A10').NumberFormat = '0.00%'
Cordialement,
 

Hervé

XLDnaute Barbatruc
Bonjour thierry, le forum

Dans ces cas, j'utilise l'enregistreur de macro, qui me donne :

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 01/09/2005 par Compaq_Propriétaire
'

'
    Range('E11').Select
    Selection.NumberFormat = '0.00%'
    Range('E12').Select
    Selection.NumberFormat = '#,##0'
End Sub

et j'adapte le code à mon point précis :

Sub Bouton2_QuandClic()
Worksheets('Feuil1').Range('A1:A10').NumberFormat = '0.00%'
Worksheets('Feuil1').Range('B1:B10').NumberFormat = '#,##0'
End Sub

Au moins je suis sur de la synthaxe;

salut
 

Discussions similaires

Statistiques des forums

Discussions
312 927
Messages
2 093 689
Membres
105 783
dernier inscrit
Maya33