XL 2013 message à Dranreb

[pompaero]

Bonjour Dranreb

Je reviens vers toi à propos du fichier sur lequel tu ma aidé dernièrement (gestion de casques), j'ai un soucis de suppression de personnel seul et n'arrive pas à le résoudre.
Si tu le veux j'aimerai un peu d'aide. Merci

Cdlt

 

[Dranreb]

Bonjour.
J'ai eu la surprise de redécouvrir que j'ai 3 classeurs CBxLiéesPompaeroCasq*.xlsm : …ues,(PV),(JPD)
PV ça doit être précédente version mais JPD je ne sais plus.
Quel est le problème ?

 

[pompaero]

Merci de ton retour.
Je suis dans le cas ou je voudrais supprimer (en mettant dans archive) un agent seul (sans le casque) avec le BtnSupprimer mais j'ai un Bug sur cette ligne,

FArch.ListObjects(1).ListRows.Add.Range.Value = VLgn

D'après mes souvenirs, il me semble que pour supprimer il faut avoir le N° du casque "GIP.0002" par exemple et cela supprime l'agent et le casque ou le casque seul.
Comment faire pour supprimer l'agent seul ?
je joint une copie du fichier (rien de bien secret)
Cdlt

 

[Dranreb]

Activez la feuille Archive
Demandez l'enregistrement d'une nouvelle macro.
Pendant que ça enregistre :
Clic droit sur l'onglet, puis Ôter la protection de la feuille…
Remettez cette protection.
Arrêtez l'enregistrement.
Dans la Sub CBnSupprimer_Click, inspirez vous des instructions engendrées sans utiliser d'Activate ni de Select et avec FArch au lieu de Worksheets("Archive")

 

[pompaero]

L'imbécile que je suis , je n'ai pas fais attention que la feuille était protéger. Merci de tes conseils que je vais adapter au projet.
Je te tiens au courant..

 

[pompaero]

Je viens de tester ta proposition qui a l'aire de fonctionner, mais pas très sur de mon coup.
Le code modifier :

Private Sub CBnSupprimer_Click()
If MsgBox("Êtes vous sûr de vouloir supprimer : " & Descript(VLgn) & Chr$(160) & "?", _
   vbYesNo + vbExclamation + vbDefaultButton2, Me.Caption) = vbNo Then Exit Sub
FArch.Unprotect Password:="123"  '<--- code ajouté pour déprotect
FArch.ListObjects(1).ListRows.Add.Range.Value = VLgn
CL.Lignes(LCou).Delete
If LMém = LCou Then
   LMém = 0: LabInfo.Caption = ""
ElseIf LMém > LCou Then
   LMém = LMém - 1
   End If
FArch.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '<--- code ajouté pour reprotect
ActualiserTout
CL.Nettoyer
End Sub

Cdlt

 

[Dranreb]

Si, à coup sûr, pourquoi pas ? Le FArch.Protect pourrait être mis juste après le FArch.ListObjects(1).ListRows.Add, mais comme ça ça va aussi.

 

[pompaero]

Ok
merci pour tout, je vais essayer d'avancer encore un peu sur la présentation et voir si il faut améliorer encore un peu.

Je mets résolu pour ce post
Grand merci.