Changer la taille du texte avec un click droit souris

Bonjour,

J'ai un classeur excel avec plusieurs onglets.

Dans un de ces onglets appelé "evaluation", j'ai plusieurs smileys (traduisant la satisfaction). je souhaiterais que lorsque l'utilisateur clique sur la cellule, la taille est la couleur du smiley change.

Est-ce possible?

En vous remerciant.

Un exemple, clique souris bouton droite sur la cellule A1.

Est ce que le résultat attendu est le bon?

sans fichier, difficile de répondre précisément à ta demande. Cordialement

cdt

Effectivement,

Ci joint mon fichier et dans la cellule B2 ce que j'aimerais obtenir après un click droit de la souris.

Si j'ai bien compris, dès qu'on clique sur un smiley en B2:E2 (bouton droite souris), celui ci change de couleur et de taille.

Voici ton fichier en retour avec ce que j'ai compris.

Cdt

oui c'est bien ça.

Quelle est la macro à mettre en place pour cela??

Tu cliques sur ALT et F11 (une fenetre s'ouvre) et tu rentres le code dans la feuil désirée.

le code :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("B2:E2"), Target) Is Nothing And Target.Count = 1 Then

With Range("B2:E2").Font
.Size = 48
.Color = vbBlack
End With

With Target.Font
.Size = 68
.Color = vbGreen
End With

Cancel = True
End If

End Sub

J'ai bien tout fait mais cela ne fonctionne pas dois-je activer une macro ou c'est automatique?? et est ce que cela ne marche pas car ma feuille est protégée??

Bonjour,

Si la feuille est protégée, il risque d'y avoir des problème.

Le code suivant déprotège et protège la feuille

Dans le code, change ce qui est rouge par le mot te passe que tu désires (laisse les guillemets)

CDT.

LE CODE

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("B2:E2"), Target) Is Nothing And Target.Count = 1 Then

ActiveSheet.Unprotect "tonmotdepasschoisi"

Range("B2:E2").Font.Size = 48

Range("B2:E2").Font.Color = vbBlack

With Target

.Font.Size = 68

.Font.Color = vbGreen

End With

Cancel = True

ActiveSheet.Protect "tonmotdepasschoisi"

End If

End Sub

PS : tu dois également avoir autorisé les macros

Bonjour,

Merci cela marche super bien!!!!

si je veux l'améliorer et que pour "très satisfait" et "satisfait" (colonne B et C) mes smiley soient en vert et pour les deux autres en rouges comment puis-je faire???

Voici le code avec ta dernière demande.

Cordialement.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("B2:E2"), Target) Is Nothing And Target.Count = 1 Then

ActiveSheet.Unprotect "tonmotdepasschoisi"

With Range("B2:E2").Font
.Size = 48
.Color = vbBlack
End With

With Target.Font
If Target = Range("B2") Or Target = Range("C2") Then
.Size = 68
.Color = vbGreen
Else
.Size = 68
.Color = vbRed
End If
End With

Cancel = True

ActiveSheet.Protect "tonmotdepasschoisi"
End If

End Sub

Merci beaucoup!!!

C'est parfait!!