Copier date de mise a jour dans un Label
Résolu
vieuxray
-
vieuxray -
vieuxray -
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
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")
6 réponses
-
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 -
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 -
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 -
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 -
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 -
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
