Insertion de ligne dans un tableau avec des cellules verrouillées

[cambouis]

Bonjour,

Je souhaite remplir un tableau en sélectionnant les cellules de la ligne par la touche TAB. A la dernière colonne du tableau, une nouvelle ligne se crée dans le tableau. Les colonnes C,F,G,H contiendront des formules. Elles seront verrouillées (après protection du classeur..) pour éviter d'être sélectionner par la TAB quand on remplit le tableau.

Et voilà mon problème que je n'arrive pas à corriger :
Quand on protège le classeur, la TAB revient bien à la ligne mais sans créer de nouvelle ligne du tableau. Est il possible de garder la protection du classeur tout en gardant les "propriétés" de la mise en forme du tableau.

Je ne sais pas si je suis très clair mais je mais un fichier joint.

Merci à vous.

 

[STephane]

Re : Insertion de ligne dans un tableau avec des cellules verrouillées

Bonjour,

Il y a peut-être des exemples de macro pour verrouiller/déverrouiller et formater des lignes comme la précédente.

Si j'ai bien compris tu utilises la fonctionnalité Tableau, et effectivement le problème se pose.

J'ai trouvé un développement à l'adresse ci-dessous, où un fichier exemple est également disponible.
Ce lien n'existe plus

 

[cambouis]

Re : Insertion de ligne dans un tableau avec des cellules verrouillées

Bonjour STephane,

En effet, j'utilise la fonctionnalité Tableau. Je ne souhaite pas passer par une macro parce que le fichier sera utilisé par de nombreuses personnes(pas toujours très en "phase", si je peux me permettre, avec excel).

Je vais jeter un coup d'oeil sur ton lien (google traducteur est mon ami! 😉 )

Merci

 

[STephane]

Re : Insertion de ligne dans un tableau avec des cellules verrouillées

Sans macros, je ne vois pas comment
Tu pourrais utiliser du formatage conditionnel et déprotéger toutes les zones de saisies.

 

[cambouis]

Re : Insertion de ligne dans un tableau avec des cellules verrouillées

Bonjour,

Finalement, je suis passé par une macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("R:R")) Is Nothing Then
ActiveSheet.Unprotect
End If
If Not Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.Protect
End If

End Sub