Copier date en format Jour

Bonjour à tous

J'ai ajouté une copier-coller automatique de la date dans la cellule suivante, mais je souhaiterais que le format de destination soit format "jour" de la date. Par exemple en A5 2015-08-18, en B5 Mardi, etc.

Malgré mes tentatives, je ne trouve pas la solution.

Merci de votre aide

Voici le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    adresse = Target.Address
    For i = 5 To 65536
        If adresse = "$A$" & i Then
            Calendrier.Show
            Cancel = True
            Exit For
        End If
    Next

    ActiveCell(, 1).Resize(1).Copy Destination:=ActiveCell(, 2)

If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("h5:H" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Liste.Show
End If

If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("G5:G" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Confirmation.Show
End If

End Sub

Hello,

As-tu essayé le format "dddd" ?

Bonsoir SoumZoum

Non, coco que je suis, j'essayais avec "jjjj". Mais j'ai tellement essayé de trucs que je ne sais même plus où mettre le format dans le code.

merci pour la piste.

Bonsoir,

ActiveCell(, 1).Resize(1).Copy Destination:=ActiveCell(, 2)
ActiveCell(, 2).NumberFormat = "dddd"

A+

Bonsoir frangy.

Ben voilà !

Bonsoir à vous deux

merci beaucoup.

J'y étais presque...

j'essayais ça, mais ça copiait uniquement le jour en cours

ActiveCell(, 1).Resize(1).Copy Destination:=ActiveCell(, 2)
    ActiveCell(, 2) = Format (date, "dddd")

merci encore

Bonsoir

Aïe, je crois que ma tentative affecte d'autres macro. M.. je suis encore sur une fausse piste!

Upload ton fichier et j'y jetterai un oeil dans la semaine (à moins que quelqu'un le fasse avant)

Super, merci SoumZoum

je ne sais pas pourquoi, mais du coup, tout c'est mis à déconner. Les macros ne s'exécutent plus correctement!

Bonjour le forum

je crois que cela va être mieux avec ce code!

  Range("A5:A65536").Copy Destination:=Range("B5:B65536")
    Range("B5:B65536").NumberFormat = "dddd"

Mais comme cela couvre l'ensemble des colonnes A et B, je me demande s'il n'y avait pas moyen d'écrire le code d'une manière plus spécifique comme pour le calendrier. Car chaque entrée de données se fait sur une ligne à la fois.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    adresse = Target.Address
    For i = 5 To 65536
        If adresse = "$A$" & i Then
            Calendrier.Show
            Cancel = True
            Exit For
        End If
    Next

    Range("A5:A65536").Copy Destination:=Range("B5:B65536")
    Range("B5:B65536").NumberFormat = "dddd"

If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("h5:H" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Liste.Show
End If

If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("G5:G" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Confirmation.Show
End If
'ActiveSheet.Unprotect Password:="mldc"
'ActiveSheet.Protect Password:="mldc"
End Sub

Quelle serait la condition dans ce cas ? Pour que la ligne soit (ou non) copiée ?

Bonjour SoumZoum

vous avez bien raison, il n'y en a pas! Comme la macro force la copie dans la cellule suivante, dès que l'usager passe à la ligne suivante la copie s'exécute que pour celle là.

Mais là, je ne sais pas pourquoi, la macro de respecte pas la mise en forme souhaité.

Par exemple en A5 le format devrait être 2015-08-19 et en B5 mercredi.

Avant que je ferme le classeur, ça fonctionnait, là je l'ouvre et ça mercredi dans la cellule A5 et B5. J'ai hâte de pouvoir percer tous les mystère du vba.

merci de vous intéresser à mon projet.

Bonjour

bon, j'ai résolu le mystère de mise en forme des cellules. La mise en forme s'était modifiée sans que je sache trop pourquoi .

Je les ai refaite, et tout est ok!

Merci

Eh ben bonne nouvelle !

Et si vous essayez ce service onlineconvertfree

Rechercher des sujets similaires à "copier date format jour"