Bug sur une macro

Question

J'ai un problème de Bug sur une macro et j'aurai besoin de vos lumière. par avance merci Sub cloturer() If ActiveSheet.Name = "OT-VIERGE" Then MsgBox ("Vous ne pouvez pas clôturer Le fichier.xlsm"): Exit Sub End If question = InputBox("Merci de saisir le mot de passe", , , 1000, 3000) If question &lt;&gt; "chalet53" Then MsgBox "Fermeture non autorisée": Exit Sub a = Range("L5") If Range("L5").Value &lt;&gt; "Résolu" Then MsgBox ("Clôture impossible, la cellule L5 n'est pas à jour"): Exit Sub End If a = ligne If Range("A6:L200").Locked = True Then GoTo suite Else Range("A6:L200").Locked = True Selection.Locked = True Selection.FormulaHidden = False suite: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ligne = Workbooks("TABLEAU-OT.xlsm").Worksheets("Synthèse").Cells(1, 27) ' ActiveWorksheet.Protect userinterfaceonly:=True, Password:="chalet53" Workbooks("TABLEAU-OT.xlsm").Worksheets("Synthèse").Cells(ligne, 9) = Range("L5").Value ActiveWorkbook.Save Application.DisplayAlerts = False ThisWorkbook.Close Application.DisplayAlerts = True End Sub Fichiers joints...

eriiic · Accepted Answer

Ne veut rien dire, décris le problème, la ligne et le message d'erreur s'il y a Et tant qu'à faire utilise l'icone &lt;/&gt; quand tu colles un code, que la lecture soit facilitée. Au bout d'un an tu devrais le savoir... eric...

xorsankukai · Answer

Bonsoir TEMAGOULTFARID , le forum, Je doute que tu obtiennes des réponses , Ton fichier n'est pas exploitable, il ne comporte qu'une image, , les feuilles ne sont même pas nommées. Fournis un fichier plus complet et décris ce que tu souhaites faire exactement, et sur quelle feuille.... A quoi te sers a = Range("L5") a = ligne ligne = Workbooks("TABLEAU-OT.xlsm").Worksheets("Synthèse").Cells(1, 27) ???? Sur quelle feuille agis-tu ? If Range("L5").Value &lt;&gt; "Résolu" Then If Range("A6:L200").Locked = True Then ?????? Pour cette partie: If Range("A6:L200").Locked = True Then GoTo suite Else Range("A6:L200").Locked = True Selection.Locked = True Selection.FormulaHidden = False suite: Essaies ainsi..... à tout hasard: If Range("A6:L200").Locked = True Then GoTo suite Else Range("A6:L200").Locked = True Range("A6:L200").FormulaHidden = False Range("A6:L200").Locked = True End If Cordialement...