Copier date de mise a jour dans un Label

Résolu/Fermé
vieuxray - 3 févr. 2014 à 15:01
 vieuxray - 4 févr. 2014 à 09:06
Bonjour bonjour a toutes et tous, forum bonjour


EXCEL 2007 VBA


Je souhaiterai svp afficher dans mon Label481 la date de remise a jour
c'est a dire le premier de chaque mois

Bon pour ce mois c'est rater, voir le commentaire du code plus bas svp

Merci pour votre aide, une bonne après midi a vous

Cdlt Ray


           
'*** RECOPIER LES COLONNES ET LIGNES LE PREMIER JOUR DE CHAQUE MOIS

With Sheets("Compte")
If Month(Date) <> .Range("B24") Then
.Range("B24") = Month(Date)

With .Cells(18, Month(Date) + 3).Resize(9, 1) 'Date changement de colonne mensuel
.Copy .Offset(0, 1)
.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End If

'*** DATE DE REMISE A JOUR
Label481.Caption = '*** "Dddd dd Mmm yyyy" d'après mes recherches hum

End With

'*** (Afficher la date sous ce Format "Samedi 01 Février 2014")

A voir également:

6 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
3 févr. 2014 à 16:55
Bonjour,

With Sheets("Compte")
If Month(Date) <> .Range("B24") Then
'.Range("B24") = Month(Date)

With .Cells(18, Month(Date) + 3).Resize(9, 1) 'Date changement de colonne mensuel
.Copy .Offset(0, 1)
'.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End If

'*** DATE DE REMISE A JOUR
Label481.Caption = Format(.Range("B24"), "Dddd dd Mmm yyyy") '*** "Dddd dd Mmm yyyy" d'après mes recherches hum

End With
1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
3 févr. 2014 à 16:57
Bonjour,

With Sheets("Compte")
If Month(Date) <> .Range("B24") Then
.Range("B24") = Month(Date)

With .Cells(18, Month(Date) + 3).Resize(9, 1) 'Date changement de colonne mensuel
.Copy .Offset(0, 1)
.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End If

'*** DATE DE REMISE A JOUR
Label1.Caption = Format(.Range("B24"), "Dddd dd Mmm yyyy") '*** "Dddd dd Mmm yyyy" d'après mes recherches hum

End With
1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 3/02/2014 à 17:23
Bonjour,

With Sheets("Compte")
If Month(Date) <> .Range("B24") Then
.Range("B24") = Month(Date)

With .Cells(18, Month(Date) + 3).Resize(9, 1) 'Date changement de colonne mensuel
.Copy .Offset(0, 1)
.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End If

'*** DATE DE REMISE A JOUR
Label481.Caption = Format(.Range("B24"), "Dddd dd Mmm yyyy") '*** "Dddd dd Mmm yyyy" d'après mes recherches hum

End With
1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
4 févr. 2014 à 08:24
Bonjour,

Autant pour moi, il faut écrire la date complete en B24, sinon comment retrouver le jour !!!!

With Sheets("Compte")
If Month(Date) <> Month(.Range("B24")) Then
.Range("B24") = Date

With .Cells(18, Month(Date) + 3).Resize(9, 1) 'Date changement de colonne mensuel
.Copy .Offset(0, 1)
.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End If

'*** DATE DE REMISE A JOUR
Label481.Caption = Format(.Range("B24"), "Dddd dd Mmm yyyy") '*** "Dddd dd Mmm yyyy" d'après mes recherches hum

End With
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bonsoir f894009,

Merci pour ta réponse et pour le code.

J'ai essayer en mettant mon pc sur 1 mars 2014

et la réponse est (Lundi 01 Janvier 1900) il aurait du écrire (Samedi 01 Mars 2014)

A savoir la cellule (B24) est au format standard et pour l'instant seule la valeur 2 est présente dans la cellule

Merci a toi

Cdlt Ray
0
Bonjour f894009,

Merci pour ta réponse et la modif.

Tu ne te trompe pas beaucoup par rapport a moi ihihhiihih

Bon j'ai simuler de nouveau la date du PC après ta modification

et voila c'est tout bon pour moi ça fonctionne comme souhaiter.

Une fois de plus, je te remercie beaucoup pour ton aide.

Une très bonne journée a toi avec tous mes remerciements.

Bien cordialement Raymond
0