Microsoft 365 AIDE AU PARAMÉTRAGE MANQUANT DE MON USERFUM

JM27 à dit:

Bonjour
comme cela pour la saisie
Le numéro d'ordre c'est par banque ou pour l'ensemble des banques ???

Cliquez pour agrandir...

TIM99 à dit:

merci bien je viens de tester c'est cool mais vailler adapter a ce fichier

Cliquez pour agrandir...

JM27 à dit:

Bonsoir
j'ai un peu l'impression que le code de l'userform ne correspond pas du tout avec l'userform lui même.
me trompe-je ?
je pense qu'il faut tout reprendre en nommant pour commencer les objets de ton userform , de manière à y voir plus clair.

Cliquez pour agrandir...

Nairolf à dit:

Pour l'ordre, on peut simplifier ainsi, si ne veux qu'un numéro d'ordre (=n° ligne du tableau) :

VB:

MT.Value = Application.WorksheetFunction.CountA(Range("A7:A10000"))

Pour la valeur de MT dans mon premier post, l'affectation se fait à l'ouverture du Userform, ensuite, si tu veux qu'il se mette à jour quand tu changes la valeur de BQ, il faut ajouter ce code :

VB:

Private Sub BQ_Change()
MT.Value = BQ.Value & Mid(1000 + Application.WorksheetFunction.CountA(Range("A7:A10000")), 2, 4)
End Sub

Cliquez pour agrandir...

JM27 à dit:

Bonsoir
j'ai un peu l'impression que le code de l'userform ne correspond pas du tout avec l'userform lui même.
me trompe-je ?
je pense qu'il faut tout reprendre en nommant pour commencer les objets de ton userform , de manière à y voir plus clair.

Cliquez pour agrandir...