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 ?
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
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
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
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
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
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" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
ecHA448bEHA.3904@TK2MSFTNGP12.phx.gbl...
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
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
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
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