Je continue mon travail et me voila bloquer sur qq chose.
j'ai isoler des "doublons" en comparaison de deux tableaux.
j'ai donc des cellule qui apparaissent en couleur. j'ai deja fait une demande similaire ici , mais la c'est plus compliquer car il faut ne selectionner que les cellule en vert.
j'aimerais savoir le pourcentage de cellule verte en 1er position dans le tableau de droite qui sont dans les 5 premiers du tableau de gauche
pareil pourcentage pour les 2eme positions dans le tableau de droite qui sont dans les 5 premiers du tableau de gauche, puis 3eme , 4eme et 5eme.
deja si vous pouvez m'expliquer ce 1er Cas.
par la suite l'objection serait de faire aussi ce pourcentage de cellule verte en 1er position dans le tableau de droite qui sont dans les 4 premiers du tableau de gauche , puis les 3 , puis les 2 premier , puis premier. et de meme pour les 4 autre.
Voici par macro une fonction pou calcluler les cellules en couleur. A tester vus que les cellules sont au format conditionnel. Ensuite, a toi de calculer le pourcentage. Avant celà, enregitre le classeur en xls ou xlsm.
A inserer dans un module standard, puis appeler avec le bouton FX.
Code:
Function NbCellsColor(ByRef Plage As Range, ByRef Cellule As Range) As Long
NbCellsColor = NbColor(Plage, Cellule.Interior.colorindex)
End Function
Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.colorindex = Couleur Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
Voici par macro une fonction pou calcluler les cellules en couleur. A tester vus que les cellules sont au format conditionnel. Ensuite, a toi de calculer le pourcentage. Avant celà, enregitre le classeur en xls ou xlsm.
A inserer dans un module standard, puis appeler avec le bouton FX.
Code:
Function NbCellsColor(ByRef Plage As Range, ByRef Cellule As Range) As Long
NbCellsColor = NbColor(Plage, Cellule.Interior.colorindex)
End Function
Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.colorindex = Couleur Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
J'ai parcouru le web, et effectivement c'est impossible de compter les cellules en couleur au format conditionnel. Il vas falloir passer par des tableaux VBA vu le nombre de cellules et là je ne peux t'aider, désolé.
J'ai parcouru le web, et effectivement c'est impossible de compter les cellules en couleur au format conditionnel. Il vas falloir passer par des tableaux VBA vu le nombre de cellules et là je ne peux t'aider, désolé.
J'ai parcouru le web, et effectivement c'est impossible de compter les cellules en couleur au format conditionnel. Il vas falloir passer par des tableaux VBA vu le nombre de cellules et là je ne peux t'aider, désolé.
j'ai vu et testé une fonction sur le web avec FormatConditions, mais je n'ai pas eu de résultat pour pouvoir compter le nombre de cellules(en vert) fichier plus haut. Mimi (Office 2010) ne la reconnaît pas. Et je viens de faire un test avec celle de Jacques, le résultat est le même.
Pas de résultat car cette mise en forme conditionnelle (pour les doublons ou pour les valeurs uniques) n'est pas prise en compte dans la fonction utilisée.
j'ai vu et testé une fonction sur le web avec FormatConditions, mais je n'ai pas eu de résultat pour pouvoir compter le nombre de cellules(en vert) fichier plus haut. Mimi (Office 2010) ne la reconnaît pas. Et je viens de faire un test avec celle de Jacques, le résultat est le même.
le fichier (post #1) de notre ami contient des cellules au format conditionnel, c'est ça le problème. Et la fonction du post #3, comme tu pourras le voir n'a pas FormatConditions.