Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

[Maivas]

Bonjour,

J'ai cherché dans le forum mais point trouvé de réponse alors voici n'énigme du jour:

Imaginez une feuille excel avec des Lignes 1 à 100 remplies:
colonnes [A] & [C] contenant des formules vérouillées (Cellule Protégée)
colonne & [D] contenant des données rentrées au fur et à mesure (Cellule Non protégée)

Quand je clique sur la ligne 2 je voudrais pouvoir effacer toutes les cellules non protégées uniquement.

Une petite idée?
Merci

Maivas

 

[Bigfish]

Re : Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

Salut,

ben je vois pas le probleme la 😕

Si tu connais l'emplacement de tes cellules non protegees c'est facile ou alors il y quelque chose qui m'echape 😕

Dim ActiveRow As Long
ActiveRow = Activecell.Row
Range("B" & ActiveRow & ",D" & ActiveRow).ClearContents

Voila 🙂

 

[job75]

Re : Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

Bonjour Maivas, Bigfish

Essayez cette macro, à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Cel As Range)
If ActiveCell.Row <> 2 Then Exit Sub
For Each Cel In Range("B1:B100,D1:D100")
If Cel.Locked = False Then Cel.Value = ""
Next
End Sub

A+

 

[Maivas]

Re : Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

Bon je pense que je me suis mal exprimée.

Je vous ai parlé de 4 colonnes pour faire un exemple mais en faite j'ai 40 colonnes dont certaines sont verrouillées et d'autres non.
Donc en effet je connais les cellules non protégées mais je ne veux pas
- Effacer l'ensemble des données des colonnes non protégées (> Bigfish)
- Effacer uniquement les cellules non protégées de la ligne 2 (>Job 75)

Je voudrais pouvoir choisir une ligne (N'importe laquelle) [Clique sur le n° de ligne] et effacer le contenu des cellules non protégées [Touche Suppr du clavier] mais comme la feuille est protégée cela ne marche pas et si je déprotège la feuille cela va effacer l'ensemble des données de la ligne.

Voili Voulou J'espère que c'est + clair ;-p
Merci

Maivas

 

[job75]

Re : Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

Bonjour Maivas,

C'est ce que j'avais compris au début, mais comme vous parliez de la ligne 2...

Voici la macro (dans le code de la feuille) :

Private Sub Worksheet_SelectionChange(ByVal Cel As Range)
For Each Cel In ActiveCell.EntireRow.Cells
If Cel.Locked = False Then Cel.Value = ""
Next
End Sub

 

[Maivas]

Re : Effacer Ligne Avec Cellule Vérouillée et Dévérouillée

Bonsoir,

Merci beaucoup Job75 vous m'avez permis d'avancer.
Je me suis inspirée de votre code et au final cela donne :

Private Sub Worksheet_SelectionChange(ByVal Cel As Range)
If Selection.Address = Selection.EntireRow.Address Then
Application.OnKey "{Delete}", "Feuil1.Supprimer"
Else
Application.OnKey "{Delete}"
End If
End Sub

Private Sub Supprimer()
Select Case MsgBox("Attention Supression Définitive", vbOKCancel + vbExclamation, "Suprresion")
Case vbOK
For Each Cel In Selection
If Cel.Locked = False Then Cel.Value = ""
Next
Case vbCancel
Application.OnKey "{Delete}"
End Select
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{Delete}"
End Sub

Ma connaissance en vba étant plutôt limitée, il est fort probable que ces macros soient perfectibles mais cela fonctionne en l'état et c'est l'essentiel.

Maivas