fenec
XLDnaute Impliqué
bonjour a tous
malgres pas mal d'exemple sur le forum je ne parviens pas a crypter mon mot de passe en effet le mot de passe s'ecrit en toute lettre donc aucun interrer devant quelqu'un comment l'ecrire avec des *
en esperant avoir ete clair je vous joint ce que j'ai fait
Sub suppression_enregistrement()
If [param_no_ligne] = 0 Then Exit Sub
Dim q$
q = Application.InputBox("entrer le mot de passe")
If q <> "toto" Then Exit Sub
If MsgBox("confirmation de la suppression d'enregistrement", vbYesNo, "suppression") = vbYes Then
Sheets("BD").Rows([param_no_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrments_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub
merci de votre aide
malgres pas mal d'exemple sur le forum je ne parviens pas a crypter mon mot de passe en effet le mot de passe s'ecrit en toute lettre donc aucun interrer devant quelqu'un comment l'ecrire avec des *
en esperant avoir ete clair je vous joint ce que j'ai fait
Sub suppression_enregistrement()
If [param_no_ligne] = 0 Then Exit Sub
Dim q$
q = Application.InputBox("entrer le mot de passe")
If q <> "toto" Then Exit Sub
If MsgBox("confirmation de la suppression d'enregistrement", vbYesNo, "suppression") = vbYes Then
Sheets("BD").Rows([param_no_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrments_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub
merci de votre aide