Prolème de protection.

[pat12]

Bonjour,
J'ai un code qui fait deux actions:
Il supprimer des lignes sur une feuille inventaire.
Il efface des cellules sur une feuille Recherche
Ce code fonctionne très bien, mais j'ai placé dans ThisWorkbook un code pour protéger les feuilles (sans mot de passe).
Il faut donc enlever et remettre la protection au début et a la fin du code sachant qu'il fait deux action sur deux feuille différant et la je bloque.
J’ai besoin d’aide.
Merci

Private Sub CommandButton5_Click()
Select Case MsgBox(">>>ATTENTION<<<" & Chr(13) & "Vous allez supprimer définitivement les lignes sélectionnées dans le listing. " & Chr(13) & "Voulez-vous continuer.", vbYesNo, "Suppression des lignes")
Case vbYes
Dim Lig As Long, Grille As Variant, Trouve As Range, Plage As Range
For Lig = 1 To Selection.Rows.Count
Grille = Selection(Lig, 5).Value
With Sheets("inventaire")
Set Trouve = .Range("E8:E" & .[E65536].End(xlUp).Row).Find(Grille, LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
If Plage Is Nothing Then
Set Plage = .Rows(Trouve.Row)
Else: Set Plage = Union(Plage, .Rows(Trouve.Row))
End If
End If
End With
Next
If Not Plage Is Nothing Then Plage.Delete
Range("A9:L1634").Select
Selection.ClearContents
Range("A9").Select
Case vbNo
'procédure si click sur Annuler
End Select
End Sub

 

[jeanpierre]

Re : Prolème de protection.

Bonjour pat12,

Utiliser :

ActiveSheet.Unprotect

juste après l'appel de ta feuille x ou y

et avant de passer à l'autre feuille :

ActiveSheet.Protect

Voir si cela te convient.

Jean-Pierre

 

[pat12]

Re : Prolème de protection.

Salut Jeanpierre,
Je connais le code mais je n'arrive pas à le placer au bon endroit.
C’est la que j’ai besoin d’aide.
Merci.

 

[jeanpierre]

Re : Prolème de protection.

Re,

Après le Private pour la première déprotection et avant le With pour reprotéger et

après : With Sheets("inventaire") pour la seconde déprotection...

et avant le End Sub pour reprotéger.

 

[pat12]

Re : Prolème de protection.

Ok merci pour la réponse Jeanpierre.

 

[pat12]

Re : Prolème de protection.

Désolé je n'arrive toujours pas à le faire fonctionner avec les protections, malgré ton excellente explication.
Le code ce bloque sur (Plage.Delete) qu'il met en jaune.
Il ne me reste plus qua ne rien protéger.
pat12

 

[jeanpierre]

Re : Prolème de protection.

Bonjour pat12,

Lorsque ton code se bloque sur Plage.delete, il t'indique quoi comme erreur car cette partie ne semble pas complète.

Bon dimanche.

Jean-Pierre

 

[pat12]

Re : Prolème de protection.

Poutan le code fonctionne trés bien sans les protections des feuilles ?

Le fichier est trop volumineux pour passer par le site.

En deux mots je sélectionne des lignes sur la feuille inventaire par des couleurs, ensuite je vais sur la page recherche et la je clique sur un bouton qui correspond a la couleur que je veux les lignes sélectionner sur la première feuille ce copie dans celle la.

La mon code rentre en fonction la.
Je sélectionne les lignes complète de la feuille je clique sur le bouton et j’ai un message qui me rappelle que je vais supprimer les lignes définitivement sur la première feuille et effacer simplement les lignes sur la deuxième feuille.
Ce n’est pas facile d’expliquer en écrivent, j’espère que j’ai été clair.
Merci encore.

 

[jeanpierre]

Re : Prolème de protection.

Re,

Peux-tu réduire ton fichier en laissant suffisamment de données pour qu'il soit compréhensible et exploitable, ton code et, au besoin, une explication du fonctionnement, car, là, je ne vois personnellement pas, mais, bon, d'autres verront peut-être plus clair.

Tu le zippes avec le compresseur intégré de Windows, ce qui permet d'y mettre pas mal de données.

 

[JNP]

Re : Prolème de protection.

Bonjour Pat12, JeanPierre 🙂,
Est-il normal que ta feuille soit dans la boucle et non pas extérieure à la boucle ? J'aurais plutôt tendance à l'écrire comme ceci

Private Sub CommandButton5_Click()
Select Case MsgBox(">>>ATTENTION<<<" & Chr(13) & "Vous allez supprimer définitivement les lignes sélectionnées dans le listing. " & Chr(13) & "Voulez-vous continuer.", vbYesNo, "Suppression des lignes")
Case vbYes
Dim Lig As Long, Grille As Variant, Trouve As Range, Plage As Range
[COLOR=red][B]With Sheets("inventaire")[/B][/COLOR]
[B][COLOR=red].Unprotect[/COLOR][/B]
For Lig = 1 To Selection.Rows.Count
Grille = Selection(Lig, 5).Value
Set Trouve = .Range("E8:E" & .[E65536].End(xlUp).Row).Find(Grille, LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
If Plage Is Nothing Then
Set Plage = .Rows(Trouve.Row)
Else: Set Plage = Union(Plage, .Rows(Trouve.Row))
End If
End If
Next
If Not Plage Is Nothing Then Plage.Delete
[COLOR=seagreen]Range("A9:L1634").Select[/COLOR]
[COLOR=seagreen]Selection.ClearContents[/COLOR]
[COLOR=seagreen]Range("A9").Select[/COLOR]
[COLOR=red][B].Protect[/B][/COLOR]
[B][COLOR=red]End With[/COLOR][/B]
Case vbNo
'procédure si click sur Annuler
End Select
End Sub

D'autre part les lignes en vert sont en référence de feuille relative et non absolue, ne manquerait-il pas un petit "." ?
Bon dimanche 😎

 

[pat12]

Re : Prolème de protection.

Merci ton code fonctionne effectivement il y a une erreur sur le code en (vert) tu placerai un point ou sur le code.
pat12

 

[JNP]

Re : Prolème de protection.

Re 🙂,
Si ces ligne sont bien sur la feuille Inventaire :

[COLOR=#2e8b57].Range("A9:L1634")[/COLOR][COLOR=seagreen].ClearContents[/COLOR]
[COLOR=seagreen].Range("A9").Select[/COLOR]

Sinon,

[COLOR=#2e8b57]Sheets("Autre").Range("A9:L1634").ClearContents[/COLOR]
[COLOR=seagreen]Sheets("Autre").Range("A9").Select[/COLOR]

A + 😎