Discussion :

[cleroy61]

Bonjour à tous et à toutes,

J'ai parcouru le super lien et grand travail de silkyroad

http://silkyroad.developpez.com/OOo/...alcOpenOffice/

J'ai trouvé une formule qui me convenait

Je souhaite poser une question qui est celle-ci

Quel est votre sexe ? Ensuite, remplir les 2 cases suivantes par H et F.

A chaque réponse, je décide de colorier la cellule en bleu pour les H et en rose pour les F

Pour compter les nombres de femmes, je pensais utiliser cette formule :

Code :

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

=SOMMEPROD(ESTTEXTE(B30:L30)*1)

Cependant, je ne sais pas comment peut-on calculer les cases qui se trouverait en une couleur définie.

Je vous remercie par avance pour votre aide

Christophe

[Churay]

=SOMMEPROD(ESTTEXTE(B30:L30)*1) va te compter tout ce qui est texte : les "H", les "F", les "z", les "%", les ";" et j'en passe.... même un espace. Ou un caractère résultant d'un CAR(xxx)...

Je n'ai pas tout compris...

Mais compter à partir d'un formatage de cellule me laisse rêveur...
Allez... pour le fun :

En appelant la fonction suivante avec un nom de cellule, tu auras le code couleur du BackGround de la cellule. Ex : codecouleur ( "C30" )

Code :

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

1
2
3
4
5
6
7
function codecouleur ( cellule As String)
   ' Feuille graphique
   oDocument = ThisComponent ' Le document
   oFeuilles = oDocument.Sheets ' On accède aux Feuilles
   oLaFeuille = oFeuilles.getByName("Feuille1") ' Et parmi elles la première (Changer de nom au besoin...)
   codecouleur = oLaFeuille.getCellRangeByName(cellule).CellBackColor
end function

En balayant la plage de B à L, par un FOR (par exemple), il suffit de tester chaque retour et additionner si la condition est remplie.

[cleroy61]

Je vais le faire plus clair

Dans la cellule A1, je pose ma question : Quel est votre sexe ?
Dans les cellules B2,C2,D2,E2 etc jusqu'à U2, je positionne dans chacune d'elle, la lettre H pour Homme.

Dans les cellules B3,C3,D3,E3 etc jusqu'à U3, je positionne dans chacune d'elle, la lettre F pour Femme.

A chaque réponse d'un formulaire, je colorie la case correspondante, soit en bleu si c'est un homme (H = B2,C2,D2,E2 ... U2), soit en rose si c'est une femme (F = B3,C3,D3,E3 ... U3)

A la fin de ces vingt cellules (V2 pour les hommes et V3 pour les femmes), j'entre une formule qui me permettrait de compter les cellules colorisées ;

Dans cette formule, je pensais qu'on pouvais ajouter une couleur

Code :

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

=SOMMEPROD(ESTTEXTE(B2:B21)*1)

En fait, je pourrais sans doute faire une liste déroulante et ensuite appliqué cette formule, mais les couleurs m'étaient plus parlantes

Sinon, j'ai essayé cette formule qui me parait pas mal :

Code :

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

1
2
 
=SOMMEPROD((EXACT(A4:CW4;"H")*1))

avec la dénomination d'une couleur, elle aurait été parfaite

et celle-ci qui ne compte que les majuscules, mais ça ne fait pas homogène ; une ligne en minuscule et celle d'en dessous en majuscule :

Code :

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

1
2
 
=SOMMEPROD((A5:CW5<>"")*(EXACT(A5:CW5;MAJUSCULE(A5:CW5))))

Dans les fontions d'informations de l'aide fournis par OpenOffice, il existe la fonction actuelle() où il mentionne une couleur ; je sens qu'on brûle

Code :

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

=A2+B2+STYLE(SI(ACTUELLE()>10;”Rouge”;”Par_défaut”))

Désolé j'ai eu de gros pb pour me connecter sur ce site avec mon mdp

[Churay]

Je pense qu'une macro serait plus efficace qu'une formule.

