Macro pour copier et coller date sous un format précis

Bonjour,

svp j'aimerai que vous m'aidiez a créer une macro qui une fois je tape une date sous format "jj/mm/aaaa" dans la colonne A de la feuille 1, la macro la copie et la colle automatiquement dans la colonne B de la feuille 2 sous format "mmm-aa".

je joins un fichier exemple avec la formule excel fin.mois.

et merci d'avance

Bonjour

Pas besoin de macro pour cela, il suffit de faire = et changer le format.

bonjour,

merci steelson pour votre réponse.

si j'ai besoin d'une macro, parce que j'ai un souci quand je supprime des lignes dans la feuille 1, je dois a chaque fois réinitialiser la formule.

cordialement

ok

Dans ce cas, il en dire davantage sur les règles de gestion.

Si tu supprimes une ligne, que faut-il faire sur l'autre feuille ? supprimer la ligne aussi ? ou la laisser ?

Si tu modifies une date, faut-il répercuter la modification ? ... et si oui alors qu'une ligne a été aussi supprimée auparavant alors il faudra mémoriser la ligne "soeur".

Si tu ajoutes une ligne, on l'ajoute à la fin je suppose ...

bonjour,

merci, concernant vos questions, je les résumes toutes a ce que, quelque soit la manipulation faites sur la feuille 1, on doit avoir les mêmes données de la feuille 1 dans la feuille 2 mais avec une format différente.

merci beaucoup

Dans ce cas ...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        recopie
    Application.EnableEvents = True
    Target.Select
End Sub

Sub recopie()
    Columns("A:A").Copy
    Sheets("X").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("ACHAT").Select
    Application.CutCopyMode = False
End Sub

Bonjour,

Bonjour Steelson,

Une autre proposition !?

Cdlt.

Private Sub Worksheet_Activate()
Dim tbl As Variant, lastRow As Long
    lastRow = Application.Max(3, Me.Cells(Rows.Count, 2).End(xlUp).Row)
    Me.Cells(3, 2).Resize(lastRow - 2).ClearContents
    With Worksheets("Achat")
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        tbl = .Cells(3, 1).Resize(lastRow - 2).Value
    End With
    With Me.Cells(3, 2).Resize(lastRow - 2)
        .Value = tbl
        .NumberFormat = "mmm-yy"
    End With
End Sub

Bonjour,

merci beaucoup a steelson et jean-eric vous m'avez rendu un grand service, c'est exactement ce que je veux .

pour votre information, la macro de jean-eric s’exécute un peu plus vite que celle de steelson, mais ils font le même travail.

encore merci beaucoup.