Calendar avec recherche

[denis]

bonsoir à tous

dans le doc joint, j'ai un calendar, et-il possible d'un click sur un jour de semaine il me renvoie la valeur sur la feuil1 en face de la même semaine

exp: je click sur le 2 sept 2003 c'est la semaine N° 36 en face de la semaine 36 il y a "le plus beau" j'aimerai qu'il s'affiche dans le label1.

voila si quelqu'un a la soluce
d'avance grand merci
Denis

 

[vincent]

Bonsoir

voila le code qui te permettra d'afficher la phrase dans le label

Private Sub Calendar_Click()
Range("a1").Select 'obligatoire pour excel 97 tu peux essayer sans
TextBox1.Value = Format(Calendar.Value, "ww")
Label1 = Cells.Find(Format(Calendar.Value, "ww")).Offset(0, 1)
End Sub

La restriction 1 seul cellule de la feuille doit contenir le n° de semaine sinon modifier cells.find par range("g3:g55") pour effectuer la recherche sur cette plage.

Bonne soirée

@+Vincent

 

[denis]

Bonsoir

Génial Merci

 

[vincent]

Re

De rien

Bonne soirée...euh! nuit lol !!!


@+Vincent

 

[denis]

bonjour à tous

Me revoila avec mes probs

dans le fichier joint:
Quand je click sur le 1 octobre ça marche mais des que je change d'année exp: le 2 janvier
là! Y a un problème jusqu'à la semaine N° 14

si quelqu'un a une soluce: d'avance merci

@+ Denis

 

[vincent]

Re le fil salut Denis

remplace la macro de ton fichier par celle-ci

Private Sub Calendrier_click()
Dim numsem As String
numsem = Format(Calendrier.Value, "ww")
txtDate.Value = Format(Calendrier.Value, "DDDD DD MMMM YYYY")
TextNsm.Value = numsem
Worksheets("Param").Activate
Range("U2").Select
TextNsm.Value = numsem
If Len(numsem) < 2 Then numsem = "0" & numsem 'le pb venais d'ici
Label1 = columns("u").Find(numsem).Offset(0, 1)
Label35 = Columns("u").Find(numsem).Offset(0, 2)
End Sub

L'explication: format("01/01/04","ww") donne 1 donc si le prog trouve 14 dans une cellule pour lui c'est bon
les solutions:1 effectuer la recherche juste sur la colonne 'u' et ensuite forcer la taille de numsem à 2 donc au lieu de 1 on à 01.

Voilà

Bonne soirée

@+Vincent

 

[denis]

Bonjour à tous

Merci Vincent, c'est genial ça marche au poil

@+ denis

 

[vincent]

Re

De rien

bonne soirée

@+Vincent