Excel Vb nombre de cellule en couleur [Résolu]

Signaler
Messages postés
7
Date d'inscription
samedi 24 janvier 2004
Statut
Membre
Dernière intervention
15 juin 2005
-
Messages postés
7
Date d'inscription
samedi 24 janvier 2004
Statut
Membre
Dernière intervention
15 juin 2005
-
Bonjour



besoin d'1 peu d'aide...

Comment en Vb compter des cellules suivant leur couleur.Exemple:

Dans une plage A1:D10 je mets 3 cellules quelconques en jaune alors F1=3.

J'enlève une cellule jaune alors F1=2.

Merci d'avance

3 réponses

Messages postés
15
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
1 mars 2007

Si tu précises le contexte tu pourras peut être obtenir une réponse plus précise.



Tu peux tjs essayer de tester la propriété Range("A1").Interior.Color ou ColorIndex en VBA
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 105 internautes nous ont dit merci ce mois-ci

Messages postés
195
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
30 novembre 2009

tu fais :

bouton droit sur l'onglet de la feuille -> visualiser le code

la tu as une fenetre au milieu de l'écran. En haut de la fenêtre, 2
menus déroulant ( (Général) et (déclaration).). Dans celui de gauche tu
sélectionne "Worksheet", dans celui de droite "SelectionChange"

2 lignes apparaissent , tu recopies:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cellule As Range

Dim Nb As Integer

Nb = 0

For Each cellule In Range("A1:D10")



If cellule.Interior.ColorIndex = 6 Then

Nb = Nb + 1

End If

Next cellule



Range("F1").Value = Nb

End Sub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 105 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
samedi 24 janvier 2004
Statut
Membre
Dernière intervention
15 juin 2005

Merci c'est ce que je voulais....

@+
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 105 internautes nous ont dit merci ce mois-ci