Formule dans forme (type bulle)

Bonjour à tous,

Je renvoie mon message, car il ne semble pas avoir été posté.

J'ai du faire une mauvaise manipulation.

Voici mon problème :

1 - Je souhaite mettre une formule dans une forme (bulle), est-ce possible?

2 - Si cela est possible, peut-on faire apparaitre les contours de la bulle (et le message à l'intérieur qui est la résultante du test) que si le test est validé?

Pour plus de clarté, vous trouverez en pj un exemple.

Je vous en remercie d'avance.

Bonne journée,

Ronan

Bonjour,

Tu peux mettre une formule dans une "bulle" mais elle ne sera pas calculée, elle apparaîtra en texte

Bonjour,

sur le forum :

https://forum.excel-pratique.com/excel/inserer-une-formule-dans-une-forme-t38815.html

crdlt,

André

Merci beaucoup Andre13.

Votre lien me sera très utile.

Néanmoins, je ne trouve pas de réponse à mon deuxième point :

pensez-vous que nous pouvons faire apparaitre le contour de la bulle (avec la réponse associée à l'intérieure) que si le test est validé.

En clair, le résultat du test (phrase dans bulle), et la bulle apparaissent si le test est validé; sinon rien n'apparait.

J'avais mis un fichier excel dans ma demande pour expliquer ma demande.

En tout cas un très grand merci pour votre gentillesse et la rapidité de la réponse !!

Bonne fin de journée à tous,

Rony

re-Bonjour,

c'est sans doute faisable

ce que je ferai, dans une des cellule de ma feuille mettre la formule Ex: A1 (cette colonne sera masqué par la suite)

dans la shape, transparente la formule =A1 si réponse ou événement demandé est exact si faux hop on saute sur une autre cellule de la même colonne et de la même feuille par exemple =A2 qui est elle vide

(je donne cette colonne mais on peut très bien mettre une colonne à masquer X

et au bout de x tentatives on stoppe exit sub

une idée comme çà c'est le week-end

Bonjour,

La méthode consiste effectivement à mettre la formule dans une cellule, par exemple G13, masquée par la forme, et dans la forme : =G13 renverra le contenu de la cellule.

Cordialement.

Bonjour à tous

Une variante car je n'ai pas compris exactement la même chose.

Edit : pas posté le bon fichier ! Rectifié

Complément 2e question :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bvis As Boolean
    If Not Intersect(Target, Me.Range("E16:E21")) Is Nothing Then
        If Me.Range("G13") <> "" Then Bvis = True
        Me.Shapes("Bulle1").Visible = Bvis
    End If
End Sub

en donnant un nom plus convivial à la forme...

Cordialement.

Re,

J'aime bien vos deux démonstrations, je cherchais le même style de conception il y a quelques jours, merci en tout cas

cela me servira bientôt pour un de mes futurs projets

RE

On doit aussi pouvoir faire cela avec une image renvoyée dans la cellule soit blanche donc invisible soit celle d'une bulle avec un texte fixe

Merci beaucoup,

Le code m'a fait peur (1ère fois que j'utilise du VBA),

mais le résultat est exactement ce que j'attendai !!

Merci à tous pour votre aide.

Ronan