Bonjour,
J'ai créé ma première Macro qui fait la somme des lignes d'une colonne tant que j'ai une valeur non vide dans une autre colonne.
Elle fonctionne bien et je souhaite mettre le résultat de la somme en Bold.
La macro est appelée dans une formule par drag and drop. Ce dernier me recopie la Font de la première cellule sémectionnée sur les autres. Cette Font prend le dessus sur la mise en Bold dans la fonction VBA. Comment puis-je faire? Merci.
Code VBA:
Function SommeValeursColonne8SiColonne2ContientUnNombre()
Dim ligne As Integer
Dim Sum As Long
Sum = 0
ligne = Application.Caller.Row + 1 'les nombres comptées démarrent sous la ligne ou la formule est appelée
'Résultat affiché en gras
Cells(ligne, 8).Font.Bold = True
'Sommer toutes les valeurs de la colonne 8 ayant un nombre en colonne 2
Do While Cells(ligne, 2).Value <> "" 'les nombre sont en colonne 2
If IsNumeric(Cells(ligne, 8).Value) = True Then 'valeurs à sommer en colonne 8
Sum = Sum + Cells(ligne, 8).Value
MsgBox Cells(ligne, 8).Font.Bold
End If
ligne = ligne + 1
Loop
'Retourner la somme dans la cellule
SommeValeursFichesMOE = Sum
End Function
J'ai créé ma première Macro qui fait la somme des lignes d'une colonne tant que j'ai une valeur non vide dans une autre colonne.
Elle fonctionne bien et je souhaite mettre le résultat de la somme en Bold.
La macro est appelée dans une formule par drag and drop. Ce dernier me recopie la Font de la première cellule sémectionnée sur les autres. Cette Font prend le dessus sur la mise en Bold dans la fonction VBA. Comment puis-je faire? Merci.
Code VBA:
Function SommeValeursColonne8SiColonne2ContientUnNombre()
Dim ligne As Integer
Dim Sum As Long
Sum = 0
ligne = Application.Caller.Row + 1 'les nombres comptées démarrent sous la ligne ou la formule est appelée
'Résultat affiché en gras
Cells(ligne, 8).Font.Bold = True
'Sommer toutes les valeurs de la colonne 8 ayant un nombre en colonne 2
Do While Cells(ligne, 2).Value <> "" 'les nombre sont en colonne 2
If IsNumeric(Cells(ligne, 8).Value) = True Then 'valeurs à sommer en colonne 8
Sum = Sum + Cells(ligne, 8).Value
MsgBox Cells(ligne, 8).Font.Bold
End If
ligne = ligne + 1
Loop
'Retourner la somme dans la cellule
SommeValeursFichesMOE = Sum
End Function
