Discussion :

[xica19]

Bonjour,

J'ai besoin de créer un bouton qui fonctionne comme le bouton " reproduire la mise en forme " mais qu'au lieu de reproduire la mise en forme reproduit la valeur et le commentaire. Tout le reste du fonctionnement est identique, même la transformation du curseur en curseur pinceau.

Je ne sais pas trop comment m'y prendre, si quelqu'un peut m'indiquer un chemin …. Merci

Xica

[unparia]

Bonjour
Ben : en le disant --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Range("H1")
  .Value = Range("D5").Value
  .AddComment Range("D5").Comment.Text
End With

Copiera en H1 valeur et commentaire de D5.
Attention : si un commentaire existe déjà (cela se vérifie par code) ne pas ajouter un objet comment, mais le modifier.

Edit : il est donc prudent de procéder ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Range("H1")
  .Value = Range("D5").Value
  If Not .Comment Is Nothing Then .Comment.Delete
  .AddComment Range("D5").Comment.Text
End With

[Menhir]

Je ne pense pas qu'il soit possible de reproduire par macro exactement le fonctionnement du pinceau "Reproduire la mise en forme".

Ce que je vois de plus approchant serait de mettre la macro suivante dans un module en l'affectant à un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub ReproduireValeurComment()
    Selection.PasteSpecial Paste:=xlPasteComments
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Tu sélectionnes la cellule source > Ctrl+C > Tu sélectionnes les cellules cibles > Tu appuies sur le bouton lié à la macro.

[xica19]

Bonjour et merci de vos réponse,
Les réponses me donnent des pistes pour faire le copier/coller.
Mais pour le fonctionnement du bouton c'est-à-dire :
- je sélectionne une plage 1 / Je clique sur le pinceau / je sélectionne une plage 2  la plage 1 est collée dans la plage 2
- je sélectionne une plage 1 / Je double-clique sur le pinceau / Le mode collage reste actif jusqu'à nouveau clic sur le bouton ou appui sur la touche esc. Tant que le mode collage reste actif je peux sélectionner des plages autant de fois que je veux et la plage 1 y sera collée.

Une idée ?

Xica