Discussion :

[PapouMAC]

Bonjour


J'aimerais calculer le nombre de cellules ayant une certaine couleur, ceci avec une macro si possible. Merci.

[Mobydick_62]

Bonjour,

Une manière comme une autre en utilisant une fonction en macro et l'appel par une formule (dans la barre de formule) : VOIR DOCUMENT JOINT
Pour ce faire il faut récupérer le code couleur Long de la couleur à rechercher.

Et : (CTRL MAJ F9 pour mettre à jour les formules)

Couleurs.ods

[PapouMAC]

Bonjour

Merci pour cette solution, mais lorsque je lance la macro, j'ai le message suivant :

L'argument n'est pas facultatif à la ligne : t = Split (NomRange,":"), variable d'objet non définie.

Mais j'ai trouvé une autre façon de faire, voir fichier joint.

Pour info comment trouver le code des couleurs ? Merci.

[Mobydick_62]

Re,

NON il ne faut pas lancer la fonction. Si tu regardes dans la cellule à côté de la cellule couleur il y a une formule : =ACNBCELLSCOULEUR("B1:B14";16750848)

C'est elle qui fait appel à la fonction.
Pour mettre à jour le calcul il faut faire Ctrl+Maj+F9

D'ailleurs une fonction ne se lance pas seule. Elle est toujours appelée par une formule ou une macro qui lui passe en paramètres des instructions (dans la cas présent deux paramètres une zone de cellules et une couleur).

Par ailleurs tu me dis

Mais j'ai trouvé une autre façon de faire, voir fichier joint.

mais il n'y a aucun fichier pour ce que tu as fait.

Pour le code couleur tu peux utiliser l'outil X Ray qui est une extension. Elle a pour but de visualiser les propriétés, méthodes, services, interfaces disponibles sur une variable objet. Il utilise pour cela les fonctions d'introspection et de réflexion disponibles pour tout objet Uno.

Sinon par une simple macro. Tu colories une cellule et tu lances la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CodeCouleur()
 Dim oCell As Object 
 Dim couleur As Long 
 oCell = ThisComponent.CurrentSelection
 couleur = oCell.cellBackColor
 Print "Code couleur : " & couleur 
End Sub

On peut aussi trouver sur internet des convertisseurs qui en fonction de la couleur RGB que tu donnes, te renvoient le code couleur. Mais bon.... Avec cette petite macro c'est plus rapide.

Cordialement

[PapouMAC]

Merci beaucoup pour la macro qui permet de connaitre la valeur d'une couleur.