Couper en faisant référence à la cellule active

Fermé
Choc21 Messages postés 1 Date d'inscription lundi 21 juillet 2014 Statut Membre Dernière intervention 22 juillet 2014 - 22 juil. 2014 à 15:52
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 22 juil. 2014 à 16:07
Réponse sur ce site mais sur une même ligne, cela fonctionne .
mais à partir d'une cellule active couper un champs en exemple $c$20:$c$30 et copier ce champs a partir de la cellule active, exemple de A30 et débuter la copie c30 avec revenir à la cellule active .
je ni arrive pas dans VBA.

Merçi pour une solution ou un début de réponse
A voir également:

1 réponse

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 22/07/2014 à 16:16
Bonjour

Un début de réponse (pour couper/coller "champ" à partir de "celdep" et retour à la cellule active)

Option Explicit

Const champ = "D3:F5"
Const celdep = "G8"

Public Sub CouperColler()
Dim adr As String
adr = ActiveCell.Address
Range(champ).Cut Range(celdep)
Range(adr).Select
End Sub

Cordialement
0