bonjour,
J'ai un souci dans le code ci dessous, la variable ci dessous var_calcul reste toujours la même, elle ne s'actualise pas en fonction de la variable num_disque, elle est toujours égale à 29870419. En fait lorsque le numéro de disque change alors la var_calcul doit changer et ce n'est pas le cas : c trop bizzarre.
Le code à l'aire pourtant bon ??
Ci joint le fichier test : essayer c trop bizarre
Private Sub ENREGISTRER_Click()
Dim reponse As String
Dim var_entree As Double
Dim var_calcul As Double
Dim num_disque As Double
If nombre_essai = 2 Then
reponse = MsgBox("Mauvais code. Contacter Sylvain pour le code", vbOKOnly, "Mauvais code")
Application.DisplayAlerts = False
ThisWorkbook.Close
End If
nombre_essai = nombre_essai + 1
num_disque = Abs(DriveSerialNumber("C"))
var_entree = 0
If (UserForm2.numero_code = "") Then
'si rentre rien alors plante
Else
var_entree = UserForm2.numero_code
End If
var_calcul = 0
var_calcul = Int(Log(Abs(Cos(Int(Log(Abs(num_disque + 5666)) * 1.543) + 0.23) * 1000000000 + 1)) * 1000000 * 1.89 + 915367)
If var_calcul = var_entree Then 'lance ton logiciel
Worksheets("testsql").Cells(3, 1).Value = var_entree
UserForm2.Hide
Else
'relance le message
'au bout de 3 fermer (tu mets un compteur caché)
reponse = MsgBox("Mauvais code. Contacter Sylvain pour le code", vbOKOnly, "Mauvais code")
End If
End Sub
Merci de votre conseil
Sylvain