Problème dans mon code

[Tungstene]

Bonjour, mon code ne fonciotnne pas, quelqu'un aurait il une idée svp?

Private Sub Worksheet_Activate()

With Range('B11:AK11')
.Value = Format(.Value, '###0.00')
End With

With Range('B15:AK15')
.Value = Format(.Value, '0.00%')
End With

End Sub

 

[PascalXLD]

bonjour

essaies plutot

Range('B11:AK11').NumberFormat= '###0.00'
Range('B15:AK15').NumberFormat= '0.00%'

Message édité par: Pascal76, à: 24/11/2005 11:44

 

[toubib]

essaye comme ça, ça a l'air de marcher:

Range('B11:AK11').Select
Selection.NumberFormat = ('###0.00')

Range('B15:AK15').Select
Selection.NumberFormat = ('0.00%')

edit: argh j'ai été trop lent

Message édité par: toubib, à: 24/11/2005 11:45

 

[Tungstene]

Impecc ça marche, j'ai opté pour la solution de pascal76

Merci et a+