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
A voir également:
- Compter nombre de cellule sur excel
- Nombre de jours entre deux dates excel - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
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
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
merci pour t être penché sur mon problème. Je ne l ai pas encore testé par manque de temps.
Merci encore a+