commentaire

[jo]

bonjour et merci à ce forum (pour ma part si efficace ...)

est il possible de créer une macro qui

d'une cellule a1 feuill1

puisse exporter sur une cellule a1 feuill2
ce qui a été écrit sur la première cellule
en commentaire vers la 2 ème cellule (commentaire affiché des que l'on passe avec le curseur sur la cellule)

(si je me suis bien exprimé..)

merci d'avance !!!

 

[Davidc57]

Salut Jo,


' On lit le commentaire
commentaire = Sheets('sheet2').Range('A1').Comment.Text

' On le réécrit dans la case de la feuille 2
Sheets('sheet2').Range('A1') = commentaire


A+
David

 

[porcinet82]

Bonjour a tous,

J'avais compris la meme chose que José et juste histoire de le contrarier un peu je rajoute un If qui permet de gerer l'erreur si un commentaire existe deja :

Sub essai()
With Sheets('feuil2').Range('A1')
    If .Comment.Text = False Then
        .AddComment Sheets('Feuil1').Range('A1').Comment.Text
    Else
        .Comment.Text Text:=Sheets('feuil1').Range('A1').Comment.Text
    End If
End With
End Sub

@+

 

[jo]

merci

en fait à la base il y a du textedans une cellule il devient comentaire sur l'autre feuill, je prendsquelle version ?

MERCI ENCORE !!!

 

[Davidc57]

Bonjour à tous,

Jo,

Envoi nous un exemple car il semble qu'il y a eu différentes interprétation et toi même tu ne sais pas quel proposition choisir.

Un petit exemple simpliste où tu expliques clairement ce qui se passe devrait nous permettre de correctement t'aider.

A+
David

 

[Charly2]

Bonjour Jo, Davidc57, José et Romain, bonjour à toutes et à tous 🙂

Jo, dans sa proposition, David lit le commentaire et le recopie dans une cellule, alors que les codes de José et Romain recopient le commentaire d'une cellule en commentaire dans une autre cellule ; je sais pas si c'est très clair ce que j'écris :S :silly: 😛

En faisant un mélange des codes, tu peux obtenir ce que tu souhaites, si j'ai bien compris (Merci David, José et Romain 🙂) :

Sub TextToComment()
  With Sheets('feuil2').Range('A1')
    If .Comment.Text = False Then
      .AddComment Sheets('Feuil1').Range('A1').Value
    Else
      .Comment.Text Text:=Sheets('feuil1').Range('A1').Value
    End If
  End With
End Sub

Ce bout de code copie le contenu de la cellule A1 de Feuil1 pour le placer en commentaire dans la cellule A1 de Feuil2.

Est-ce bien ce que tu voulais faire ??? :unsure:

A+ 😉

 

[Jo]

génial !

c'est vrai, difficile d'expliquer, j'aurais du envoyer un exemple, c'est bien cela, j'ai une cellule a1 feuill 1 en texte, elle devient commentaire en feuille 2 sur la même adresse (mais en feuille 2)

merci encore pour votre aide si précieuse ...
j'en suis jaloux 😉 🙂

longue vie à ce forum

 

[jo]

oupppssss ... message d'erreur sur ta macro !?

 

[Charly2]

re tout le monde 🙂

Oups aussi !!! :sick:

Je n'avais pas testé le code :silly:

Option Explicit

Sub TextToComment()
'
  With Sheets('feuil2').Range('A1')
    On Error Resume Next
    .Comment.Text Sheets('Feuil1').Range('A1').Value
    If Err.Number ‹› 0 Then
      Err.Clear
      .AddComment Sheets('Feuil1').Range('A1').Value
    End If
  End With
End Sub

Voili voilà :whistle:

PS : C'est enfin passé, j'ai remplacé les caractères > et < car ils posent problème dans les posts. Il faudra que tu les retapes au clavier si tu recopies le code...

A+ 😉

 

[JO]

merci ! j'essaye !