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

Le
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
--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22919931
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
--------------------------------------------
LSteph
Le #22924371
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"
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
--------------------------------------------  
Publicité
Poster une réponse
Anonyme