Copier date en format Jour Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 18 août 2015, 22:00

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
Avatar du membre
SoumZoum
Membre fidèle
Membre fidèle
Messages : 349
Inscrit le : 18 novembre 2014
Version d'Excel : Excel 2010 FR

Message par SoumZoum » 18 août 2015, 22:02

Hello,

As-tu essayé le format "dddd" ?
Cordialement,

Toto l'asticot :D
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 18 août 2015, 22:11

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.
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'342
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 18 août 2015, 22:21

Bonsoir,
ActiveCell(, 1).Resize(1).Copy Destination:=ActiveCell(, 2)
ActiveCell(, 2).NumberFormat = "dddd"
A+
Avatar du membre
SoumZoum
Membre fidèle
Membre fidèle
Messages : 349
Inscrit le : 18 novembre 2014
Version d'Excel : Excel 2010 FR

Message par SoumZoum » 18 août 2015, 22:24

Bonsoir frangy.


Ben voilà ! :mrgreen:
Cordialement,

Toto l'asticot :D
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 18 août 2015, 22:31

Bonsoir à vous deux

merci beaucoup.

J'y étais presque...

j'essayais ça, mais ça copiait uniquement le jour en cours :oops:
ActiveCell(, 1).Resize(1).Copy Destination:=ActiveCell(, 2)
    ActiveCell(, 2) = Format (date, "dddd")
merci encore
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 18 août 2015, 22:52

Bonsoir

Aïe, je crois que ma tentative affecte d'autres macro. M.. je suis encore sur une fausse piste!
Avatar du membre
SoumZoum
Membre fidèle
Membre fidèle
Messages : 349
Inscrit le : 18 novembre 2014
Version d'Excel : Excel 2010 FR

Message par SoumZoum » 18 août 2015, 23:11

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

Toto l'asticot :D
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 19 août 2015, 14:48

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!

http://www.online-convert.com/fr/result ... 0817575af0
Avatar du membre
VDMICHEL
Membre fidèle
Membre fidèle
Messages : 377
Inscrit le : 13 novembre 2013
Version d'Excel : 2003

Message par VDMICHEL » 19 août 2015, 16:11

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message