Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ceux qui n'ont pas eu leur réponse ....

Ceux qui n'ont pas eu leur réponse ....

2 réponses
Avatar
michdenis
Bonjour,

Tu peux utiliser le code suivant pour insérer un commentaire
dans une cellule active. Au besoin, il est possible d'ajouter des
caractéristiques particulières au commentaire comme si tu le
faisais manuellement.

Comme tu travailles à partir d'Excel 2000, tu peux ajouter un bouton
de commande dans une des barres d'outils ou une commande
dans le menu d'un élément du menu. Tu peux aussi lui attribuer
un raccourci clavier en utilisant la fenêtre des macros.


'-----------------------------------
Sub Inserer_Commentaire()
x = Application.InputBox("Texte du commentaire.", Type:=2)
If x = False Then Exit Sub
If x = "" Then Exit Sub
With ActiveCell
.Parent.Unprotect
.ClearComments
.AddComment x
.Parent.Protect
End With
End Sub
'-----------------------------------


MichD



MichD
--------------------------------------------
Signaler un problème avec ce contenu

2 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
michdenis
Enfin! J'ai de nouveau la possibilité d'expédier des messages sur ce groupe !

Ce message est à ignorer !


MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion : ie4t8c$tbh$



Bonjour,

Tu peux utiliser le code suivant pour insérer un commentaire
dans une cellule active. Au besoin, il est possible d'ajouter des
caractéristiques particulières au commentaire comme si tu le
faisais manuellement.

Comme tu travailles à partir d'Excel 2000, tu peux ajouter un bouton
de commande dans une des barres d'outils ou une commande
dans le menu d'un élément du menu. Tu peux aussi lui attribuer
un raccourci clavier en utilisant la fenêtre des macros.


'-----------------------------------
Sub Inserer_Commentaire()
x = Application.InputBox("Texte du commentaire.", Type:=2)
If x = False Then Exit Sub
If x = "" Then Exit Sub
With ActiveCell
.Parent.Unprotect
.ClearComments
.AddComment x
.Parent.Protect
End With
End Sub
'-----------------------------------


MichD



MichD
--------------------------------------------
Avatar
LSteph
Bonjour MD,

A toutes fins utiles.

On voit bien 2 fois ton message (depuis groups.ggl
mais pas la question.

Cordialement.

--
LSteph

On 13 déc, 11:44, "michdenis" wrote:
Enfin! J'ai de nouveau la possibilit d'exp dier des messages sur ce group e !

Ce message est ignorer !

MichD
--------------------------------------------
"michdenis"  a crit dans le message de groupe de discussion : ie4t8c$tb

Bonjour,

Tu peux utiliser le code suivant pour ins rer un commentaire
dans une cellule active. Au besoin, il est possible d'ajouter des
caract ristiques particuli res au commentaire comme si tu le
faisais manuellement.

Comme tu travailles partir d'Excel 2000, tu peux ajouter un bouton
de commande dans une des barres d'outils ou une commande
dans le menu d'un l ment du menu. Tu peux aussi lui attribuer
un raccourci clavier en utilisant la fen tre des macros.

'-----------------------------------
Sub Inserer_Commentaire()
x = Application.InputBox("Texte du commentaire.", Type:=2)
If x = False Then Exit Sub
If x = "" Then Exit Sub
With ActiveCell
    .Parent.Unprotect
    .ClearComments
    .AddComment x
    .Parent.Protect
End With
End Sub
'-----------------------------------

MichD

MichD
--------------------------------------------