formule ?

[Dgiloun]

Bonjour.
A l'interieur d'un tableau, je voudrais additionner une ligne qui ne prend en compte que les cases non remplis d'une couleur. Est ce possible ?
Merçi de vos réponses

 

[@Christophe@]

Bonjour,

Oui c'est possible, mais dis moi est ce que les cases en couleur sont en couleur grâce à une mise en forme conditionnelle ou pas??

@Christophe@

 

[@Christophe@]

Bonjour,

Voici un exemple

Dis nous quoi

@Christophe@

 

[Jean-Marie]

Bonjour, Djiloun, Christophe

Alors comme je fais jamais les choses comme tout le monde, c'est une Function qui calcule le nombre de cellule, voici le code à mettre dans un module :

Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function

Par exemple :
A1:A20 est la plage de cellule susceptible d'avoir les couleurs
A21 est la référence de la cellue qui contient la couleur à tester.
Et de saisir dans une cellule =NbColor(A1:A20;A21)

Cette Function ne gére pas les mise en formes conditionnelles.

Bonne journée

@+Jean-Marie

 

[@+Thierry]

Bonjour Djiloun, Re @Xtof@, re Jean Marie

Héhéhé Mais il se met à fond au VBA notre Président !!! ;-)

Oui cette Fonction Perso est très utile, Ti nous en avait déjà fait des exemples, faut-il justement que Djiloun sache l'utiliser, notamment sur les index de couleurs :

Mais c'est vrai qu'une fonction pour çà c'est cool

Bonne Fin de Journée

T'as les glaçons Jean-Marie ;-) ?

@+Thierry

 

[@+Thierry]

Arf j'ai rien dit !! lol

Jean-Marie a m^me fait le boulot avec "vCellcolor" !!!

il suffit de colorier la cellule (A21) dans cet exemple !!

pourtant le Pastis est pas encore servi lol

@+Thierry

 

[Dgiloun]

Merci à tous,
Comme je suis un nouveau dans la programmation il me faut un petit peu de temps pour essayer vos solutions, j'ai entiére confiance et je pense que vous allez me lire souvent.....non pas dans les réponses mais plutôt dans les questions