A voir également:
- Compter nombre de cellule sur excel
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
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
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
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
15 janv. 2010 à 09:56
merci pour t être penché sur mon problème. Je ne l ai pas encore testé par manque de temps.
Merci encore a+