Première valeur en format $

J

jetted

XLDnaute Occasionnel

• 19 Janvier 2010

• #2

Re : Première valeur en format $

Pas certains ce que tu veux faire, mais si je comprends bien ceci devrais faire l'affaire

Code:

Sub formattage()
    RowCount = Cells(Cells.Rows.Count, "f").End(xlUp).Row
    
    Range("F1:F4").Select
    Selection.NumberFormat = "General"
    
    Range("F5:F8").Select
    Selection.NumberFormat = "$#,##0.00"
    
    Range("F9:F" & RowCount).Select
    Selection.NumberFormat = "General"
End Sub

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 19 Janvier 2010

• #3

Re : Première valeur en format $

Bonjour,

Merci Jetted pour ta réponse mais effectivement ma question n'était pas claire. Je veux que la première cellule de la plage f5 à f8 contenant une valeur soit en format $ avec 2 décimales et les autres de cette même plage en format standard.Exemple:

f5..........10,15$ f5............Rien
f6..........15,00 f6...........12,57$
f7..........23,99 f7...........32,69
f8..........11,39 f8...........22,00

Merci encore.

Denis

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 19 Janvier 2010

• #4

Re : Première valeur en format $

Rebonsoir,

Je repose ma question en essayant d'être plus clair.

Dans la plage f5:f8, si la cellule f5 contient la première valeur, donne lui le format $ avec 2 décimales, si la cellule f6 contient la première valeur, c'est elle qui aura le format $ avec 2 décimales .....Les autres cellules (de cette plage auront le format Standard). Je crois que seul une macro peux répondre à ma demande.

Encore merci

Denis

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 20 Janvier 2010

• #5

Re : Première valeur en format $

Rebonjour,

Est-ce possible?

Merci

Denis

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Janvier 2010

• #6

Re : Première valeur en format $

bonjour a tous

a tester

Code:

Sub test()
Range("F5:F8").NumberFormat = "General"
For n = 5 To 8
 If Range("F" & n) <> "" Then
   Range("F" & n).NumberFormat = "$#,##0.00"
   Exit For
 End If
Next n
End Sub

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 20 Janvier 2010

• #7

Re : Première valeur en format $

Bonjour,

Merci beaucoup PierreJean, C'est exactement ce que je voulais.

@+

Denis

 

Vote positif 0 Vote négatif