[cleroy61]

J'ai choisi une autre solution :

Je saisis la lettre correspondante et j'entre cette formule à la fin :

Code :

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

1
2
=SOMMEPROD((EXACT(A35:CW35;"H")*1))
=SOMMEPROD((EXACT(A35:CW35;"F")*1))

J'ai pô ma couleur ! Snif ...

j'ai essayé en positionnant ;"bleu 8"; à tous les endroits de cette formule ; marche pô non plus.

C'est pas grave ! Ne te biles pas pour ça ;

Maintenant, avec les 2 résultats que j'obtiens, je voudrais l'obtenir, dans une autre cellule, en pourcentage ;

L'aide OpenOffice n'est pas des plus explicites !

Merci pour tes suggestions

Christophe

[cleroy61]

Pour le pourcentage, une simple règle de trois ; je suis bête

Avec la précédente formule, je me suis mélé les pinceaux

[Alain de La Chaume]

Bonjour.
Vous trouverez dans le classeur joint trois macros et un exemple d'utilisation.
L'une permet de connaître le code d'une couleur.
L'autre, de savoir dans un range donné, combien il y a de cellules dont le fond est d'une couleur donnée.
La troisième fait le total des chiffres contenus dans les cellules d'une couleur donnée.
Bons tests.
Bien cOOordialement, Alain.

[cleroy61]

Merci pour ces informations

je pense que la 2e solution soit la plus appropriée.

Je vais essayer ; merci

Christophe

[jyb69]

Bonjour.
Vous trouverez dans le classeur joint trois macros et un exemple d'utilisation.
L'une permet de connaître le code d'une couleur.
L'autre, de savoir dans un range donné, combien il y a de cellules dont le fond est d'une couleur donnée.
La troisième fait le total des chiffres contenus dans les cellules d'une couleur donnée.
Bons tests.
Bien cOOordialement, Alain.

Quand j'ouvre le classeur, les cellules où il y a les formules sensées compter les couleurs, renvoient "#VALEUR !"

Finalement, sur ce forum, il y a des liens, des fils, des fils qui renvoient vers d'autres fils, mais jamais de solutions simples pour des novices...

config :

XP PRO SP3
OPEN OFFICE 4.1.1

[zoom61]

Quand j'ouvre le classeur, les cellules où il y a les formules sensées compter les couleurs, renvoient "#VALEUR !"

Finalement, sur ce forum, il y a des liens, des fils, des fils qui renvoient vers d'autres fils, mais jamais de solutions simples pour des novices...

A ce croire meilleur que les autres, il faudrait au moins chercher une réponse...

Et la solution est pourtant simple, et oui il suffit de vérifier que les macros ne soient pas bloquées... mais je vous laisse faire, vu que de nombreux liens renvois vers des liens, vous allez surement trouver la solution tout seul

[jyb69]

Je ne suis pourtant pas pour windaube, mais pour le même problème, j'ai résolu la solution en beaucoup moins de temps sur un forum Excel et une macro avec une procédure bien expliquée à mettre en place, du niveau "Excel pour les gros nuls"

Une migration obligatoire et me voilà dans la panade. des infos qui sont certainement dans ce forum du reste, une recherche de minuit à 5 h du mat, pas de solution simple, seulement des discutions qui s'adressent à une "élite" de l'openSource. Je vote à 150 % pour le logiciel libre, mais entre nous, si on touche pas un peu du clavier, on passe pas de MicroMachin à Linux et ses suites gratuites...

N’empêche que même en débloquant la macro, les compteurs affichent toujours 0...

[Michel]

Bonjour,
je viens de tester l'exemple proposé par Alain de La Chaume sous linux et windows 7 et cela fonctionne parfaitement.
Sous windows, comme je viens d'installer libreoffice 4.4.3.2, j'ai du aller dans l'onglet sécurité macro, sélectionner niveau moyen et après un redémarrage de libreoffice, il me demande si je dois activer les macro et ensuite tout fonctionne !