problème de date en VBA

C

chriis

Guest

• 24 Octobre 2003

• #2

Bonjour
En fait 37895 est bien une date pour Excel.
Donc si tu enlèves la ligne DATECOUR il me sempble que cela devrait marcher.
Attention tu emploies ensuite Curdate et non Datecour : le nom doit être le même ou alors garde Premjour.
Chris

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #3

Ben sauf que ça marche pas du tout,

évidemment j'ai essayé et je me fuis caffé les dents... lol!!!!

(incompatibilité de type!!!)

Names("PremJour").RefersTo = DateSerial(Year(Now), Month(Now), 1)
Names("PremJour").RefersTo = DateSerial(Year(CurDate), Month(CurDate) + 1, 1)

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #4

j'avais oublié la 1ère ligne :

CurDate = Names("PremJour").Value
Names("PremJour").RefersTo = DateSerial(Year(Now), Month(Now), 1)
Names("PremJour").RefersTo = DateSerial(Year(CurDate), Month(CurDate) + 1, 1)

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 24 Octobre 2003

• #5

Bonjour Cathy,

Si tu places cette macro :

Sub MyDate()
Dim MyDate, Curdate, Nextdate
MyDate = DateSerial(Year(Now), Month(Now) , 1) ' Définit la date - Ici tu obtiens la date du 01/10/03.
Curdate = CDate(MyDate)
Range("A1") = Curdate
Nextdate = DateSerial(Year(Curdate), Month(Curdate) + 1, 1) 'ici to obtiens la valeur Mydate + 1 mois
Range("A2") = Nextdate
End Sub

C'est cela que tu veux faire ? ou je n'ai rien compris !

Dans l'attente de te lire

@+

Dan

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #6

euh non, comme ça :

Names("PremJour").RefersTo = DateSerial(Year(Now), Month(Now), 1)
CurDate = Names("PremJour").Value
Names("PremJour").RefersTo = DateSerial(Year(CurDate), Month(CurDate) + 1, 1)

mais c'est kif kif

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #7

Merci Dan, mais ça ne convient pas, il ne faut pas que j'écrive dans la feuille qui est protégée par l'utilisateur.

P.S j'ai excel 2000.

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 24 Octobre 2003

• #8

Cathy,

Désolé ici au bureau j'ai excel 97.

Où dois-tu écrire ces valeurs ?


Dan

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #9

Ben justement je ne dois pas les écrire,

donc j'ai choisi de définir un nom auquel je donne la valeur de la date de début, et comme mon planning utilise ce nom, c'est OK.

 

Vote positif 0 Vote négatif

C

chris

Guest

• 24 Octobre 2003

• #10

Re
En fait côté date ça calcule bien.
Moi ce qui me pose PB c'est le Names("PremJour").RefersTo
(dont j'ignore à quoi il sert.

Si c'est pour attribuer un nom dans la feuille (Comme avec insertion nom définir), je ne sais pas si cela marche en cas de protection.

Donc si on fait
Premjour = DateSerial(Year(Now), Month(Now), 1)
Premjour = DateSerial(Year(Premjour), Month(Premjour) + 1, 1)

on a bien le 01/11/2003 comme valeur de Premjour

après je ne sais pas quoi faire de cette donnée par rapport à ton objectif.

Chris

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #11

Merci Chris,

mon problème est le suivant :

j'ai un zoli planning, et en A3 j'ai la formule :

= Premjour

ce que je veux c'est modifier Premjour par macro pour qu'il prenne la valeur de la date voulue (je choisis le mois au moyen d'une scrollbar). Donc je ne modifie rien du tout dans ma feuille et c'est bon quand même... enfin ce serait le rêve!!!

CurDate = Names("PremJour").Value
Names("PremJour").RefersTo = DateSerial(Year(CurDate), Month(CurDate) + 1, 1)

= incompatibilité de type!

comme dirait la pub pour Bio de Danone : "t'as une solution?"

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 24 Octobre 2003

• #12

Ah, je suis sur une piste :

dans curdate je n'ai pas un nombre mais "=le nombre",
donc y faut que je récupère juste la partie numérique derrière le =

z'avez une idée?

Merci

 

Vote positif 0 Vote négatif