Re: LIAISON DATE
#11
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 26-08-2009 20h21
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



Pièce jointe:
zip TEST 0_Mod.zip   [ Taille: 26.82 Ko - Téléchargements: 569 ]

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#12
Aspirant XLPages

Inscription: 24/07/2009

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 26-08-2009 21h15
Merci pour cette réponse rapide et je ne manquerais pas de faire appel a une aide généreuse
je vais regarder ça de plus près demain et surtout comment on fait la liaison
A+
Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#13
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 26-08-2009 22h03
Petit classeur pour expliquer, un tant soit peu, les événements personnalisés.

À la prochaine,

Guy



Pièce jointe:
zip Les événements personnalisés.zip   [ Taille: 76.13 Ko - Téléchargements: 571 ]

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#14
Aspirant XLPages

Inscription: 24/07/2009

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 28-08-2009 07h49
Bonjour à tous
 J ai testé le fichier Test 0 Mod sur excel 2007 il fonctionne bien mais dès que je passe sur excel 2003 ( bureau) il plante " erreur de compilation Projet ou bibliothèque introuvable "

Private Sub UserForm_Initialize()

Dim a As Single ComboBox1.Enabled = True

 For a = 1990 To 2050

      ComboBox1.AddItem a

 Next a

 m_tgb = 0

 m_tst_dte = False

 ComboBox1.Value = Year(Date)

 ComboBox1.Enabled = True
J ai été sur l aide et alors là c est trop pour moi!!!!!!
Peut on m aider SVP MERCI
A+
Pièce jointe:
zip TEST 0_Mod1.zip   [ Taille: 26.82 Ko - Téléchargements: 570 ]
Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#15
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 28-08-2009 11h16
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

Edité par Guy le 28/08/2009 13:41:24

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#16
Aspirant XLPages

Inscription: 24/07/2009

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 28-08-2009 13h37

Bonjour
je m en suis sorti avec tes explications mais effectivement ça mérite d un lifting et amélioration
ce dont je ne suis pas capable
je te remercie de ton aide
Et à bientot
A+

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#17
Aspirant XLPages

Inscription: 24/07/2009

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 28-08-2009 21h55
Bonsoir
C est encore moi le novice
apres avoir galéré sur un fichier pompé j ai décider de le mettre à la corbeille
mais je persite et j ai peut etre quelque chose de plus clair
pouvez vous m aider à inscrire la date choisie dans text box 1et non pas dans la cellule active
Merci d avance

Pièce jointe:
xls TEST SANDRA.xls   [ Taille: 80.00 Ko - Téléchargements: 624 ]
Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#18
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 28-08-2009 22h47
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

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#19
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 29-08-2009 00h14
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



Pièce jointe:
xls TEST SANDRA_Mod.xls   [ Taille: 72.50 Ko - Téléchargements: 566 ]

Hors Ligne
Rapport   Haut 

Re: LIAISON DATE
#20
Aspirant XLPages

Inscription: 24/07/2009

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 29-08-2009 09h00
MERCI
et bonne fin de semaine
A+
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes