Vba pour copier d'une cellule active à une cellule inactive

Résolu
achgel Messages postés 113 Statut Membre -  
achgel Messages postés 113 Statut Membre -
Bonjour tous le monde

Est ce qu'il est possible de copier coller l'information contenu dans une cellule active (C4) Feuille (A) dans une cellule inactive (C6) dans une Feuille (B) protégée?

Au fait j'utilise ce code pour copier coller mais le cellules sont active dans les deux feuille

Sheets("A").Range("C4").Copy 'Date
Sheets("B").Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci pour votre réponse

2 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    Que veux tu dire par "cellule inactive" ?

    1
  2. Utilisateur anonyme
     
    Bonjour achgel,

    Oui, c'est à la fois très possible et très facile ! Il suffit de :
    [B!C6] = [A!C4]

    En plus :

    Si tu lances toujours ta macro à partir de la feuille A :
    [B!C6] = [C4]

    Si tu lances toujours ta macro à partir de la feuille B :
    [C6] = [A!C4]

    Si un nom de feuille comporte au moins un espace :
    à encadrer par des apostrophes simples (quotes) ;
    exemple : [C6] = ['An 2016'!C4]

    Si tu tombes sur un cas où cette notation simplifiée
    ne suffit pas, utilises par exemple :

    [C6] = Worksheets("An 2016").[C6]

    ======================

    Tout ce qui est ci-dessus est valable, mais attention
    à la protection de la feuille où tu écris (ici, feuille B).

    ======================

    1) 1ère possibilité : déprotège la feuille B (si non déjà fait) ;
    fais un clic droit sur C6 et choisis « Format de cellule » ;
    onglet Protection, décoche la case haut pour avoir :
    ☐ Verrouillée
    Valide : clic sur bouton OK ; reprotège la feuille B

    2) 2ème possibilité : laisses C6 verrouillé, mais le code VBA
    devra déprotéger la feuille B avant puis la reprotéger après.

    Macro toujours lancée à partir de la feuille B seulement :

    
    Sub Essai
      Activesheet.Unprotect
      [C6] = [A!C4]
      Activesheet.Protect
    End Sub
    
    

    Si ton problème est réglé, merci d'aller en haut de page
    pour cliquer sur « Marquer comme résolu ».

    Cordialement.  😊
     
    1
    1. Utilisateur anonyme
       
      Edit :  Juste avant la fin de la 1ère partie, donc avant ligne  =========  :
      Veuillez lire : [C6] = Worksheets("An 2016").[C4]
      0
    2. achgel Messages postés 113 Statut Membre 1
       
      Bonjour albkan
      Merci infiniment
      de m'avoir aidé a résoudre le problème de copier/coller d'une cellule active d'une feuille (A) à une cellule inactive d'autre feuille (B) préalablement protégée
      Cordialement
      0