Bonjour,
Comme écrit dans l'intitulé, je voudrais faire un "Copier/Coller" de commentaires d'un ensemble de cellules Classeur1-Feuil1 vers Classeur1-Feuil2 sans passer par le presse papier afin d'optimiser l'exécution.
J'ai trouvé cette solution :
Cette solution répond bien à ma problème qui est le "Copier/Coller" sans l'utilisation du presse papier. Par contre, les commentaires copiés dans le Classeur1-Feuil2 n'ont pas conservés la mise en forme qu'il y a dans le Feuil1.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub Z_Copie_Commentaire_01() Dim Rng As Range, Cmt As Object For Each Rng In Worksheets("Feuil1").Range("C4:F12").Cells If Worksheets("Feuil1").Cells(Rng.Row, Rng.Column).Comment Is Nothing Then ' Pas de commentaires à copier Else Set Cmt = Rng.Comment Worksheets("Feuil2").Cells(Rng.Row + 1, Rng.Column + 1).ClearComments Worksheets("Feuil2").Cells(Rng.Row + 1, Rng.Column + 1).AddComment (Cmt.Text) End If Next End Sub
Y a t'il une solution pour faire la copie de commentaire d'une cellule à une autre en conservant la mise en forme du commentaire et bien sur sans l'utilisation du presse papier.
En attendant la solution si il y a solution, je me suis rabattu sur le code ci-dessous qui malheureusement utilise le presse papier mais par contre respecte le mise ne forme du commentaire lors de la copie.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub Z_Copie_Commentaire_02() Application.ScreenUpdating = False Worksheets("Feuil1").Range("C4:F12").Copy Worksheets("Feuil2").Range("D5").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub
Au plaisir de vous lire,
Jean-Michel
Partager