code vba

[laplayast]

Bonjour,
Le code en VBA,suivant ne fonctionne pas bien.

Private Sub Workbook_Open()
vutil = InputBox("entrez votre nom d'utilisateur")
VCode = InputBox("entrez votre code d'accËs")

Worksheets(1).Select

'recherche du code de l'utilisateur dans la feuille utilisateurs
codeutil = WorksheetFunction.VLookup(vutil, Range_
("utilisateurs!A2:B30"),2, False)

If codeutil <> VCode Then
MSGBOX "desole, mot de passe incorrect" vbOKcancel, "securite"
End 'sortie de la procedure
End If

Worksheets(3).Select
ActiveSheet.UsedRange

'selection de la premiere cellule vide
Range("A1").Select
ActiveSheet.UsedRange.Select
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Offset _
(1, -2).Select

End Sub

Quelqu'un pourrait-il m'apporter une solution.

Merci de votre attention.🙂

 

[vbacrumble]

Re : code vba

Bonsoir


Il manque une virgule ici

If codeutil <> VCode Then
MSGBOX "desole, mot de passe incorrect"[COLOR="Red"][B],[/B][/COLOR]vbOKcancel, "securite"
End 'sortie de la procedure
End If