plusieurs date à saisir mais de valeurs differentes

**oscar.cesar** · 15/03/2008, 09h52

bonjour
c'st couillon, mais
j'ai le controle calendrier ou je recupere la valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 'recopie la valeur du calendrier
 
 
ComboBox18.Value = MonthView1.Value
'ComboBox20.Value = MonthView1.Value pas bon
'ComboBox25.Value = MonthView1.Value pas bon
 
MonthView1.Visible = False 'rend invible le calendrier
End Sub

j'ai 2 autres combobox(20 et 25) qui ont besoin d'appeler le calendrier (monthview)pour recuperer des valeurs, Bien sur differentes!!!!

Peut on se passer de creer 3 calendrier differents(monthview1,2 et3) et utiliser un seul calendrier ??????

**ucfoutu** · 15/03/2008, 09h55

Un seul contrôle suffit !

Truc :

Te servir d'une variable globale à laquelle tu passes la combo concernée (objet)

A la validation du contrôle, tu lis cette variable et connais donc la combo concernée ...

**oscar.cesar** · 15/03/2008, 10h03

salut ucfoutu

je comprends pas tout

varaible global , par exemple madate ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 'recopie la valeur du calendrier
 
madate = MonthView1.Value
 
MonthView1.Visible = False 'rend invible le calendrier
End Sub

c'est la que je vois pas

**ouskel'n'or** · 15/03/2008, 11h10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1 = madate

Ça ne t'irait pas ?

**oscar.cesar** · 15/03/2008, 11h13

bonjour
voila ce que j'ai fait bon c'est pas top car au premier passage dans quelque soit la combobox necessitant une date sa valeur reste vide sinon c'est à ameliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Dim MADATE As String 'variable globale mise à 0 dans USFinit
 
 
 
 
Private Sub ComboBox18_enter() 'on entre dans le comboboxdate de creation 
fiche
ComboBox18.Value = ""
Me.MonthView1.Visible = True
ComboBox18.Value = MADATE
combobox18.enable=false
End Sub
 
 
Private Sub ComboBox25_enter() 'on entre dans le comboboxdate de amortissement fiche
ComboBox25.Value = ""
Me.MonthView1.Visible = True
ComboBox25.Value = MADATE
combobox25.enable=false
End Sub
 
 
 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 'recopie la valeur du calendrier
 
MADATE = MonthView1.Value
MonthView1.Visible = False 'rend invible le calendrier
End Sub

c'est pas top un coup de pousse ?????
si qql un a une idee

**ouskel'n'or** · 15/03/2008, 11h38

Tu peux tester ça pour moi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Madate, MonCombo
Private Sub Calendar1_Click()
Madate = Calendar1.Value
Me.Controls(MonCombo) = Madate
Me.Controls(MonCombo).Locked = True
Me.Calendar1.Visible = False
End Sub
 
Private Sub ComboBox1_Enter()
MonCombo = ActiveControl.Name
Me.Calendar1.Visible = True
Me.Repaint
End Sub

Edit
Tu mets le même code dans chaque comboboxx_enter

**ucfoutu** · 15/03/2008, 11h56

Coucou,

Pourquoi passer par la collection controls ?

Voilà ce que je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim maboite as object
 
Private Sub MonthView1_Click()
   maboite.enabled = true
   maboite = MonthView1.value
   MonthView1.Visible = False
End Sub
 
Private Sub ComboBox1_Enter()
  set maboite = Combobox1
  ComboBox1.enabled = false
  MonthView1.Visible = True
End Sub

EDIT : Et je ferais une procédure paramétrée ....(de sorte à n'utiliser qu'une ligne par Combo)... avec comme seul paramètre passé, le contrôle actif ...

**ucfoutu** · 15/03/2008, 12h02

Euh...

Locked = verrouillé
et si verrouillé ===>> vérrouillé ===>> pas de modif possible

C'est kif-kif ...

Enabled n'empêche rien par code !!!

**ouskel'n'or** · 15/03/2008, 12h07

Oui, ucfoutu, tu as raison, mais c'était l'idée. Maintenant, j'utiliserais plutôt Locked que Enable, sinon, en cas d'erreur, l'utilisateur ne pourra pas modifier. (pas testé mais ça me semble logique)
Locked empêche les modifs manuelles (ne les empêche pas par macro) mais n'empêche pas l'accès.

Envoyé par ucfoutu

Euh...

Locked = verrouillé
et si verrouillé ===>> vérrouillé ===>> pas de modif possible

C'est kif-kif ...

Enabled n'empêche rien par code !!!

Non ! C'est pas kif-kif ! Si ! Par macro tu peux modifier le contenu sans déverrouiller ! Testé ! et approuvé !

EditEssaie de modifier le combo sans avoir placé Enabled à False ! Je viens de testé et j'ai pris une baffe !

