code pour copier valeurs et commentaires

[pascal21]

With Sheets("Evenements trimestriels")
.activate
.Range("A5:h300").Select
    Application.CutCopyMode = False
    Selection.Copy
Sheets("Sauvegardes évenements").[A65000].End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
   End With

bonjour à tous
ce code qui fonctionne parfaitement me permet de copier la plage a5:h300 dans le feuille "sauvegardes"
j'ai rajouté dans un autre code, la possibilité d'insérer un commentaire dans les cellules de la colonne D de la feuille "évènement"
je ne sais pas comment faire pour que ça copie les valeurs et les commentaires quand il y en a
pouvez m'aider merci

 

[Pierrot93]

Re : code pour copier valeurs et commentaires

Re,

tu as déjà un post d'ouvert avec le début de la solution... A priori tu n'en a pas effectué le suivi...
https://www.excel-downloads.com/threads/recopier-commentaire-si.155432/
bon après midi
@+

 

[tototiti2008]

Re : code pour copier valeurs et commentaires

Bonjour pascal21,

Tu peux faire un collage spécial Commentaires

With Sheets("Evenements trimestriels") 
.activate 
.Range("A5:h300").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
Ligne  = Sheets("Sauvegardes évenements").[A65000].End(xlUp).Offset(2, 0).row
Sheets("Sauvegardes évenements").Cells(Ligne,1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 
Sheets("Sauvegardes évenements").Cells(Ligne,1).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False
End With

Edt : Bonjour Pierrot

 

[pascal21]

Re : code pour copier valeurs et commentaires

bonjour pierrot, tototiti
le fil que j'avais déjà ouvert, bien ça parle de commentaires me permet de copier le contenu du commentaire dans une autre cellule sous forme de texte normal
là ce que je désire c'est un copier/coller "valeurs" et "commentaires (sous forme de commentaires)"
c'est là toute la nuance et pourquoi j'ai crée un autre sujet
avec l'enregirstreur de macro je sais faire copier/coller valeurs et commentaires
mais je ne sais pas adapter pour que ça écrive " à la suite" Sheets("Sauvegardes évenements").[A65000].End(xlUp).Offset(2, 0). ????

 

[Pierrot93]

Re : code pour copier valeurs et commentaires

Re, bonjour toto

le fil que j'avais déjà ouvert, bien ça parle de commentaires me permet de copier le contenu du commentaire dans une autre cellule sous forme de texte normal
là ce que je désire c'est un copier/coller "valeurs" et "commentaires (sous forme de commentaires)"
c'est là toute la nuance et pourquoi j'ai crée un autre sujet

ma remarque était plus axée sur le suivi que sur la création d'un nouveau post... mais pas de souci... A noter toto à édité son code....

 

[pascal21]

Re : code pour copier valeurs et commentaires

merci quand même pour la remarque j'essayerai d'être plus attentif la prochaine fois
Il m'arrive de répondre à des questions dont je pense détenir , sans aucune prétention, une solution
mais je trouve désagréable d'avoir la sensation que le demande change en cours de route
c'est ce que j'ai voulu éviter
bon revenons à notre sujet
tototiti
ton code coince à la ligne permettant la copie du commentaire
je re-précise que toutes les cellules n'ont pas de commentaire
seulement la colonne D et encore pas sur toutes les lignes

 

[Pierrot93]

Re : code pour copier valeurs et commentaires

Re,

ce qui nous ramène au fil précedant :

With Sheets("Sauvegardes évenements").Cells(Ligne,1)
If Not .Comment Is Nothing Then .PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False
end with

 

[pascal21]

Re : code pour copier valeurs et commentaires

re
j'ai inversé les lignes de copie valeurs avec celles de copie commentaires
j'ai une erreur sur la deuxième partie
si je mets juste une copie valeur ou commentaire ça fonctionne

 

[Pierrot93]

Re : code pour copier valeurs et commentaires

Re,

on s'est croisé, regarde mon post de 14h28...

 

[tototiti2008]

Re : code pour copier valeurs et commentaires

Re,

Bizarre, sur le principe ça fonctionne chez moi
Evidement je n'ai pas tes données... mais je ne vois pas pourquoi ça coince

 

[Pierrot93]

Re : code pour copier valeurs et commentaires

Re,
Après avoir testé, sans test sur la présence d'un commentaire, cela ne renvoie pas de message d'erreur chez moi (excel 2003), la cellule copiée ayant ou pas de commentaire