Christian T
XLDnaute Nouveau
Bonjour le forum
Pour apprendre, je crée des macro fonctions et j'ai des problèmes de mise en forme.
Ainsi dans la procédure ci-dessous :
Function age(dn)
age = Int((Date - dn) / 365.25)
Selection.NumberFormat = '[>=2] 0'' ans'';0'' an'''
End Function
J'ai un problème de même nature avec une autre fonction que voici :
Function SommeRouge(MaPlage As Range)
Dim Cellule As Range
Dim TotalPartiel As Double
TotalPartiel = 0
For Each Cellule In MaPlage.Cells
If Cellule.Font.ColorIndex = 3 Then
TotalPartiel = TotalPartiel + Cellule.Value
End If
Next Cellule
SommeRouge = TotalPartiel
Selection.NumberFormat = '# #00,00'
End Function
Où est l'erreur?
Merci d'avance
Christian
Pour apprendre, je crée des macro fonctions et j'ai des problèmes de mise en forme.
Ainsi dans la procédure ci-dessous :
Function age(dn)
age = Int((Date - dn) / 365.25)
Selection.NumberFormat = '[>=2] 0'' ans'';0'' an'''
End Function
J'ai un problème de même nature avec une autre fonction que voici :
Function SommeRouge(MaPlage As Range)
Dim Cellule As Range
Dim TotalPartiel As Double
TotalPartiel = 0
For Each Cellule In MaPlage.Cells
If Cellule.Font.ColorIndex = 3 Then
TotalPartiel = TotalPartiel + Cellule.Value
End If
Next Cellule
SommeRouge = TotalPartiel
Selection.NumberFormat = '# #00,00'
End Function
Où est l'erreur?
Merci d'avance
Christian