AFFICHER LA CORRECTION sur excel sans avoir atteint la note minimaleRésolu

Question

bonjour, 

j'ai u noetit souci. Je r&#233;vise pour mon exam, mais je bute sur des exos sur excel. Hors, la correction ne s'affiche que l'orsque lune note minimale de 13 est obtenue. Comment faire pour quand m&#234;me afficher la correction ? J'ai r&#233;ussi &#224; faire sauter les s&#233;curit&#233;s de la feuille, et quand je clique sur "modifier la macro" de la case "afficher la correection", j'obtiens dans VBA ce qui suit :
'
' affichage_de_la_correction Macro
' Macro enregistr&#233;e le 19/10/1996 par MURAT Stephane
'
'
Sub affichage_de_la_correction()
On Error GoTo etiqerreur

 u_not = Sheets("exercice ").Range("D5")
  
  
   Select Case u_not
Case Is >= 13
 cod = Sheets("Feuil1").Range("A1")
    ActiveWorkbook.Unprotect Password:=cod
    Sheets("correction").Visible = True
    ActiveWorkbook.Protect Password:=cod
    
 Case Is >= 10
 MsgBox "Vous y &#234;tes presque"
 
 Case Is >= 5

 MsgBox "encore un effort"

    
 Case Else

 MsgBox "vous venez tout juste de commencer"
 

 
 
 End Select
 
GoTo finie
    
etiqerreur:
cod = Sheets("Feuil1").Range("A1")
ActiveSheet.Protect Password:=cod
ActiveWorkbook.Protect Password:=cod

   
finie:
 
    
End Sub

-------------------------------------------
j'y connais rien mais j'ai quand m&#234;me essay&#233; de remplacer le "13" par "0" mais rien &#224; faire, rien ne s'affiche...
au secours, quelqu'un peut m'aider ?! le prof ne nous file les corrections qu'&#224; la derni&#232;re minute, j'ai besoin de bosser maintenant !

jpleroisse · Accepted Answer

Re,

Et si tu fais une nouvelle macro avec les lignes uniquement jusque 

Sheets("Correction").Visible = true

puisque ensuite le reste du code comment par la reprotection de le feuille ??

 Essaye toujours.



jpleroisse

jpleroisse · Answer

Bonjour, 

Je ne comprends pas tr&#232;s bien ton explication,mais ce que je peux te
dire, s'il a activ&#233; la protection des macros (avec ou sans mot de
passe) tu ne pourras pas les ouvrirs.Peut-&#234;tre avec un programme con&#231;us
pour (mais j' en doute).



jpleroisse

astriders · Answer

merci d'essayer de m'aider !
en fait, j'ai pu acc&#233;der au contenu de la macro car j'avais le code, et en voici le contenu en cliquant sur "modifier la macro" :

Sub affichage_de_la_correction()
On Error GoTo etiqerreur

 u_not = Sheets("exercice ").Range("D5")
  
  
   Select Case u_not
Case Is >= 13
 cod = Sheets("Feuil1").Range("A1")
    ActiveWorkbook.Unprotect Password:=cod
    Sheets("correction").Visible = True
    ActiveWorkbook.Protect Password:=cod
    
 Case Is >= 10
 MsgBox "Vous y &#234;tes presque"
 
 Case Is >= 5

 MsgBox "encore un effort"

    
 Case Else

 MsgBox "vous venez tout juste de commencer"
 

 
 
 End Select
 
GoTo finie
    
etiqerreur:
cod = Sheets("Feuil1").Range("A1")
ActiveSheet.Protect Password:=cod
ActiveWorkbook.Protect Password:=cod

   
finie:
 
    
End Sub
----------------------------------------
j'ai rep&#233;r&#233; la note "13" dans "Case Is >= 13" qui permet l'afficahge de la correction. J'ai donc essay&#233; de remplacer 13 par 0, et enregistr&#233; la modif de la macro, seulement, apr&#232;s &#231;a, quand je clique sur "afficher la correction" sur mafeuille excel, &#231;a ne d&#233;clenche toujours pas l'affichage de la correction. Je voudrais savoir, &#233;tant donn&#233; que je n'y connais rien, quelle est la modification &#224; apporter &#224; la macro afin de permettre l'affichage de la correction sans avoir obligatoiremeent 13 points.
merci d'avance

astriders · Answer

MALHEURESEMENT &#231;a me dit "erreur de compilation", "end sub attendu"

AFFICHER LA CORRECTION sur excel sans avoir atteint la note minimale

4 réponses

Discussions similaires