calenderie dans plusieur TextBox

[Ilino]

Bonjour Forum
J’ai deux TextBox (format date) dans ceci j ’ai introduit un calendrier .. Jusqu’à ICI tous vas bien.
Mais lors d’exécution mon USF quand je sélectionne une date dans un textbox , la même date s’affiche dans le 2 EME ????
A+

 

[job75]

Re : calenderie dans plusieur TextBox

Bonjour Ilino,

quand je sélectionne une date dans un textbox , la même date s’affiche dans le 2 EME ????

Etonnant que tu en sois étonné puisque le code dans Calendar1_Click alimente les 2 TextBoxes !

Il faut distinguer les TextBoxes, soit par une variable Public, soit par leur propriété Tag.

Dans l'USF BdD_Etudes_2013 :

Private Sub DATE_OUVER_CHANTIER_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
DATE_OUVER_CHANTIER.Tag = "1"
Calendrier.Show
DATE_OUVER_CHANTIER.Tag = ""
End Sub


Private Sub DATE_ARRIVEE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
DATE_ARRIVEE.Tag = "1"
Calendrier.Show
DATE_ARRIVEE.Tag = ""
End Sub

Dans l'USF Calendrier :

Private Sub Calendar1_Click()
With BdD_Etudes_2013
  IIf(.DATE_ARRIVEE.Tag = "1", .DATE_ARRIVEE, .DATE_OUVER_CHANTIER) _
    = Format(Calendar1, " dddd DD mmmm yyYY")
End With
Unload Me
End Sub

A+

 

[job75]

Re : calenderie dans plusieur TextBox

Re,

Avec une variable Public c'est un peu plus léger.

En haut d'un Module standard :

Public ctrl As Control 'mémorise la variable

Dans les USF :

Private Sub DATE_OUVER_CHANTIER_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = DATE_OUVER_CHANTIER
Calendrier.Show
End Sub

Private Sub DATE_ARRIVEE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = DATE_ARRIVEE
Calendrier.Show
End Sub

Private Sub Calendar1_Click()
ctrl = Format(Calendar1, " dddd DD mmmm yyYY")
Unload Me
End Sub

A+

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonjour Ilino,

Private Sub Calendar1_Click()
With BdD_Etudes_2013
  [COLOR="#FF0000"][U]IIf(.DATE_ARRIVEE.Tag = "1", .DATE_ARRIVEE, .DATE_OUVER_CHANTIER) _[/U][/COLOR]
    = Format(Calendar1, " dddd DD mmmm yyYY")
End With
Unload Me
End Sub

A+

Bonsoir Forum , Bonsoir MAITRE;
grazie pour la réponse e t je suis désolé pour ce retard; et comment faire pour generaliser ce code si j'ai plusieurs TextBox date
Merci par avance
A+

 

[Ilino]

Re : calenderie dans plusieur TextBox

Re;
apres une recherche sur forum j'ai trouvé ce code mais.... ça n'a pas bien fonctionné
Dans la feuille Calenderie :

Private Sub Calendar1_Click()
BdD_Etudes_2013.Controls("TextBox" & kk).Value = Format(Calendar1, " dddd DD mmmm yyYY")
       Unload Me
End Sub

Private Sub UserForm_Activate()
Calendar1 = Now
End Sub

Dans le module

Public kk As Integer

Et dans le USF BdD_Etudes_2013

Private Sub DATE_OUVER_CHANTIER_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kk = 1
Calendrier.Show
End Sub
Private Sub DATE_ARRIVEE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kk = 2
Calendrier.Show
End Sub
Private Sub DATE_ENVOIE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kk = 3
Calendrier.Show
End Sub

et lors de l’exécution ça bug : Message d'erreur : Objet specifie introuvable
Puis je avoir votre aide si c'est claire?!!
Grazie

 

[job75]

Re : calenderie dans plusieur TextBox

Re,

Les codes que j'ai donnés fonctionnent pour 2 TextBoxes.

S'il y en a plus de 2 il suffit d'adapter avec la même méthode.

C'est très facile si l'on réfléchit 30 secondes...

A+

 

[Ilino]

Re : calenderie dans plusieur TextBox

Re
j'ai utlisé ta reponse du post#3

Private Sub DATE_OUVER_CHANTIER_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = DATE_OUVER_CHANTIER
Calendrier.Show
End Sub

Private Sub DATE_ARRIVEE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = DATE_ARRIVEE
Calendrier.Show
End Sub

Private Sub DATE_ENVOIE_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = DATE_ENVOIE
Calendrier.Show
End Sub

est ça fonctionné très bien mnt is it right??

 

[Ilino]

Re : calenderie dans plusieur TextBox

Re Bonsoir FoRuM , Maitre
mnt ça fonctionne très bien ... donc si j'ai bien compris je dois ajouter pour chaque TextBox le code suivant dans USF :

Private Sub TextBox_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set ctrl = TextBox
Calendrier.Show
End Sub

Del problema è risolto.
Bonne nuit

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonsoir Forum
Je vous rejoins encore pour me guider a résoudre mon souci ci-dessous :

Dans mon USF Les TextBox et ComboBox concernées
TextBox (intitulé doc) , ComboBox (Type de doc) , TextBox(Date d’ouverture Chantier), 2TextBox ( avant et après début des travaux)

En première Phase : je cherche dans le tableau si l’intitulé existe déjà dans la colonne C du tableau (BdD Etudes 2013)et le ComboBox (Type de doc)=Note d’approbation et TextBox(Date d’ouverture Chantier) = aucune date
Donc j’incrémente le TextBox (Date avant début des travaux) en lettre Alphabiotique ( A B C D E…) et je disable le TextBox Alphanumérique ( après début travaux)
Sinon si (je cherche dans le tableau si l’intitulé existe déjà dans la colonne C du tableau (BdD Etudes 2013)et le ComboBox (Type de doc)=Note d’approbation et TextBox(Date d’ouverture Chantier) = date)
Donc je Disable le TextBox (Date avant début des travaux) en lettre Alphabiotique ( A B C D E…) et j’incrémente le TextBox Alphanumérique ( après début travaux)

Exemple :
Dans l’intitulé : je saisi « TEST 1 » ( il existe dans la colonne C du tableau) avec la version B déjà rempli (Version avant début des travaux) et j’ai pas une date d’ouverture de chantier donc je dois remplir automatiquement le TextBox (Date avant début des travaux) en C etc…

Espérant j’été claire
Et Merci par avance

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonsoir Forum
Puis je avoir un Help de votre expérience?
Merci

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonsoir Forum
est ce que mon souci est claire ???
Merci

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonjour Forum
je m’inquiète concernant mon souci, est il claire?
et je suis a votre disposition
A+

 

[Ilino]

Re : calenderie dans plusieur TextBox

Bonjour Forum
JE PENSE QUE JE DOIS CHANGE LE FIL ??
pour qu’il ( mon souci) soit accessible !!!
merci