[VBAcEXCEL03][DOne] Faire la SUM des cellules qui ne sont pas en gras

Marsh Posté le 05-12-2005 à 11:03:04

bonjour,

j'ai besoin de faire la somme ( cellule rouge ) des cellules en jaune sans compter les cellules en gras

soit en VBA soit par une formule =SI(...)

merci d avance

Message édité par sakuraba le 05-12-2005 à 12:24:04

Reply

Marsh Posté le 05-12-2005 à 11:03:04

Reply

Marsh Posté le 05-12-2005 à 11:56:42

Salut sakuraba,

pour savoir quelle est la couleur d'une cellule et définir si elle est en gras, tu peux utiliser ceci :

Code :

Sub CouleurStyleCellule()
MsgBox (ActiveCell.Font.Bold)
MsgBox (ActiveCell.Interior.ColorIndex)
End Sub

Ensuite en macro, dans le code de la feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) où target est ta zone à additioner, tu peux faire une boucle avec test sur le format de la cellule et déclenche un total automatique que tu affiches dans la case rouge.

Si tu as besoin de plus d'aide je pourrais voir ça peut-être cet après midi

@+

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Reply

Marsh Posté le 05-12-2005 à 12:06:47

merci je vais regarder ça

Reply

Marsh Posté le 05-12-2005 à 12:23:26

voila la solution merci watashi

Code :

Sub TotalHT()
Dim i
Total = 0
For i = 24 To 40
If Range("F" & i).Font.Bold = False Then
Total = Total + Range("F" & i).Value
Else
End If
Next i
Range("F42" ).Value = Total
End Sub

Reply

Marsh Posté le 05-12-2005 à 14:01:56

Tiens si tu l'inclues dans worksheet_selectionchange ça te donnes ça :

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, total As Currency
If Target.Column = 6 Then
If Target.Row < 40 And Target.Row > 24 Then
For i = 24 To 40
If Cells(i, 5).Value <> "" And Cells(i, 5).Font.Bold = False Then
total = total + Cells(i, 5).Value
Else
End If
Next i
Range("F42" ).Value = total
Else
End If
Else
End If
End Sub

bon courage

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Reply

Marsh Posté le 06-12-2005 à 03:03:36

ben,
si la zone en jaune est H2:H30 alors total :
= SOMME(H2:H30)/2
?

---------------
roger

Reply

Marsh Posté le 06-12-2005 à 09:14:31

bien vu galopin
C'est même la sollution la plus simple si ça corresponds au sous-total.

Ca m'avait pas sauté aux yeux lol

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Reply

[VBAcEXCEL03][DOne] Faire la SUM des cellules qui ne sont pas en gras

Sujets relatifs:

Leave a Replay