Date

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #2

Re : Date

Bonjour,

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #3

Re : Date

Bonjour Pierrot

Regarde le fichier a été mis a jour.

Bonne journée

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #4

Re : Date

Re,

vu, mais pas 2007 à dispo...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #5

Re : Date

Re

J'ai mis le fichier en xls

Max

 

Pièces jointes

• Date.xls

  46.5 KB · Affichages: 56
• Date.xls

  46.5 KB · Affichages: 54
• Date.xls

  46.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #6

Re : Date

Re,

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #7

Re : Date

Re,

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

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #8

Re : Date

Re,

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #9

Re : Date

Re,

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

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #10

Re : Date

Re,

aarf, avais zappé ce point...

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #11

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #12

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"....

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Avril 2011

• #13

Re : Date

Re,

Pourquoi il m'affiche toujours 04/01/1900

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2011

• #14

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 :

Code:

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 1 Avril 2011

• #15

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 🙂

VB:

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

 

Dernière édition: 1 Avril 2011

Vote positif 0 Vote négatif