Rechercher : dans
Par :

Qui serait capable de m'aider ?????

Dernière réponse le 19 jun 2009 à 10:18:55 DarkAurora, le 18 jun 2009 à 14:29:23 
 Signaler ce message aux modérateurs

Bonjour, je cherche je cherche et je ne trouve pas, qui serait capable de me dire ou mieux, de m'expliquer si il y a un moyen de récupérer une date en fonction du numéro de la semaine il me faudrait donc la date du début de la semaine --> lundi et de la fin de semaine --> dimanche

je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Configuration: *ne comprend pas ce que ce textarea fait ici*

Meilleures réponses pour « qui serait capable de m'aider ????? » dans :
Ajouter un contact MSN peut infecter votre ordinateur Voir Mythe Un nouveau et terrible virus serait capable de pirater votre ordinateur et de subtiliser vos données personnelles, si vous ajoutez une certaine adresse e-mail à vos contacts MSN. Réalité FAUX Explications Vous avez sans doute déjà reçu...

1

garion28, le 18 jun 2009 à 14:57:42

Autant de ligne pour une petite question, tu fait fort ^^
voici ma fonction en vba
Function GetLundi(ByVal wn As Long, ByVal Y As Long) As Date
GetLundi = DateAdd("ww", wn - 1, DateSerial(Y, 1, 1)) - WeekDay(DateSerial(Y, 1, 1)) + 2
End Function
et pour trouver la fin de semaine tu rajoute 6 ou 7 a cette date

adapte là dans ton language en charchant sur internet

Répondre à garion28

2

DarkAurora, le 18 jun 2009 à 15:01:34

Tu ne pouvais pas faire mieux je fait vba :) j'essaye et je te remercie après je présume^^ je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Répondre à DarkAurora

3

DarkAurora, le 18 jun 2009 à 15:15:36

Heu quelque précision stp
le premier arguments correspond au numéro de la semaine on est ok
par contre dans ta fonction tu utilise l'argument wn je ne sais pas ce que c'est comme arguments ni à quoi il sert et tu lui soustrait -1 et ce tout forme le 2éme argument qui correspond à l'interval et enfin tu réutilise une fonction et a la fin tu en soustrait une autre? houlala c'est trop dure pour moi tout ça^^

nan sérieux j'essaye de comprendre mais la je bloque je n'ai pas toute les données ni les capacité pour l'intégrer à mon code

merci de m'expliquer comme cela fonctionne je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Répondre à DarkAurora

4

garion28, le 18 jun 2009 à 15:25:52

C'est une fonction que j'ai récupéré sur internet
le premier paramètre(Wn) représente un numéro de semaine et le second(Y) représente une année

ya pas besoin de comprendre la totalité du code (qui est fait avec des fonction de microsoft) vu qu'on a pas le descriptif exact des fonction utilisé

tant que ma fonction rempli son role c'est l'important :)

Répondre à garion28

5

DarkAurora, le 18 jun 2009 à 17:09:27

Le problème vois tu c'est que je ne programme pas sous vba d'habitude, je suis plutôt sous C/C++ dans ce langage les fonctions et les classes je maîtrise mais en vba c'est légèrement (beaucoup) différent, et une fonction tel que celle ci je ne sais d'où elle va récupérer les paramètres je ne sais pas non plus comment l'appelé, alors je bidouille, mais je veux être sûre de savoir comment elle fonctionne, donc on verra demain au boulot j'essaierais de l'intégrer

une dernière question est il possible de ne passer que par GetLundi la variable et de la mettre directement dans mon code car vois tu j'ai déjà récupérer la semaine il ne reste simplement qu'a intervertir les paramètres non? je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Répondre à DarkAurora

6

DarkAurora, le 19 jun 2009 à 08:42:41

Voici mon code qui marche à la perfection^^ merci à toi garion

If Cadre23.Value = 3 Then
valeur = Format(Now, "ww")
substitut = Format(Now, "yyyy")
valeur = valeur - 1
MsgBox ("variable:" & valeur)
GetLundi = DateAdd("ww", valeur - 1, DateSerial(substitut, 1, 1)) - Weekday(DateSerial(substitut, 1, 1)) + 2
MsgBox ("valeur :" & GetLundi)
[date debut].Value = GetLundi
GetLundi = DateAdd("ww", valeur - 1, DateSerial(substitut, 1, 6)) - Weekday(DateSerial(substitut, 1, 6)) + 2
[date fin].Value = GetLundi
End If

je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Répondre à DarkAurora

7

garion28, le 19 jun 2009 à 09:42:47

Tu devrai utiliser getlundi comme une fonction, ca te permettra de l'utiliser sans problème dans n'importe quel coin de ton fichier

Répondre à garion28

8

 DarkAurora, le 19 jun 2009 à 10:18:55

C'est vrai ce serais beaucoup plus propre, mais elle me font peur ces fonctions vb^^, je verrais ça sûrement la semaine prochaine lorsque j'aurais finaliser l'ensemble de mon code

mais j'aurais une demande peut être que tu pourrais m'aider la dessus : http://www.commentcamarche.net/forum/affich 12949379 top ou pas top alignement vba je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet

Répondre à DarkAurora
Collection CommentÇaMarche.net