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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBAcEXCEL03][DOne] Faire la SUM des cellules qui ne sont pas en gras

sakuraba

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

Publicité

watashi

La démotivation : JAMAIS !

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 ;-)

sakuraba

merci je vais regarder ça

sakuraba

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

watashi

La démotivation : JAMAIS !

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 ;-)

galopin01

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

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

watashi

La démotivation : JAMAIS !

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 ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Mettre texte en gras en js ou css dynamiquement	sélection de cellules avec la fonction DROITEREG()
Remplacer N° de ligne cellules par variables	[VBA-EXCEL 2003] [DONE]Date aujourd'hui dans valeur par defaut textbox
Info cellules sur forum php pour couleur css	[VBA-EXCEL ][DONE]Mise en forme d'un graphique à taille variable
[VBA-EXCEL 2003] Dupliquer une feuille complete [DONE]	[VBA-EXCEL{DONE} faire la somme des cellules A1 de toutes les feuilles
Gras italique et souligné pour générer une image : impossible??	Mettre un fond, et écriture en gras
Plus de sujets relatifs à : [VBAcEXCEL03][DOne] Faire la SUM des cellules qui ne sont pas en gras

Page générée en 0.065 secondes