ToggleButton et protection cellules

[euro.speed]

rebonsoir à tous,

J'ai récupéré un code génial, je remercie son auteur mais je suis désolé je ne sais plus son nom.

Le code suivant permet la protection d'une plage de cellules.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Not Application.Intersect(Target, Range("A1:CL1050")) Is Nothing Then
If ActiveCell.Value = "" Then Application.Undo
End If
End Sub


Ma question, comment lui associer un objet (on/off) comme "ToggleButton" ?

Merci à tous !

 

[ziopizza]

Re : ToggleButton et protection cellules

Bonsoir euro.speed,
Perso je ne comprend pas ta question?
tu veux que cette procédure fonctionne dans un "ToggleButton",
ou que ton "ToggleButton" devienne inactif dans cette procédure
Salut Yves

 

[euro.speed]

Re : ToggleButton et protection cellules

Bonsoir Ziopizza,

désolé si c'est pas très clair

en fait, je souhaite que mon "ToggleButton" désactive la procédure de protection.

Merci pour ton aide

 

[ziopizza]

Re : ToggleButton et protection cellules

Peut étre comme çà,



Private Sub Worksheet_Change(ByVal Target As Range)
If ToggleButton1 = False Then Exit Sub
On Error Resume Next
If Not Application.Intersect(Target, Range("A1:CL1050")) Is Nothing Then
If ActiveCell.Value = "" Then Application.Undo
End If
End Sub

Oups: je dit des bétises pas besoin de pointeur,utilise ce code que j'ai modifier

@+Yves

 

[euro.speed]

Re : ToggleButton et protection cellules

Rebonsoir Ziopizza,

Merci ton idée est bonne mais ça marche pas !

Je n'arrive pas à comprendre ce que fais excel par moment les cellules sont bien protégées, je les manipule dans tous les sens et comme par magie elles ne sont plus protégées !!!

UN VRAI CASSE TETE, peut-être que ma méthode n'est pas bonne.


j'ai utilisé le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If ToggleButton1 = True Then Exit Sub
On Error Resume Next
If Not Application.Intersect(Target, Range("A1:CL1050")) Is Nothing Then
If ActiveCell.Value = "" Then Application.Undo
End If
End Sub


Private Sub ToggleButton1_Click()
If ToggleButton1 = False Then ToggleButton1.Caption = "Cellules Protégées"
If ToggleButton1 = True Then ToggleButton1.Caption = "Cellules Libérées"
End Sub

 

[ziopizza]

Re : ToggleButton et protection cellules

re,
regarde le petit exemple joint,qui fonctionne chez moi.
@+ Yves

 

[euro.speed]

Re : ToggleButton et protection cellules

Merci Ziopizza,

c'est vrai le code est correcte, par contre lorsque je l'intègre dans mon fichier c'est du délire.

Zippé il fait 150Ko, je peux te l'envoyer par mail si tu veux, tu verras je suis en train de réaliser une grosse macro qui pourra me créer un module qui pourra créer un fichier txt avec un format bien précis. en gros un dump d'une base access.

 

[ziopizza]

Re : ToggleButton et protection cellules

Pas de problème envoie le.
Yves

 

[euro.speed]

Re : ToggleButton et protection cellules

re Ziopizza,

je n'ai pas ton mail et quand j'essaie de t'envoyer un mail via le forum je ne vois pas où mettre la pièce jointe

 

[jeanpierre]

Re : ToggleButton et protection cellules

Bonqsoir à vous tous,

euro.speed : normalement, si tu cliques sur le pseudo, tu as : envoyer un email à :

A deux conditions, la première, c'est que le contributeur ait indiqué son email, et la seconde c'est qu'il soit d'accord, explicitement, à ton envoi.

Simple précision.

Bonne soirée à tous..

Jean-Pierre

 

[ziopizza]

Re : ToggleButton et protection cellules

le voila!
yves-lopez@wanadoo.fr