Compter nombre de cellule sur excel
toni1165
-
toni1165 -
toni1165 -
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
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
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
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
