Insérer commentaire

[MASSJIPE]

Bonsoir
Comment insérer un commentaire dans X cellule(s) quant on écrire la lettre R par VBA ou autre
Merci

 

[Robert]

Re : Insérer commentaire

Bonsoir Massjipe, bonsoir le forum,

Bonsoir
Comment insérer un commentaire dans X cellule(s) quant on écrire la lettre R par VBA ou autre
Merci

Pourrais tu être plus clair ? X cellules ? lesquelles, dans quel onglet ?
quand on écris la lettre R... Où ? tous les onglets, toutes les cellules ?
Un petit fichier exemple serait le bienvenu je pense...

 

[MASSJIPE]

Re : Insérer commentaire

Bonsoir Robert
Quelque soit la cellule idem pour la feuille (8 onglets) dés que l’on écrit la lettre R (uniquement R)
Pour l’instant il ni a pas de fichier

 

[Robert]

Re : Insérer commentaire

Bonsoir Massjipe, bonsoir le forum,

Ça tombe bien je viens de retrouver mes forceps... Donc on tape R dans n'importe quelle cellule et on insère "un commentaire" dans cette cellule ? Si j'ai bien compris essaie le code ci-dessous à adapter et à placer dans le composant ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.ClearComments 'supprime un éventuel commentaire
If Target.Value = "R" Then 'condition : si on tape "R"
    Target.AddComment 'ajoute uen commentaire
    Target.Comment.Visible = False 'masque le commentiare
    Target.Comment.Text Text:="un commentaire" 'texte du commentaire (à adapter)
End If 'fin de la condition
End Sub

 

[MASSJIPE]

Re : Insérer commentaire

Re
Et pour r minuscule

 

[Robert]

Re : Insérer commentaire

Bonsoir Massjipe, bonsoir le forum,

Ça sert à quoi que je commente le code ? Ça tombe bien je viens de retrouver mon violon et j'ai un furieuse envie d'uriner...
Pour r remplace la ligne :

If Target.Value = "R" Then 'condition : si on tape "R"

par :

If Target.Value = "r" Then 'condition : si on tape "r"

et si tu veux que ça marche pour R et r, tu remplaces par

If UCase(Target.Value) = "R" Then 'condition : si on tape "R" ou "r"

 

[MASSJIPE]

Re : Insérer commentaire

Bonjour
Merci et bone journée