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