Discussion :

[Ragnart]

Bonjour à tous,

une petite question, je travail sur un planning qui calcule les heures sup. j'ai créé un bouton de contrôle à l'aide d'une macro qui efface toutes mes colonnes de calcul jusqu’ici tout va bien.
seulement, j'aimerai que lorsque j'efface à l'aide du bouton, dans les colonnes et cellules s'affiche par défaut : 0,00 et ben... je n'y arrive pas !
quelqu'un peut me venir en aide... merci d'avance

[Zekraoui_Jakani]

Ceci pourrait aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub formattage()
    Sheets("sheet1").Range("d1").Value = 0
    Sheets("Sheet1").Range("d1").NumberFormat = "General"
    Sheets("sheet1").Range("d2").Value = 0
    Sheets("Sheet1").Range("d2").NumberFormat = "hh:mm:ss"
    Sheets("sheet1").Range("d3").Value = 0
    Sheets("Sheet1").Range("d3").NumberFormat = "hh:mm"
    Sheets("sheet1").Range("d4").Value = 0
    Sheets("Sheet1").Range("d4").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End Sub

[Ragnart]

bonjour merci Zekraoui_Jakani de vouloir m'aider, c'est sympa,
j'ai essayé le bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub formattage()
 Sheets("sheet1").Range("O4:O17").Value = 0
    Sheets("Sheet1").Range("O4:O17").NumberFormat = "Number"
    End Sub

mais cela ne fonctionne pas, la réponse est : L'indice n'appartient pas à la sélection ?

[Zekraoui_Jakani]

Essayez les formats qui sont fournis par XL, ou ceux prédéfinis par customization; voici une correction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub formattage()
    With Sheets("sheet1").Range("O4:O17")
        .Value = 0
        .NumberFormat = "0.00"
    End With
End Sub