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 chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise a jour kindle - Guide
- Mise a jour windows 7 - Accueil - Mise à jour
- Mise à jour pilote - Guide
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
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
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
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
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
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
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
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