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