Ouverture fenetre code acces

Bonjour,

je souheterais effectue une manipulation suivante.

Quand je double clique sur une cellule , une fenetre s'ouvre et me demande un code.

Une fois le code renseigné la cellule inscrit par exemple OK et la fenetre se referme.

merci de votre aide.

Salut pepinoo06,

Un double-clic démarre la macro...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Do
    sMsg = Application.InputBox("Veuillez entrer le code !", "Code")
Loop Until sMsg <> "" Or sMsg = "Faux"
MsgBox IIf(sMsg = "Faux", "Procédure interrompue par l'utilisateur !", "Le code est " & sMsg), vbInformation + vbOKOnly, "Code"
Target = IIf(sMsg = "Faux", "NOK", "OK")
'
End Sub

A+

8pepinoo.xlsm (18.25 Ko)

Bonjour,

merci pour la réponse

du coup comment maintenant inscrire un code unique pour valider la case en OK

Car la je met n'importe quelle code est la case écrit ok moi je veux que si le code soit pas le bon la case reste vide

merci d'avance

personne ?

merci d'avance

Sans rire, pepinoo06, sommes-nous devins ?

Comment je peux le deviner, ton code, mmmmh ?

A+

lol je n’est pas de code en tête disons par exemple shuk20

Allons-y pour "shuk20"...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Do
    sMsg = Application.InputBox("Veuillez entrer le code !", "Code")
Loop Until sMsg <> "" Or sMsg = "Faux"
MsgBox IIf(sMsg = "Faux", "Procédure interrompue par l'utilisateur !", IIf(sMsg = "shuk20", "Code exact !", "Le code est erronné !")), vbInformation + vbOKOnly, "Code"
Target = IIf(sMsg = "Faux" Or sMsg <> "shuk20", "", "OK")
'
End Sub

A+

3pepinoo.xlsm (13.49 Ko)

Tu es trop bon 😅

Merci ca fonctionne super !

Rechercher des sujets similaires à "ouverture fenetre code acces"