Copier date de mise a jour dans un Label
Résolu/Fermé
A voir également:
- Copier date de mise a jour dans un Label
- Mise a jour airpods - Guide
- Desactiver mise a jour windows 10 - Guide
- Mise a jour windows 11 22h2 - Guide
- Iphone 14 date de sortie - Guide
- Mise à jour pilote - Guide
6 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 févr. 2014 à 16:55
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 févr. 2014 à 16:57
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 3/02/2014 à 17:23
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
4 févr. 2014 à 08:24
4 févr. 2014 à 08:24
Bonjour,
Autant pour moi, il faut écrire la date complete en B24, sinon comment retrouver le jour !!!!
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
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
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