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

Résolu/Fermé
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 5 oct. 2016 à 14:19
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 6 oct. 2016 à 02:08
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
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 oct. 2016 à 17:04
Bonjour

Que veux tu dire par "cellule inactive" ?

1
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
Utilisateur anonyme
5 oct. 2016 à 20:20
Edit :  Juste avant la fin de la 1ère partie, donc avant ligne  =========  :
Veuillez lire : [C6] = Worksheets("An 2016").[C4]
0
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 1
6 oct. 2016 à 02:08
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