Modifier formule

[tinet]

Bonjour à tous.

j'ai récupéré cette information sur un "Userform"
je dois cependant la compléter puis ajouter une protection à la feuille.

Cette fonction permet de sélectionner une liste dans la feuille et de supprimer la cellule.

Ma question est la suivante:
A la suppression la cellule se reverrouille automatiquement.
ce qui me pose problème car je souhaite protéger le fichier.
et ceci m'empêche de resélectionner la cellule.

Merci aux experts.🙂

Option Explicit

Private Sub cboListe_Change()

End Sub

Private Sub cmdAnnuler_Click()
Unload Me
End Sub

Private Sub cmdSupprimer_Click()
If cboListe.ListIndex = -1 Then Exit Sub
SuppFeuille cboListe.List(cboListe.ListIndex)
UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()

Dim LastRow As Long, i As Long
LastRow = ShListe.Range("A" & ShListe.Range("A:A").Rows.Count).End(xlUp).Row
cboListe.Clear

For i = 2 To LastRow
cboListe.AddItem ShListe.Cells(i, 1)
Next i

End Sub

 

[Guest]

Re : besoin d'aide

Bonjour,

"Besoin d'aide" n'est pas un titre qui convient pour les furtures recherches des futurs demandeurs qui auraient le même problème. voir la charte du forum. Change ton titre.

Private Sub cmdSupprimer_Click()
If cboListe.ListIndex = -1 Then Exit Sub
LaFeuille.Unprotect "MotDePasse"
SuppFeuille cboListe.List(cboListe.ListIndex)
UserForm_Initialize
LaFeuille.Protect "MotDePasse"
End Sub

Utilise la balise '#' de la barre d'outils d'édition des post pour poster tes codes.

A+

 

[tinet]

Re : besoin d'aide

Merci Hasco,


je ne suis pas un spécialiste, je modifierai à l'avenir mes demande.

ma demande ne portait pas sur la protection du fichier.

Mon souci est que lorsque je supprime dans la liste la cellule correspondante, celle-ci se protège automatiquement.

je voudrais que lorsque la cellule est vidée elles reprennent la fonction "enlever la protection"

 

[Guest]

Re : Modifier formule

Re,

Alors,

Lacellule.Locked=false

A+

 

[tinet]

Re : Modifier formule

Hasco,

généralement pour la protection j'utilise

ActiveSheet.Unprotect Password:=""

en ce qui concerne le code que tu m'as passé à quel endroit je dois le positionner

 

[Guest]

Re : Modifier formule

Re,

Dans l'exemple de ton premier post, tu dis

Cette fonction permet de sélectionner une liste dans la feuille et de supprimer la cellule.

Eh bien place le juste après la suppession de la cellule. Si tu veux quelque chose de plus précis, soit toi aussi plus précis. fichier exemple?

A+

 

[tinet]

Re : Modifier formule

Hasco,

Mon fichier est trop volumineux, y a-t-il un moyen de te le faire passer.

a+