Copier date de mise a jour dans un Label

Résolu
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 


           
'*** 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

Réponse 1 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 2 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 3 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 4 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 5 / 6
vieuxray
 
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
Réponse 6 / 6
vieuxray
 
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

Discussions similaires

mise à jour boitier X96 mini
Brunoche -
Vico -

3 réponses
mise a jour firmware android
seb63260 -
Seb63260 -

2 réponses
passer de 4.4.2 à 5.0.1
elbassem155 -
LeGarsQuiSaitPasCommentCaMarche -

3 réponses