bonjour,
je veux calculer un mot de passe de trois champs:
j'utilisé le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim rib1, rib2, rib3, rib4, v4 As Variant rib1 = CDec(v1) rest = rest + (rib1 - Int(rib1 / 97) * 97) rib2 = CDec(v2) rest = rest + (100 * (rib2 - Int(rib2 / 97) * 97))'sur 16 position il prend que la partie entière v4 = Format(Date, "YYYYMMDD") 'date système v3 = Format(v3, "DDMMYYYY") rib3 = v3 + v4 rest = rest + (10000 * (rib3 - Int(rib3 / 97) * 97)) 'modulo de la date
merci de m'aider
Partager