XL 2016 Ajouter des cellules copiées dans une feuille protégée

M

MELDIO

XLDnaute Nouveau
Bonjour le forum!
J'ai réalisé une facture modèle qui contient des formules. J'ai essentiellement protégée les cellules (contenant des formules et autres informations fixes) qui ne nécessiteront pas de modification. Mais toutefois ma feuille de calcul est destinée à être flexible et modifiables (en ce qui concerne les les cellules qui ne sont pas protégées). Ce que j'ai réalisé sans souci sauf la partie pour insérer de nouvelles lignes. En effet, pas pour insérer une ligne simple et vide, mais une ligne précédemment copiée sur la même feuille en faisant un clic droit et "insérer les cellules copiées".. Comme c'est cette option seule qui me permet d'ajouter de nouvelles lignes avec les formules contenues dans les précédentes. Elle ne marche que lorsque la feuille n'est pas protégée, moi j'aimerais le second cas pour éviter les modifications par erreur (des formules par exemple).
Je veux une sortie pour cette problématique ou une autre approche pour contourner le genre de problème.. Merci d'avance de votre aide..
 
Trier par date Trier par votes
D

danielco

XLDnaute Accro
Dans le module ThisWorkbook, mets :

VB: 
Private Sub Workbook_Open()
  Sheets("Feuil1").Protect Password:="PWD", userinterfaceonly:=True
End Sub

Il faut remplacer "Feuil1" par le nom de la feuille et "PWD" par le mot de passe de la feuille.

Dans un module standard, mets :

Code: 
Sub Coller()
  ActiveSheet.Paste
End Sub

Il faut ensuite attribuer un raccourci à la macro. Si tu ne sais pas comment insérer une macro ou attribuer un raccourci, dis-le.

Daniel
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour MELDIO, danielco,

