Tom's Guide > Forum > Programmation > Excel et VB : compter le nombre de cellules de la meme couleur

Excel et VB : compter le nombre de cellules de la meme couleur

Forum Programmation : Excel et VB : compter le nombre de cellules de la meme couleur

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
Y0hAn   24-06-2004 à 15:22:11

est il possible avec VB sous Excel de comptabiliser le nombre de cellule de la meme couleur ?

j'ai obtenu ce code mais il ne marche pas :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = vbRed Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
end if
End Sub

merci pour votre aide

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
quazardous   24-06-2004 à 16:16:15
- 0 +

dis nous plutot sous quelle condition les cellules sont grises on comptera alors les cellule qui remplisset cette condition ....

Répondre à quazardous
folofly   11-04-2005 à 16:09:56
- 0 +

Citation :


If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
end if
End Sub



Supprime déjà le -... end if ...- ci-dessus :-D

Répondre à folofly
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Excel et VB : compter le nombre de cellules de la meme couleur
Aller à :

Il y a 2827 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,238 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens