Yldie
XLDnaute Junior
Bonjour à tous,
J'ai un souci au niveau du nombre d'arguments et/ou erreur de compilation, je crois que vous pourriez m'aider à corriger cette macro qui joue sur plusieurs feuilles de mon classeur !?!?
Merci par avance
Sub m()
Dim spwd As String
spwd = InputBox("Entrer le mot de passe")
If spwd <> "RGI" Then
MsgBox ("Mot de passe invalide")
Sheets("Feuil4", "Feuil1", "Feuil15", "Feuil16", "Feuil22", "Feuil23", "Feuil25", "Feuil29", "Feuil30", "Feuil31", "Feuil32", "Feuil33", "Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6").Visible = xlVeryHidden
Sheets("INTRO").Activate
Else
Sheets("Feuil4", "Feuil1", "Feuil15", "Feuil16", "Feuil22", "Feuil23", "Feuil25", "Feuil29", "Feuil30", "Feuil31", "Feuil32", "Feuil33", "Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6").Visible = True
End If
End Sub
J'ai un souci au niveau du nombre d'arguments et/ou erreur de compilation, je crois que vous pourriez m'aider à corriger cette macro qui joue sur plusieurs feuilles de mon classeur !?!?
Merci par avance
Sub m()
Dim spwd As String
spwd = InputBox("Entrer le mot de passe")
If spwd <> "RGI" Then
MsgBox ("Mot de passe invalide")
Sheets("Feuil4", "Feuil1", "Feuil15", "Feuil16", "Feuil22", "Feuil23", "Feuil25", "Feuil29", "Feuil30", "Feuil31", "Feuil32", "Feuil33", "Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6").Visible = xlVeryHidden
Sheets("INTRO").Activate
Else
Sheets("Feuil4", "Feuil1", "Feuil15", "Feuil16", "Feuil22", "Feuil23", "Feuil25", "Feuil29", "Feuil30", "Feuil31", "Feuil32", "Feuil33", "Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6").Visible = True
End If
End Sub