Bonjour,


Quelqu'un aurait-il une solution pour réécrire ce code de manière plus courte ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
If BOX_MOIS.Value = "Décembre" And BOX_DEFAUT.Value = "ADMINISTRATIF - Identification" And BOX_STATUT.Value = "REBUT" Then
Sheets("Décembre").Activate
Total = Range("E198").Value + TextBox1.Value
Range("E198") = Total
End If
If BOX_MOIS.Value = "Décembre" And BOX_DEFAUT.Value = "ADMINISTRATIF - Identification" And BOX_STATUT.Value = "REBUT D'UNE AUTRE FNC" Then
Sheets("Décembre").Activate
Total = Range("h198").Value + TextBox1.Value
Range("H198") = Total
End If
If BOX_MOIS.Value = "Décembre" And BOX_DEFAUT.Value = "ADMINISTRATIF - Identification" And BOX_STATUT.Value = "RETOUCHE VALIDEE" Then
Sheets("Décembre").Activate
Total = Range("k198").Value + TextBox1.Value
Range("K198") = Total
End If
If BOX_MOIS.Value = "Décembre" And BOX_DEFAUT.Value = "ADMINISTRATIF - Identification" And BOX_STATUT.Value = "VALIDEE EN L'ETAT" Then
Sheets("Décembre").Activate
Total = Range("n198").Value + TextBox1.Value
Range("N198") = Total
End If
If BOX_MOIS.Value = "Décembre" And BOX_DEFAUT.Value = "ADMINISTRATIF - Identification" And BOX_STATUT.Value = "AUTRES" Then
Sheets("Décembre").Activate
Total = Range("q198").Value + TextBox1.Value
Range("Q198") = Total
End If
Parce que j'ai cette code 13 fois par mois... soit plus de 3500 lignes... et ça finit par planté car procédure trop longue...

Sinon je l'exploserai sur plusieurs Userform.

Merci