Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro zone de texte en "commentaires"

macro zone de texte en "commentaires"

3 réponses
Avatar
William
Bonjour,

dans un userform, j'ai une zone de texte (que j'ai nommé client). Ce texte
est renvoyé dans une cellule d'une feuille excel par une macro basique :

If client.Value <> "" Then
Sheets("toto").Select
Range("c6").Select
ActiveCell.FormulaR1C1 = client.Value
End If

J'ai besoin de créer une 2ème zone de texte, relatif à la zone de texte
"client", et de renvoyer ce texte sous forme de commentaires (le petit coin
rouge des cellules) sur la cellule C6.
Est-ce possible ?

William
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Quelque chose comme ça dans le module de l'Userform :

Private Sub TextBox1_Change()
With Range("Feuil3!C6") 'à adapter
.ClearComments
.AddComment
.Comment.Text Text:=TextBox1.Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

AV
Avatar
William
merci, ca marche mais j'ai quand même modifié "l'appel" de la case c6 par

Private Sub TextBox1_Change()
sheet("toto").select
With Range("C6") 'à adapter
.ClearComments
.AddComment
.Comment.Text Text:=TextBox1.Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

une question quand même :
.Comment.Shape.TextFrame.AutoSize = True ==> ca sert à indiquer la forme
du commentaire?


William



"AV" a écrit dans le message de news:

Quelque chose comme ça dans le module de l'Userform :

Private Sub TextBox1_Change()
With Range("Feuil3!C6") 'à adapter
.ClearComments
.AddComment
.Comment.Text Text:=TextBox1.Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

AV




Avatar
AV
merci, ca marche mais j'ai quand même modifié "l'appel" de la case c6 par


C'est comme tu veux mais c'est pas vraiment une bonne idée de rajouter un Select
qui va pas franchement dans le sens de l'optimisation !

une question quand même :
.Comment.Shape.TextFrame.AutoSize = True ==> ca sert à indiquer la forme
du commentaire?


Pas vraiment : Ca ajuste la taille du commentaire à son contenu

AV