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
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