Microsoft 365 Modification auto texte d'une boite de texte insérée dans excel si le contenu d'une cellule change

Dudu2

XLDnaute Barbatruc

• 2 Novembre 2020

• #2

Bonjour,
C'est quoi des bulles de texte ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Novembre 2020

• #3

Bonjour Normi, Dudu, le forum

Si j'ai compris .... Je te propose ceci :
Bien sur tu peux adapter les cellules (ici le commentaire est en A1)

VB:

Sub Commentaire()
With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:="C'est super:" & Chr(10) & "Test"   'Le texte du commentaire
    .Comment.Shape.OLEFormat.Object.Font.Bold = True        'Police en gras
    .Comment.Shape.OLEFormat.Object.Font.ColorIndex = 5     'Couleur de la police ici bleu
    .Comment.Shape.Fill.ForeColor.SchemeColor = 47          'Couleur de fond du commentaire ici orange
End With
End Sub

@Phil69970

 

Vote positif 0 Vote négatif

N

NormL

XLDnaute Nouveau

• 3 Novembre 2020

• #4

Bonjour à tous
Ce que je veux dire par bulle de texte c'est une création d'une zone créée sur une feuille et qui peut être bougée par ses poignées . Soit un rectangle dans lequel on introduit du texte qui est indépendant ou pour un message. Alors j'aimerais qu'une partie de ce texte soit modifiable comme on peut faire avec la fonction concaténer dans une cellule.

Merci

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 3 Novembre 2020

• #5

Bonjour,
Un rectangle avec des poignées... Je cherche encore.
Et si tu nous disais par quel menu Excel tu créés cette chose ?
Ou mieux, une fichier avec la chose dedans.
Parce que le jeu des devinettes ce n'est pas vraiment le but du forum.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2020

• #6

bonjour
exemple
ma shape s'appelle "ShapA3"
dans le module de la feuille

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
For Each shap In ActiveSheet.Shapes
If shap.Name = "Shap" & Target.Address(0, 0) Then shap.TextFrame.Characters.Text = Target.Value: Exit For
Next
End If
End Sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Novembre 2020

• #7

Bonjour @Dudu2, le fil,

dans ton post #2, tu as écrit : « C'est quoi des bulles de texte ? »

2 exemples façon BD :



oui, tu as deviné : c'est un romain qui est à gauche, et un gaulois qui est à droite ;
mais on ne les voit pas car c'est dans une épaisse brume nordique (c'est pire
que le smog londonien, c'est pour dire !).

----------------------------------------------------------------------------------------------

dans ton post #5, tu as écrit : « Un rectangle avec des poignées... Je cherche encore. »

exemple qui t'évitera d'chercher ad vitam æternam (oui, c'est du latin) :



les poignées sont les petits carrés et ronds sur le contour
de la forme + le rond vert au-dessus.

soan

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2020

• #8

re
LOL
JE CITE DLE DEMANDEUR

Bonjour à tous
Ce que je veux dire par bulle de texte c'est une création d'une zone créée sur une feuille et qui peut être bougée par ses poignées . Soit un rectangle dans lequel on introduit du texte qui est indépendant ou pour un message. Alors j'aimerais qu'une partie de ce texte soit modifiable comme on peut faire avec la fonction concaténer dans une cellule.

Cliquez pour agrandir...

C'EST LA PSYCHIQUE PARABOLIQUE DE LA QUEUE DE LA VACHE PAR RAPPORT A L’HYPOTÉNUSE DU POT D’ÉCHAPPEMENT DROIT DE L'OREILLE GAUCHE

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Novembre 2020

• #9

salut patrick ! mais au pluriel, c'est : « les petits carrés »

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2020

• #10

tu n'a pas compris la blague

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Novembre 2020

• #11

@patricktoulon

quelle blague ? celle-ci : « C'EST LA PSYCHIQUE PARABOLIQUE DE LA QUEUE DE LA VACHE
PAR RAPPORT A L’HYPOTÉNUSE DU POT D’ÉCHAPPEMENT DROIT DE L'OREILLE GAUCHE »

réponse, en paraphrasant @Dudu2 : « Je cherche encore »

soan

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Novembre 2020

• #12

et ben non justement
la blague
on a proposé au demandeur un truc avec les commentaires (qui sont des rectangles avec des poignées et que!!!! par association on pourrait appeler "infobulle"

a non le demandeur a dit non c'est des rectangles que l'on peut redimensionner avec les poignées

la phrase écrite en majuscule n'a bien évidemment pas de sens et est donc à l'image de la question
LOL

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 3 Novembre 2020

• #13

Je pense que vous n'avez rien compris.
Des rectangles avec des poignées, c'est ça:

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 3 Novembre 2020

• #14

Pardon j'oubliais...

 

Vote positif 0 Vote négatif

N

NormL

XLDnaute Nouveau

• 3 Novembre 2020

• #15

Bonjour à tous
Oh mais que vous êtes blagueurs les amis. Sérieusement, c'est exactement ce que 'soan' a démontré avec son carré qui est le point de départ de mon problème. Dans son exemple, est-il possible que le mot " Hello ! " change automatiquement comme on peut le faire avec la fonction concaténer. Comme beaucoup le savent avec cette fonction dans une cellule on peut changer certains éléments d'une phrase. Ma question: est-il possible de faire la même chose dans une zone de texte créée avec Insertion?

 

Pièces jointes

• TEST.xlsx

  22.9 KB · Affichages: 8

Vote positif 0 Vote négatif