Somme des images excel

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un tableau avec un menu déroulant (3 smileys).

Je souhaite obtenir la somme des smileys et ne je sais comment faire.

Ce sont bien des smileys et non des lettres (K,L,M) au format Wingdings .

Merci d'avance,




Configuration: Windows / Firefox 91.0
A voir également:

4 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

quelque chose comme cela en VBA

Private Sub CommandButton1_Click()
MsgBox ActiveSheet.Shapes.Count - 1
End Sub

1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Bonjour Mike-31,

J'ai testé , cela m'affiche 1 ou 2 suivant les cellules sélectionnées, alors qu'il en existe 6 ou 7...

Je souhaite en bas de mon tableau obtenir la somme des 3 smileys , si possible. Merci !
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Bizarre tes smileys qui ressemblent plus à des caractères spéciaux qu'a des shapes contrairement à tes dires

Ce sont bien des smileys et non des lettres (K,L,M) au format Wingdings

En plus pour afficher des smileys dans une liste de validation c'est assez complexe et uniquement avec un code VBA.
Peux tu joindre un exemple de ton fichier anonymisé s'il te plait à partir de ce lien

1) Aller dans https://www.cjoint.com/
2) Cliquer sur [Parcourir] pour sélectionner le fichier (15 Mo maxi)
3) Défiler vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; faire un clic-droit dessus et choisir "Copier le lien"
5) Revenir dans la discussion sur CCM, et dans votre message faire "Coller".

=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers




1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
.../ Après la récupération des smileys (Caractères HEXDEC)

=_xlfn.UNICHAR(HEXDEC($A2&B$1))

Exemple A2 : 1F30
B1 = 0


Copier -Coller (valeur) des 3 smileys pour mon projet

Ensuite menu déroulant : avec validation des données

Je crois que j'ai trouvé avec une formule simple

=NB.SI(B$8:B$19;$A20)

Merci pour ton aide !
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21 > PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention  
 
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
En plus pour afficher des smileys dans une liste de validation c'est assez complexe et uniquement avec un code VBA

Pour cela, j'ai créé mon menu déroulant > en validation de données > Liste > =$A$20:$A$22
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Excuse de te décevoir, mais à ma connaissance et pour ne pas laisser planer un doute, Excel ne sait pas afficher des smileys ou images à partir du menu Données/Validation etc ...

il est impératif de passer par du VBA.

Il serait judicieux de poster un exemple de fichier comme je te l'ai préconisé pour permettre à tous ceux qui souhaiteraient développer ton procédé.
1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
L'exemple d'une validation de données avec smiley....

Fichier joint

https://www.cjoint.com/c/LFjn21Euj6W
1
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

c'est bien ce que je te disais, il s'agit d'une police de caractère comme
Smileyface par Jonathan Macagba
ou encore
Rostros y emociones
etc ...
que tu peux télécharger par exemple sur dafont.com et dans ton cas il s'agit bien de caractère et non de smiley graphique comme on pourrait l'entendre, tes listes de validations représentent un caractère en noir comme toute police.
et pour répondre à ta demande la formule NB.SI s'applique puisqu'il s'agit d'un caractère de police.

Mais ton retour est sympat et pourra servir à d'autres membres du forum pour une application simple sans passer par le VBA
1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
....par bonbanche pour rendre à césar
0