Compter nombre de cellule sur excel

Fermé
toni1165 - 11 janv. 2010 à 22:26
 toni1165 - 15 janv. 2010 à 09:56
Bonjour,
voila j ai un petit soucis, je dois compter dans un tableau excel, les cellules ayant la même couleur de fond et ayant le même contenu (ex: case ayant la couleur "rouge" et ayant la lettre "m").
Je suppose qu'une solution sans macro n est pas possible mais si c est faisable, je préfère.
merci d'avance

1 réponse

jejelefou Messages postés 304 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 18 février 2016 42
12 janv. 2010 à 15:07
Bonjour,

Helas je n'ai pas trouvé sans VB

voici ce que j'ai fait

A toi de l'adapter à tes besoin

bon courage

: Sub couleuretvaleurbis()

coldebut = InputBox("entrez le numero de la colonne du debut de tableau")
colfin = InputBox("entrez le numero de la colonne de fin de tableau")
lignedebut = InputBox("entrez le numero de la ligne du debut de tableau")
lignefin = InputBox("entrez le numero de la ligne de fin de tableau")
a = InputBox("couleur") 'couleur : 1=noir, 2=blanc, 3=rouge, 4=vert, 5= bleu, 6=jaune, 7=rose, 8=cyan")
valeur = InputBox("entrez le texte recherché")
compteur = 0

For i = coldebut To colfin
For j = lignedebut To lignefin
If 3 = Cells(j, i).Interior.ColorIndex And Cells(j, i).Value = valeur Then
compteur = compteur + 1
End If
Next
Next
Cells(lignefin + 1, colfin + 0).Value = compteur
End Sub
0
salut
merci pour t être penché sur mon problème. Je ne l ai pas encore testé par manque de temps.
Merci encore a+
0