Code vba1

[laplayast]

bonjour,
J'ai encore,un code VBA qui ne fonctionne pas bien;après la mise à jour à ma première demande.Cela progresse🙂;
merci de votre aide🙂.

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"), 4, False)

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

Worksheets(5).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

 

[skoobi]

Re : Code vba1

Bonjour,

qu'est-ce qui ne marche pas?
Que veux-tu faire?

 

[laplayast]

Re : Code vba1

bonjour,
Il apparait,le message suivant à l'execution de la macro"
ERREUR D'execution'1004':
impossible de lire la propriété VLookup de la classe WorksheetFunction.
Je ne sais pas pourquoi?
merci de votre attention.
@+laplayast

 

[Pierrot93]

Re : Code vba1

bonjour laplayst, Skoobi

essaye peut être comme suit :

codeutil = WorksheetFunction.VLookup(vutil, _
    Sheets("utilisateurs").Range("A2:B30"), 4, False)

non testé...

bonne journée
@+

 

[laplayast]

Re : Code vba1

Bonjour,
La modif de la macro ne resout pas,le message d'erreur.
Quelqu'un peut-il me donner une piste.
Merci d'avance.
@+

 

[James007]

Re : Code vba1

Bonjour,

Puisque nous n'avons pas ton fichier, il nous faut deviner ...
As-tu vérifié que cette zone est correctement définie ... ?

Sheets("utilisateurs").Range("A2:B30")

En cas de souci, il est plus simple que tu postes ton fichier ...

A +

 

[laplayast]

Re : Code vba1

Bonsoir,
Voici une copie d'ecran qui je l'espére pourra apporter une meilleure lisibilité.
merci@+🙂

 

[James007]

Re : Code vba1

Bonsoir,
Voici une copie d'ecran qui je l'espére pourra apporter une meilleure lisibilité.
merci@+🙂

Et si tu remplaçais dans ta formule le 4 par un 2 .... vu que ta zone ne couvre que deux colonnes seulement ...

A +