Bonjoursoir,

Détail non technique et sans préjudice: je sais bien que le Français est une langue difficile, moi-même j'y perds mon Russe, mais même Excel possède un correcteur d'orthographe, suffit d'appuyer sur F7 et le prof rapplique. Donc j'ai effesepté (Fin XXe, de Microsoft Excel F7) les libellés et autres textes.

Tout d'abord j'ai transformé les plages Catégorie et TypePaiement en plages dynamiques.  Plus sympa et sans embrouille.
Voir à ce sujet Comment faire pour créer une plage définie dynamique dans une feuille de calcul Excel
ou bien ici même Nommer une Plage Dynamique

Ensuite il y a la plage des données qui peut s'étendre jusqu'à plus soif (Excel 2000-2002-2003 : 65 536 lignes, Excel 2007 : 1 048 576 lignes (Maman au secours!))
J'ai choisi là aussi une plage dynamique à six colonnes inutilisable sans formule matricielle dans la feuille mais très pratique pour le code.

Reste la correspondance entre les différents champs du formulaire et les champs de la Base de données.
Pour rendre la chose plus simple à l'usage j'ai choisi de porter le nom de champ de la base de données dans la propriété Tag du contrôle du formulaire. Il y a trente-six façons de faire, c'en est une.

Sur clic du bouton Enregistrer les données des différents champs du formulaire sont chargées dans les colonnes idoines de la plage BaseDeDonnées. À remarquer qu'un lourd turbin de validation des données reste à faire, la galère nous attend, ramons mes frères.

J'ai ajouté des types dans les champs Catégories et Type de paiement (Faut bien rigoler, autrement c'est pas drôle ) et aussi des commentaires dans le code à lire impérativement.

Cordialement,

Guy

Bonjour,

Dans la Feuil2 il y a 6 champs Date, Type de paiement, Catégorie, Divers, Crédit et Débit

Dans le formulaire UserForm1 il n'y a que 4 champs Date, Type de paiement, Catégories et Montant du paiement.

Où ira la valeur du champ Montant du paiement? J'imagine que pour les autres l'évidence s'impose.

Guy

Baff,

Comme j'ai pas pu m'en empêcher j'ai modifié vite fait ton fichier.

J'ai porté le format dans le TextBox1 Format(LaDateChoisie, "DDDD dd mmmm yyyy")
Si tu souhaites un autre format change le format affiché dans TextBox1 pas dans l'événement qui doit porter en paramètre une variable de type Date.

Je n'ai qu'ajouté un événement dans le formulaire UserForm2 renommé frmCalendrier en en-tête :

Public Event VoiciLaDate(LaDateChoisie As Date)

Puis, dans le formulaire UserForm1 renommé frmCUB la procédure événementielle

Private Sub frmServeurDate_VoiciLaDate(LaDateChoisie As Date)

   Me.TextBox1.Text = Format(LaDateChoisie, "DDDD dd mmmm yyyy")

 End Sub

Aussi je te conseille vivement de faire au moins trois choses :

1. Inscrire systématiquement la directive Option Explicit dans tous, absolument tous, les modules.  Pour ce faire dans le menu Outils/Options onglet Éditeur coche Déclaration des variables obligatoire.
2. Prends et garde l'habitude de nommer tous les contrôles de tes formulaires autrement une chatte n'y retrouvera pas ses petits et toi tes innombrables contrôles.
3. Accessoirement télécharge l'excellent complément MZ-Tools 3.0 au http://www.mztools.com/v3/mztools3.aspx . C'est gratos et impeccable. Des heures de plaisir.

Voilà, à lundi.

Guy

Bonjour,

Je jette un oeil sur ton truc au retour de la fin de semaine (weekend chez vous) à la campagne (y'en a qui ont de la chance, j'en suis )

Guy

Ouais,

Je vais y jeter un oeil, cependant ce ne sera pas avant lundi.

Je passe la fin de semaine (weekend en hexagonal) à la campagne et je ne manquerais l'occasion sous aucun prétexte.

À lundi,

Guy

Bonjour,

Sur mon poste :

Microsoft Windows XP 5.1 Service Pack 3 Microsoft Excel 2003SP3 je n'ai pas l'erreur indiquée. Avant de lancer l'exécution as-tu compilé le projet (Menu Débogage/Compiler VBAProject)? De plus le calendrier que tu as téléchargé de Excel Downloads/Pascal Liberty a été trafiqué sans parler de la tenue générale du code qu'il faudrait refondre avant d'aller plus loin. Pascal Liberty n'utilise pas la directive Option Explicit et la version du calendrier que tu as affiche des boutons jusqu'au 37 du mois!!! Trafiqué ai-je dit. Autre détail le VBAProject porte une référence à Ref Edit Control (Refedit.dll) qui n'est pas utilisée. Es-tu certain que c'est la ligne ComboBox1.Value = Year(Date) qui pose problème? Et si tu changes pour ComboBox1.Value = Year(Now) que se passe-t-il? Bref, avant d'aller plus loin, il faudrait faire du ménage. Guy

Bonjour,

J'ai téléchargé les fichiers donnés en exemple.
Voir le fichier joint et me transmettre plus de détails si possible.

J'ai modifié la procédure d'importation pour prendre en compte tant les fichiers .tsv que les fichiers texte .txt.

Guy

Bonjour Alragorn,

Dans le fichier fourni (1089017.tsv) les deux champs indiqués portent les valeurs :
Article commandé :       926430
Description de l'article : FORMATION ACTIVITE NIV. C4

Si j'ai bien compris la question, il s'agira d'afficher ces deux valeurs dans un formulaire.

Questions :

1. Ce formulaire s'ouvrira-t-il immédiatement après l'importation des données du fichier .tsv?
2. Devra-t-on pouvoir ouvrir ce formulaire sur commande (bouton par exemple)?
3. Comme je n'aperçois pas bien le but de tout cet exercice et que j'imagine que lors d'une session plusieurs fichiers .tsv seront importés, faudra-t-il afficher les données mentionnées pour chaque importation?
4. Le fichier donné en exemple ne porte qu'un seul enregistrement, se pourrait-il qu'un autre fichier .tsv en porte plusieurs? Si oui, devra-t-on afficher chacun des champs pour chaque enregistrement?

Guy

Petit classeur pour expliquer, un tant soit peu, les événements personnalisés.

À la prochaine,

Guy

Hôlà quel amphigouri! Soit dit sans offense.

J'ai posé tout d'abord Option Explicit dans l'en-tête des modules concernés
De là une invraisemblable pléthore d'erreurs de compilation comme de bien entendu.

J'ai déclaré au piffomètre lesdites variables et j'ai ajouté un événement EtVoila(QuelleDateAuJuste As Date) au formulaire U_chx_dte.
Ensuite j'ai lié cet événement au formulaire UserForm1.

Lorsque l'utilisateur choisit une date elle est copiée dans le TextBox TextDate du formulaire UserForm1 tout simplement.

Je suis bien conscient que la chose peut paraître abstruse pour un débutant mais n'hésite pas à me relancer pour plus d'explications et quelques conseils.

Très cordialement,

Guy