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)
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 :
Code:
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
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
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
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
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...