XL 2019 Gestion de paiement

[Tsimbina]

Bonsoir, vous pouviez m'aider sur ce ficher excel svp.
je n'arrive pas à faire fonctionné mon userforme UF_Paiement
Merci d'avance.

 

[yal]

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.

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()"

'  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

 

[Tsimbina]

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.

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()"

'  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

Merci pour votre réponse
le pourquoi, c'est pour facilité le classement et le suivi des souches des reçues.