(on est dans VBA, pas dans VB... pour autant que VB accepte les modifs par macro avec enabled = false

**ucfoutu** · 15/03/2008, 12h07

Euh ...

Mais c'est Kif-Kif !!!

Essaye donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
  Text1.Enabled = False
  Text1.Text = "et alors ?"
End Sub

Et l'utilisateur le "voit" immédiatement (grisé), quand Enabled = False !!!

**ouskel'n'or** · 15/03/2008, 12h14

ucfoutu, tu sais lire ?
Je dis que Locked = True n'empêche ni l'accès ni les modifications d'un combobox par macro
Enabled = false empêche l'accès.
Donc, si l'utilisateur veut changer de date avec le calendar, avec Enabled =false, c'est foutu, uc !
Avec Locked, ça marche !
Un peu pénible le gars

**patbou** · 15/03/2008, 12h26

bonjour,

en créant 2 combo + 1 calendar dans une userform et
en activant un combo avant de clicker sur le calendrier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Option Explicit
Dim activ_combo As ComboBox
 
Private Sub Calendar1_Click()
If activ_combo Is Nothing Then
MsgBox "selectionner un combo"
End If
activ_combo.Value = Calendar1
End Sub
 
Private Sub ComboBox1_Enter()
Set activ_combo = Me.ComboBox1
End Sub
Private Sub ComboBox2_Enter()
Set activ_combo = Me.ComboBox2
End Sub

**ouskel'n'or** · 15/03/2008, 12h27

Allez, je ré-explique pour ucfoutu qu'a rien compris...

Tu prends un gars (ce sera l'utilisateur lambda, n'importe lequel) Il sélectionne une date dans le calendar, le gars. Mais la souris a dérapé, bref, il a sélectionné une mauvaise date, le gars. S'il veut la changer avec le calendar, avec Enabled = false, il ne pourra pas, le gars. Et là, il est marron !
Tandis qu'avec Locked, non seulement il pourra le changer une fois mais plusieurs s'il le désire !
Si ce n'est toujours pas clair, tu n'as qu'à demander, je t'expliquerai

Dailleurs, je vais arranger ton code pour que l'utilisateur ne puisse même pas saisir une date manuellement dans le combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim MonCombo As Control
Private Sub Calendar1_Click()
MonCombo = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
 
Private Sub ComboBox1_Enter()
Set MonCombo = ActiveControl
Me.Calendar1.Visible = True
Me.Repaint
End Sub
 
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
ComboBox1.Locked = True
ComboBox2.Locked = True
ComboBox3.Locked = True
'..... etc
End Sub

**ouskel'n'or** · 15/03/2008, 12h30

Envoyé par patbou

bonjour,

en créant 2 combo + 1 calendar dans une userform et
en activant un combo avant de clicker sur le calendrier

Je crois savoir que le calendrier est masqué tant qu'on ne se place pas dans un combobox, donc le message est inutile

**oscar.cesar** · 15/03/2008, 13h21

salut à tous

une petite erreur dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub MonthView1_Click() 'recopie la valeur du calendrier
MADATE = MonthView1.Value
Me.MonthView1.Visible = False
End Sub

à la ligne ,j'ai l'erreur "438 propriete ou methode non geree par cette objet"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MADATE = MonthView1.Value

sinon les codes complets sont

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Dim MADATE As Control
 
 
 
Private Sub ComboBox18_enter() 'on entre dans le comboboxdate de creation fiche
Set MADATE = ActiveControl
Me.MonthView1.Visible = True
Me.Repaint
End Sub
 
 
Private Sub ComboBox25_enter() 'on entre dans le comboboxdate de amortissement fiche
Set MADATE = ActiveControl
Me.MonthView1.Visible = True
Me.Repaint
End Sub
 
 
 
Private Sub MonthView1_Click() 'recopie la valeur du calendrier
MADATE = MonthView1.Value
Me.MonthView1.Visible = False
End Sub
 
 
 
Private Sub UserForm_initialize()
Frame5.Visible = False
'Frame1.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Frame6.Visible = False
 
Me.MonthView1.Visible = False
ComboBox18.Locked = True
ComboBox25.Locked = True
ComboBox2.Locked = True
 
......................

**ouskel'n'or** · 15/03/2008, 14h20

J'utilise le contrôle Calendar et ne connais pas Monthview, je n'ai donc pas la syntaxe
A tout hasard, pour ajouter Calendar -> Click droit dans Boîte à Outils -> Valider la référence "Control Calendrier 10.0"
Pour office 2003, ce contrôle se trouve dans C:\Program Files\Microsoft Office\Office 10\MScal.ocx
Sinon, faudra attendre ucf

utu qui semble avoir ça mais qui fait la sieste

**ucfoutu** · 15/03/2008, 14h50

Coucou, Gaucho chapeauté,

Ce n'est pas moi qui la fait, cette sieste.....

Tiens : lis ceci :

http://www.developpez.net/forums/sho...d.php?t=509182

(2ème message) ...

Pour le reste, j'ai déjà répondu : inutile de passer par la variable MADATE !

**ucfoutu** · 15/03/2008, 15h33

Allez ! on répète donc (et en troquant enabled contre locked pour faire plaisir au cavalier...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim maboite as object
 
Private Sub MonthView1_Click()
   maboite.Locked = False
   maboite = MonthView1.value
   MonthView1.Visible = False
End Sub
 
Private Sub ComboBox1_Enter()
  set maboite = Combobox1
  ComboBox1.Locked = True
  MonthView1.Visible = True
End Sub

Et on appelle l'attention sur mon édit :

EDIT : Et je ferais une procédure paramétrée ....(de sorte à n'utiliser qu'une ligne par Combo)... avec comme seul paramètre passé, le contrôle actif ...

C'est vraiment fastoche ...

**ouskel'n'or** · 15/03/2008, 15h59

Sauf qu'avec Looked, tu n'as pas besoin de le re-looker

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub MonthView1_Click()
   'maboite.Locked = False 'pas utile avec looked   maboite = MonthView1.value
   MonthView1.Visible = False
End Sub