Identification du 1er jour du mois

[Fab117]

Salut,
Dans ma macro, il y a une colonne avec des dates au format "dd.mm.yyyy".
Je teste chaque date. Si il s'agit du premier jour du mois => "dd = 01", il doit faire quelque chose de spécial.
Quelqu'un peut-il me dire svp comment identifier le premier jour du mois à partir de :

DateConcernee = Format(Range("A" & i), "dd.mm.yyyy")
If ...

Merci d'avance.

Fab

 

[Moulinois]

Re : Identification du 1er jour du mois

Bonjour,

If Application.WorksheetFunction.DAY(DateConcernee) = 1 Then........

Pas testé, j'espère que ça marche.

A te lire,


EDIT : Wahou, 100è message en ce qui me concerne !

 

[BOISGONTIER]

Re : Identification du 1er jour du mois

Bonjour,

Si A1 contient 01.12.2008:

d = Replace([A1], ".", "/")
jour = Day(CDate(d))

JB

 

[Fab117]

Re : Identification du 1er jour du mois

Merci pour votre aide, ça fonctionne parfaitement.

Fab

 

[Moulinois]

Re : Identification du 1er jour du mois

Bonjour,

jour = Day(CDate(d))

Dans quels cas doit-on utiliser Application.WorksheetFunction alors

A plus,

 

[BOISGONTIER]

Re : Identification du 1er jour du mois

>Dans quels cas doit-on utiliser Application.WorksheetFunction ?

Dans le cas où une fonction n'existe pas en VBA, on utilise celle du tableur avec Application.xxxx (VlookUp,Macth,Proper,,..)
La fonction Day(date) existe en VBA.

JB

 

[Moulinois]

Re : Identification du 1er jour du mois

Merci

>Dans quels cas doit-on utiliser Application.WorksheetFunction ?

Dans le cas où une fonction n'existe pas en VBA, on utilise celle du tableur avec Application.xxxx (VlookUp,Macth,Proper,,..)
La fonction Day(date) existe en VBA.

JB

...............y'a une liste de celles-ci dans l'aide de VBA (je l'ai pas l'aide, je demande pour savoir si ça vaut le coup que je l'installe ) ?

 

[mutzik]

Re : Identification du 1er jour du mois

Bonjour,

je pense que l'aide d'excel + VBA est absolument indispensable et incontournable dès lors qu'on veut faire de la prog en VBA

 

[Moulinois]

Re : Identification du 1er jour du mois

Mais moins j'ai de contacts avec "l'informaticien" mieux je me porte

Bon, j'ferai l'effort alors