Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 insertion ligne avec formule protégée et masquée

Prya

XLDnaute Nouveau
Bonjour,

Pouvez-vous SVP me dire s'il est possible dans un fichier excel d'insérer des lignes avec une recopie des formules sachant que les cellules sont protégées ?

J'ai essayé mais je ne n'y parviens pas.

Je vous joins un fichier d'essai pour une meilleure compréhension.

En vous remerciant par avance pour l'aide que vous pourrez m'apporter.

Cordialement
Prya
 

Pièces jointes

  • essai - 2022-2023 - Modele Referentiel revu 02-11-2022.xlsx
    19 KB · Affichages: 6

Prya

XLDnaute Nouveau
Je vous prie de bien vouloir m'excuser pour cette inattention.

Voici le fichier protégé et l'idée est d'insérer des lignes entre la ligne 4 et 9 peu importe l'endroit et en copiant la formule qui setrouve en colonne "F" et qui est vérouillée et masquée.

La colonne "F" se remplit automatiquement dès lors qu'un nombre est saisi en colonne "G"

Merci beaucoup pour votre aide
Prya
 

Pièces jointes

  • essai - 2022-2023 - Modele Referentiel revu 02-11-2022.xlsx
    19.2 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Sans mot de passe j'ai improvisé.
Vous pouvez faire :
VB:
Sub Insertion()
    ActiveSheet.Unprotect ("1234")          ' Déprotection, Changer password
    Range("D7").EntireRow.Insert            ' Changer D7 par cellule où inserer
    Range("D5:G5").Copy                     ' Changer plage à copier
    Range("D7").Select                      ' Changer cellule où coller
    ActiveSheet.Paste                       ' Coller tout, format, formules ....
    ActiveSheet.Protect Password:="1234"    ' Protection, Changer password
End Sub
Il vous faut modifier le mot de passe, la ligne où coller, la ligne à copier.
 

Prya

XLDnaute Nouveau
 

Prya

XLDnaute Nouveau
Est-il possible également de protéger toutes les formules d'un tableau sans protéger la feuille afin de permettre aux différents utilisateurs d'insérer et supprimer des lignes ?

Merci beaucoup Sylvanu ! et un grand merci pour les explications, toujours agréable de comprendre ce que l'on fait.

Est-il possible également de protéger toutes les formules d'un tableau sans protéger la feuille afin de permettre aux différents utilisateurs d'insérer et supprimer des lignes ?

Prya
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Il existe plusieurs solutions, dont celle en PJ.
Quand on essaie de cliquer sur une cellule de la colonne F alors on sélectionne automatiquement la même en colonne E ce qui fait que F n'est pas modifiable. Avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F4:F1000")) Is Nothing Then
        Cells(Target.Row, Target.Column - 1).Select
    End If
Fin:
End Sub
 

Pièces jointes

  • Protection Formules.xlsm
    15.9 KB · Affichages: 9

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…