XL 2019 Gestion de paiement

yal à dit:

Bonjour
Votre macro "numérotation" ne peux pas fonctionner. Les variables ne sont pas déclarées alors qu'il y a l'Option explicit. Vous appelez une fonction en lui fournissant des argument qui n'existent pas.

VB:

part3 = FiltreMultiCol(Tbl, clé, colClé)

De plus je ne comprends pas le pourquoi d'une telle numérotation des reçus mais bon c'est votre fichier...
Si j'ai bien compris ce que vous voulez il suffit de changer l'initialisation de la TextBox8 dans le" Private Sub UserForm_Initialize()"

Code:

'  TextBox8 = Application.Max(Application.Index(Range("JRN_PAYE[Numero reçu]"), 0, 1)) + 1
  TextBox8 = Format(Date, "MMM dd") & "/" & Application.Max(Application.Index(Range("JRN_PAYE[Numero reçu]"), 0, 1)) + 1

Cliquez pour agrandir...