Première valeur en format $

[Denis132]

Bonjour à tous,

Je suis absolument nul pour créer une macro.
Ce que j'ai besoin, c'est que la première cellule de f5 à f8 qui contient une valeur soit en format $ avec 2 décimales et les autres en format standard.

Merci

@+

Denis

 

[jetted]

Re : Première valeur en format $

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

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

 

[Denis132]

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

 

[Denis132]

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

 

[Denis132]

Re : Première valeur en format $

Rebonjour,

Est-ce possible?

Merci

Denis

 

[pierrejean]

Re : Première valeur en format $

bonjour a tous

a tester

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

 

[Denis132]

Re : Première valeur en format $

Bonjour,

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

@+

Denis