code pour copier valeurs et commentaires

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #2

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
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Décembre 2010

• #3

Re : code pour copier valeurs et commentaires

Bonjour pascal21,

Tu peux faire un collage spécial Commentaires

Code:

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

 

Dernière édition: 30 Décembre 2010

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Décembre 2010

• #4

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). ????

 

Dernière édition: 30 Décembre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #5

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

Cliquez pour agrandir...

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....

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Décembre 2010

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #7

Re : code pour copier valeurs et commentaires

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Décembre 2010

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #9

Re : code pour copier valeurs et commentaires

Re,

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Décembre 2010

• #10

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2010

• #11

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

 

Vote positif 0 Vote négatif