Copier une cellule avec son commentaire

Question

Bonjour,
J'ai récupéré sur le net ce code:

Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Range(Parent.Caller.Address(RowAbsolute:=False, columnAbsolute:=False))
    Range(AdrAppelFn).ClearComments
    Range(AdrAppelFn).AddComment
    Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
    Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
    Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
    Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
    CopierAvecCommentaire = Source.Value
End Function

Il semble remplir le besoin que je recherche excepté quand la cellule n'a pas de commentaire il n'effectue pas de mise à jour c'est à dire qu'il n'est pas capable de copier le cnteu de la cellule en ignorant le commentaire.

Avez vous une idée?

Pour info: A partie des fonction de base d'EXCEL je fais un calendrier et souhaite le renseigner à partir de colonnes situées dans un tableau et si la date est comparée "excate je souhaite copie la cellule+commentaire ( ou pas). Les fonctions utilisées sont de type INDEX et EQUIV.  

Merci

c148270 · Answer

Bonjour

Pourquoi ne pas essayer bêtement le copier/coller ?
du genre
    Range("B3:B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H12").Select
    ActiveSheet.Paste

Pour le calendrier je n'ai pas d'idée

Bonne journée

Copier une cellule avec son commentaire

1 réponse

Votre réponse

Discussions similaires