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

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

1 réponse

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

    Discussions similaires

    Enlever le pass. Telecomm. Active
    Lisa

    3 réponses
    Message ne s'envoie pas données mobiles Redmi
    Eric

    4 réponses
    Pass. Télécomm. Active
    Syl20

    8 réponses