Vérrouillé si non vide

[WDAndCo]

Bonsoir le Forum

Comment verrouillé une ou des cellules si celles ci ne sont plus vides ?
Par Macro ou autre.

D'avance merci
Dominique

 

[ROGER2327]

Re : Vérrouillé si non vide

Bonjour WDAndCo

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   If IsEmpty(Target) Then Target.Locked = False Else Target.Locked = True
End Sub[/B][/COLOR]

peut-être ?​

ROGER2327
#2917

 

[JCGL]

Re : Vérrouillé si non vide

Bonjour à tous,

Tes cellules seront vraiment vides ou auront une formule qui ne retournent pas de valeurs ?

A+ à tous

 

[ROGER2327]

Re : Vérrouillé si non vide

Re... Bonsoir JCGL

Bonjour à tous,

Tes cellules seront vraiment vides ou auront une formule qui ne retournent pas de valeurs ?

A+ à tous

Bonne question, et je m'en veux de ne l'avoir point posée.​

ROGER2327
#2918

 

[JCGL]

Re : Vérrouillé si non vide

Bonjour à tous,
Salut Roger,

Travail d'équipe... Qui va bien sur un forum d'entraide...

A++
A+ à tous

 

[job75]

Re : Vérrouillé si non vide

Bonsoir Dominique, Roger, JC,

A voir, au cas où plusieurs cellules sont modifiées simultanément :

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Target In Target
   Target.Locked = Target <> ""
Next
End Sub

A+

 

[WDAndCo]

Re : Vérrouillé si non vide

Bonsoir job75, JCGL, ROGER2327 et le Forum

Des cellules seront vraiment vides au départ puis remplis par l'utilisateur. Alors que d'autres auront une formule qui ne retourneras des valeurs en fonction des premières.

 

[hbenalia]

Re : Vérrouillé si non vide

Bonjour le forum,

Bonjour à tous,

Tes cellules seront vraiment vides ou auront une formule qui ne retournent pas de valeurs ?

A+ à tous

Bonne remarque JCGL... Le code de ROGER2327 peut être transformé comme suit:

Private Sub Worksheet_Change(ByVal Target As Range)
   If IsEmpty(Target) Or Target.HasFormula = False Then Target.Locked = False Else Target.Locked = True
End Sub

Cordialement

 

[Staple1600]

Re : Vérrouillé si non vide

Bonsoir à tous*

Bonne remarque JCGL... Le code de ROGER2327 peut être transformé comme suit:

ou comme ceci (sous réserve)

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Locked = (IsEmpty(Target) = False)
End Sub

PS: toutes les cellules de la feuille sont déverrouillées manuellement avant d'insérer le code.

 

[job75]

Re : Vérrouillé si non vide

Re, bonsoir hbenalia, Staple,

Peut-être aussi, avec la protection de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Me.Unprotect '+ éventuellement un mot de passe
Cells.Locked = False 'nécessaire la 1ère fois
Cells.SpecialCells(xlCellTypeConstants).Locked = True
Cells.SpecialCells(xlCellTypeFormulas).Locked = True
Me.Protect
End Sub

A la place de Cells, on peut mettre une plage...

A+

 

[hbenalia]

Re : Vérrouillé si non vide

Bonjour le forum, bonjour Staple1600

Bien vu Staple1600, simple et efficace... Merci

Bonsoir à tous*


ou comme ceci (sous réserve)

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Locked = (IsEmpty(Target) = False)
End Sub

PS: toutes les cellules de la feuille sont déverrouillées manuellement avant d'insérer le code.

@ +

 

[WDAndCo]

Re : Vérrouillé si non vide

Merci à tous ! Bonne soirée.

Dominique

 

[WDAndCo]

Re : Vérrouillé si non vide

Bonsoir le Forum.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Locked = (IsEmpty(Target) = False)
End Sub

Ce code je le mets ou ?

 

[Staple1600]

Re : Vérrouillé si non vide

Bonsoir


Dans le code de la feuille concernée

(clic-droit sur ta feuille -> Visualiser le code)

 

[Habitude]

Re : Vérrouillé si non vide

Bonsoir à tous*


ou comme ceci (sous réserve)

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Locked = (IsEmpty(Target) = False)
End Sub

PS: toutes les cellules de la feuille sont déverrouillées manuellement avant d'insérer le code.

Petite question ..
D'ajouter une validation n'allourdi pas le processus ?
Désolé, je ne connais pas les étapes de validation en VBA

Target.Locked = Not IsEmpty(Target)

In
verse seulement la condition


Ou encore IsEmpty étant une fonction qui a mon avis tient compte des espaces

Target.Locked = trim(Target.text) <> ""