Vba pour copier d'une cellule active à une cellule inactive
Résolu
achgel
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Vba pour copier d'une cellule active à une cellule inactive
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Comment copier une vidéo youtube - Guide
2 réponses
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 :
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. 😊
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. 😊