Voyez le fichier joint et cette macro (clic droit sur l'onglet et Visualiser le code) :
VB: 
Dim plage As Range 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode And Not plage Is Nothing Then
    If ActiveCell.Column + plage.Columns.Count - 1 <= Columns.Count Then
        If MsgBox("Insérer la plage copiée au-dessus de " & ActiveCell.Address(0, 0) & " ?", 4) = 7 Then Exit Sub
        Protect "toto", UserInterfaceOnly:=True
        Application.CutCopyMode = 0
        ActiveCell.Resize(, plage.Columns.Count).Insert xlDown
        plage.Copy ActiveCell
        Set plage = Selection
    End If
Else
    Selection.Areas(1).Select 'zones multiples non autorisées
    Set plage = Selection
End If
End Sub
A+
 

Pièces jointes

  • Insertion(1).xlsm
    21.7 KB · Affichages: 9
Vote positif 0 Vote négatif
M

MELDIO

XLDnaute Nouveau
job75 à dit:
Bonjour MELDIO, danielco,

Voyez le fichier joint et cette macro (clic droit sur l'onglet et Visualiser le code) :
VB: 
Dim plage As Range 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode And Not plage Is Nothing Then
    If ActiveCell.Column + plage.Columns.Count - 1 <= Columns.Count Then
        If MsgBox("Insérer la plage copiée au-dessus de " & ActiveCell.Address(0, 0) & " ?", 4) = 7 Then Exit Sub
        Protect "toto", UserInterfaceOnly:=True
        Application.CutCopyMode = 0
        ActiveCell.Resize(, plage.Columns.Count).Insert xlDown
        plage.Copy ActiveCell
        Set plage = Selection
    End If
Else
    Selection.Areas(1).Select 'zones multiples non autorisées
    Set plage = Selection
End If
End Sub
A+
Cliquez pour agrandir...


Hello, Merci beaucoup job75..
En effet, votre fichier est parfait. L'insertion marche quand même le la feuille est protégée.
Mais à moi je ne réussi pas encore à l'adapter dans mon fichier défaut de manipulation des macros..
J'ai adopter le code, mais rien n'y fit.
J'ai enregistreé moi même le macro, mais ne marche pas après verrouillage de la feuille. Réagit uniquement quand j'exécuté le macro manuellement depuis l'onglet "affichage>>macro>>exécuter".. : ce qui n'est pas pratique pour un usager lamda..
Je voudrais svp que vous me définissez ici votre procédure que je puisse réaliser ça pas à pas. Merci d'avance.

A la fin j'aimerais aussi ajouter un bouton pour insérer les lignes en questions en fonction de là ou e curseur est posé sans pour autant faire les clics droits.. (mais lui c'est après avoir réussir le premier cas).
 
Vote positif 0 Vote négatif
M

MELDIO

XLDnaute Nouveau
danielco à dit:
Dans le module ThisWorkbook, mets :

VB: 
Private Sub Workbook_Open()
  Sheets("Feuil1").Protect Password:="PWD", userinterfaceonly:=True
End Sub

Il faut remplacer "Feuil1" par le nom de la feuille et "PWD" par le mot de passe de la feuille.

Dans un module standard, mets :

Code: 
Sub Coller()
  ActiveSheet.Paste
End Sub

Il faut ensuite attribuer un raccourci à la macro. Si tu ne sais pas comment insérer une macro ou attribuer un raccourci, dis-le.

Daniel
Cliquez pour agrandir...


Oui, j'ai besoin d'éclaircissement par rapport à la manipulation des macros.. L'insertion surtout car j'ai essayé le code de job75 sans succès.. Merci beaucoups d'avance..
 
Vote positif 0 Vote négatif
M

MELDIO

XLDnaute Nouveau
C'est évidemment magique..
Merci danielco..
Merci beaucoups job75..

A présent je voudrais voir la possibilité pour ajouter un bouton raccourci pour exécuter cette action si possible..
J'ai aussi essayer pour le raccourci clavier mais la macro ne s'affiche pas dans la liste des macros. Que faire?
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
MELDIO à dit:
A présent je voudrais voir la possibilité pour ajouter un bouton
Cliquez pour agrandir...
Voyez ce fichier (2) et le code :
VB: 
Dim plage As Range 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = 0 Or plage Is Nothing Then Selection.Areas(1).Select: Set plage = Selection 'zones multiples non autorisées
End Sub

Sub Inserer()
If Application.CutCopyMode = 0 Or plage Is Nothing Then Exit Sub
If ActiveCell.Column + plage.Columns.Count - 1 <= Columns.Count Then
    If MsgBox("Insérer la plage copiée au-dessus de " & ActiveCell.Address(0, 0) & " ?", 4) = 7 Then Exit Sub
    Protect "toto", UserInterfaceOnly:=True
    Application.CutCopyMode = 0
    ActiveCell.Resize(, plage.Columns.Count).Insert xlDown
    plage.Copy ActiveCell
    Set plage = Selection
End If
End Sub
La macro Inserer est affectée au bouton.
 

Pièces jointes

  • Insertion(2).xlsm
    22.9 KB · Affichages: 7
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Prenez ce fichier (3), ceci est mieux :
VB: 
Dim plage As Range 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = 0 Then Selection.Areas(1).Select: Set plage = Selection 'zones multiples non autorisées
End Sub

Sub Inserer()
If plage Is Nothing Then Application.CutCopyMode = 0
If Application.CutCopyMode = 0 Then Exit Sub
If ActiveCell.Column + plage.Columns.Count - 1 <= Columns.Count Then
    If MsgBox("Insérer la plage copiée au-dessus de " & ActiveCell.Address(0, 0) & " ?", 4) = 7 Then Exit Sub
    Protect "toto", UserInterfaceOnly:=True
    Application.CutCopyMode = 0
    ActiveCell.Resize(, plage.Columns.Count).Insert xlDown
    plage.Copy ActiveCell
    Set plage = Selection
End If
End Sub
Bonne nuit.
 

Pièces jointes

  • Insertion(3).xlsm
    23 KB · Affichages: 7
Vote positif 0 Vote négatif
M

MELDIO

XLDnaute Nouveau
job75 à dit:
Prenez ce fichier (3), ceci est mieux :
VB: 
Dim plage As Range 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = 0 Then Selection.Areas(1).Select: Set plage = Selection 'zones multiples non autorisées
End Sub

Sub Inserer()
If plage Is Nothing Then Application.CutCopyMode = 0
If Application.CutCopyMode = 0 Then Exit Sub
If ActiveCell.Column + plage.Columns.Count - 1 <= Columns.Count Then
    If MsgBox("Insérer la plage copiée au-dessus de " & ActiveCell.Address(0, 0) & " ?", 4) = 7 Then Exit Sub
    Protect "toto", UserInterfaceOnly:=True
    Application.CutCopyMode = 0
    ActiveCell.Resize(, plage.Columns.Count).Insert xlDown
    plage.Copy ActiveCell
    Set plage = Selection
End If
End Sub
Bonne nuit.
Cliquez pour agrandir...

Merci bien job75 ..
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
XL 2021 Tableau incrementé dans une feuille excel protégée!
Réponses
1
Affichages
211
fanfan38
fanfan38
D
  • Question
Microsoft 365 Filtrer sur une feuille protégée et avec code macro
Réponses
5
Affichages
445
dd_76
D
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Protection automatique des nouvelles feuilles
Réponses
6
Affichages
473
Phil69970
Phil69970
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
701
Alain 79
A
Roseline
  • Résolu(e)
Microsoft 365 Tri sur feuille protégée
Réponses
4
Affichages
945
Roseline
Roseline
R
  • Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
603
Renaud22
R
P
  • Question
XL 2019 Protection dans une feuille.
2 3
Réponses
33
Affichages
1 K
Paulle
P
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
412
steph_29120
S
C
  • Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
345
gbinforme
G
M
  • Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
6
Affichages
342
vgendron
vgendron

Membres actuellement en ligne

14 membres et 121 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 080
Messages
2 116 023
Membres
112 637
dernier inscrit
pseudoinconnu