Date

[apdf1]

Bonjour,

Je recherche une formule sur excel: Chaque 1er du mois la ligne 9 descende de deux ligne et mentionne le mois actif

Merci d'avance

Ci joint un fichier exemple

Cordialement

Max

 

[Pierrot93]

Re : Date

Bonjour,

ton fichier n'est pas passé, mais regarde peut être ceci :

If Day(Date) = 1 Then Rows("9:10").Insert xlShiftDown

bonne journée
@+

 

[apdf1]

Re : Date

Bonjour Pierrot

Regarde le fichier a été mis a jour.

Bonne journée

Max

 

[Pierrot93]

Re : Date

Re,

vu, mais pas 2007 à dispo...

 

[apdf1]

Re : Date

Re

J'ai mis le fichier en xls

Max

 

[Pierrot93]

Re : Date

Re,

le code proposé semble fonctionné, ou alors j'ai pas tout compris....

 

[apdf1]

Re : Date

Re,

Peut me renvoyer le fichier avec le code car je n'arrive pas a le faire fonctionner

Max

 

[Pierrot93]

Re : Date

Re,

c'est le xls que tu as déposé... rien modifié dessus, cliqué sur le bouton....

 

[apdf1]

Re : Date

Re,

Quand je click sur le bouton sa descend bien de deux lignes mais sa donne pas le mois actuel

Max

 

[Pierrot93]

Re : Date

Re,

aarf, avais zappé ce point...

If Day(Date) = 1 Then Rows("9:10").Insert xlShiftDown: Range("F10").Value = Month(Date)

 

[apdf1]

Re : Date

Re,

Oui avec le boutton j'arrive a lui donne la date mais moi j'aimerais que la date mette automatiquement le premier de chaque mois

Max

 

[Pierrot93]

Re : Date

Re,

tu parlais du mois actif, non... c'est quoi automatiquement, le bouton c'est déjà automatique, non ????? regarde du coté de "dateserial"....

 

[apdf1]

Re : Date

Re,

Pourquoi il m'affiche toujours 04/01/1900

Max

 

[Pierrot93]

Re : Date

Re,

en l'état, renvoie 4 dans la cellule, donc si tu applique un format date.... prend le 4ème jour en commencant le 1er janvier 1900... essaye ceci :

    With Range("F10")
        .Value = DateSerial(Year(Date), Month(Date), 1)
        .NumberFormat = "mmm-yy"
    End With

 

[Paritec]

Re : Date

Bonsoir Pierrot🙂 max,
l'ami Max ne changera jamais !!!!!!!
bref voilà de quoi afficher ce que tu veux, mais comme en plus tu as fusionné trois cellules pour mettre ton mois je te laisse chercher un peu
a+
papou 🙂

Sub Bouton1_Clic()
If Day(Date) = 1 Then Rows("9:10").Insert xlShiftDown: Range("F10").Value = Format((Date), "mmmm-yy")
End Sub

EDIT : jétais entrain de taper la modif et j'avais pas vu ta réponse Pierrot