Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro pour copier/coller sur la même feuille ?

Macro pour copier/coller sur la même feuille ?

2 réponses
Avatar
DC
Bonjour à tous,

Le curseur pouvant se trouver sur n'importe qu'elle cellule de la feuille,
je voudrais pouvoir faire, un copier/coller d'une formule, se trouvant dans
une autre cellule de la même feuille, sans avoir à déplacer le curseur, la
formule ayant pour nom "TVA", est-ce possible, Merci d'y penser
!

Cordialement ! bon dimanche DC
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Sub mamacro()
[tva].Copy ActiveCell
End Sub

Pour déclencher sur clic-droit:

http://cjoint.com/?dtjP7KME8P

Private Sub Worksheet_Activate()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Copie"
temp.OnAction = "MaMacro"
temp.FaceId = 120
temp.BeginGroup = True
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

Cordialement JB
Avatar
DC
Re-bonjour JB,

Merci de ta réponse positive !

La macro fonctionne à merveille, c'est plus que parfait
'-----------------------------
Sub mamacro()
[tva].Copy ActiveCell
End Sub
'-----------------------------
Quand au déclenchement sur clic-droit, je mets çà de coté, pour l'avenir,
Merci pour tout !
Cordialement ! DC

"JB" a écrit dans le message de news:

Bonjour,

Sub mamacro()
[tva].Copy ActiveCell
End Sub

Pour déclencher sur clic-droit:

http://cjoint.com/?dtjP7KME8P

Private Sub Worksheet_Activate()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Copie"
temp.OnAction = "MaMacro"
temp.FaceId = 120
temp.BeginGroup = True
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

Cordialement JB