Microsoft 365 AIDE AU PARAMÉTRAGE MANQUANT DE MON USERFUM

[TIM99]

Bonsoir cher amis
j'ai besoin de votre aide pour achever ce travail
il s'agit de :

* Faire en sorte lorsque je clique sur chaque banque le remplissage du feuille Excel correspond a la banque sélectionnée (exemple si je sélectionne BCEAO comme banque alors je doit être sur la page Excel BCEAO
* Faire en sorte que je reste sur la banque sélectionnée tant que je change pas de banque pour que je ne puisse pas sélectionner a chaque fois la banque avant de saisir
* Faire en sorte que la partie N° ORDRE soit automatique
* Afficher l'heure dans la case HEURE


Mercie et j'ai besoin de votre aide

NB: vous pouvez apporter toute modification nécessaire

 

[Nairolf]

Salut TIM99,

Une première base :

Private Sub UserForm_Initialize()

BQ.Value = ActiveSheet.Name
TextBox1.Value = Now
MT.Value = ActiveSheet.Name & Mid(1000 + Application.WorksheetFunction.CountA(Range("A7:A10000")), 2, 4)

End Sub

A noter pour que j'ai été obligé de retirer des références (je ne sais plus lesquelles) pour que la fonction Mid fonctionne.

 

[TIM99]

salut NAIROLF

cette resolution joue quel role
merci bien

 

[Nairolf]

La première ligne répond aux deux premières questions.
La deuxième répond à la troisième question en indiquant la date et l'heure.
Et la dernière répond à la quatrième question en mettant un numéro de souche correspondant au nom de la banque incrémenté au nombre de lignes complétées.

 

[TIM99]

OK merci bien la date marche mais la partie N°ordre c'est pour insérer les N° dans excel partie ORDRE (1,2,3,.....)
maintenant je remarque quand je choisie une banque c'est uniquement bceao qui est prise en compte
même quand je sélectionne bni ça me renvoi toujours sur bceao

 

[TIM99]

j'ai pu avoir un exemplaire je vais adapter a ma demande et vous envoyer pour les modification
merci a vous

 

[Nairolf]

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

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 :

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

 

[JM27]

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

 

[TIM99]

OK SUPER MAIS VOICI LA NOUVELLE VERSION AVEC LES DONNEE QUE VOUS M'AVEZ ENVOYE

il reste la case N°CHEQUE
aussi quand je met ce que vous m'avez donnée cela refuse

 

[TIM99]

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

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

 

[TIM99]

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

chaque feuille a son numero d'ordre

 

[JM27]

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.

 

[TIM99]

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.

Waouhh c'est vraiment cool mais je veux eviter les doublons au niveau du N°CHEQUE
je vous pri de finaliser avec les bouton ''AFFICHER, MASQUER EXCEL, IMPRIMER (le contenu de la listbox1 par banque), le bouton MODIFIER POUR QUE S'IL Y A DES ERREUR JE PUISSE APPORTER DES MODIFICATIONS, le bouton RECHERCHE avec le N°CHEQUE pour pouvoir afficher les information lorsque je choisi un N°cheque (voir le fichier ci-joint)
Enfin ouvrir le userform a l'ouverture du fichier excel

NB la date et l'heure ne doivent pas etre affichées dans la listbox1 et dans le remplissage excel
si possible N°cheque ====> combobox au lieu de textbox

Merci et bonne soiree a vous

 

[TIM99]

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

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 :

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

comment eviter les doublon dans le userform ci dessous?

 

[TIM99]

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.

bonsoir JM stp j'aimerai que tu augmante le nombre dans listbox1 a 1500 au lieu de 75 car a partie de 75 les cheque ne s'affiche plus
merci et bonne soiree a vous