Problème: Tableau excel et protection de formules.

Résolu/Fermé

Franki - 26 nov. 2017 à 11:08
Franki - 26 nov. 2017 à 23:50

Bonjour,

J'ai un tableau excel qui fonctionne très bien avec des formules.
Lorsque je protège mes formules du tableau, je ne peux plus créer de lignes supplémentaires; Mon tableau ne crée plus de lignes (les nouvelles lignes se créent automatiquement à partir de la saisie du numéro de dossier dans la première colonne)....
même lorsque je sélectionne dans révisions/protection "insérer des lignes".

D'avance merci à tous pour une piste

Bien cordialement,

Frank

http://www.cjoint.com/c/GKAkabeYRea

1 réponse

Réponse 1 / 1

thev Messages postés 1943 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 14 janvier 2025 697
26 nov. 2017 à 22:12

Bonsoir,

Une solution via VBA en supposant que le mot de passe est à blanc

https://www.cjoint.com/c/GKAvlbxc5fQ

Franki
26 nov. 2017 à 22:31

Bonjour,
ça a l'air de marcher bien, mais comment reproduire cela sur d'autres fichier je ne vois pas de trace de code dans la partie développeur VBA?

Merci

Franki
26 nov. 2017 à 22:47

Ah j'ai trouvé, encore merci je vais tester.
Je remplace Empty par mon mot de passe c'est bien ça?
Bonne soirée.

Private Sub Worksheet_Change(ByVal Target As Range)
Const mot_de_passe As String = ""
Dim cell_saisie As Range

With Me.ListObjects(1)
Set cell_saisie = .DataBodyRange.Cells(.ListRows.Count + 1, 1)
If Not Intersect(Target, cell_saisie) Is Nothing Then
Application.EnableEvents = False
Me.Unprotect mot_de_passe
.ListRows.Add
.DataBodyRange.Cells(.ListRows.Count, 1) = cell_saisie: cell_saisie = Empty
Me.Protect mot_de_passe
Application.EnableEvents = True
End If
End With

End Sub

Franki > Franki
26 nov. 2017 à 23:50

Ok j'ai trouvé merci beaucoup thev, bonne soirée.