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

Choc21 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 11033 Statut Membre -
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 Messages postés 11033 Statut Membre 2 434
     
    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 -
Yves -

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

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

8 réponses