VBA ou Formule date 1er jour du mois suivant

Bonjour au forum,

à partir d'une date, Exemple : 12/07/2007

Je voudrais obtenir : 01/08/2007

(1er jour du mois suivant)

1 - par formule

2 - par VBA

Bonne journée

Claude.

Bonjour

Par formule:

=DATE(ANNEE(A1);MOIS(A1)+1;1)

avec ta date en A1

Edit

Bonjour Thibo

le tout c'est que cela fonctionne

Bonjour,

En formule, ça pourrait donner ceci :

=DATE(ANNEE(A1);MOIS(A1)+1;0)+1

En VBA, je laisse la parole à mes petits camarades

@+

thibo a écrit :

Bonjour,

En formule, ça pourrait donner ceci :

=DATE(ANNEE(A1);MOIS(A1)+1;0)+1

En VBA, je laisse la parole à mes petits camarades

@+

Edit,

Salut Bruno,

J'ai un peu compliqué les choses...

@+

Bonjour,

Par VBA, à essayer ->

Range("B1") = Year(Range("A1")) & "/" & Month(Range("A1")) + 1 & "/" & 1

Avec :

en A1 = la date de référence

en B1 = le 1er du mois suivant.

On suppose que ta cellule est préalablement formatée en Standard ou en date.

Amicalement

Dan

re,

merci à tous, formules et VBA, c'est nickel !

Cordialement

Claude.

Salut le forum

Sans tenir compte du séparateur de date, déjà gérer dans les propriétés

With Range("A1")
Range("B1") = DateSerial(Year(.Value), Month(.Value) + 1, 1)
End With

Mytå