XL 2019 macro copier/coller

[chinel]

Bonsoir tout le monde, j'ai besoin de votre aide pour une petite macro de copier/coller un peu spécial, merci

 

[Phil69970]

Bonjour @chinel

Franchement ton explication n'est pas très logique
A quoi cela sert de copier une valeur et de l’effacer ensuite

Explication à revoir

Merci de ton retour

@Phil69970

 

[chinel]

Bonjour @chinel

Franchement ton explication n'est pas très logique
A quoi cela sert de copier une valeur et de l’effacer ensuite

Explication à revoir

Merci de ton retour

@Phil69970

Salut, cela ne correspond pas à ma demande, merci quand même. Mon je désire copier/coller la cellule D1 dans A1 puis si je mets une autre date dans la cellule D1, elle se copie en A2..... puis arrivé à la cellule A10 on efface le tout et puis recommence. Mise en place "Log" (historique d'ouverture du fichier)

 

[Phil69970]

@chinel

Pourtant c'est comme cela que tu l'a écrit !!!

Je te conseille de te relire avant de poster une demande ....

@Phil69970

 

[chinel]

@chinel

Pourtant c'est comme cela que tu l'a écrit !!!

Regarde la pièce jointe 1161245

Je te conseille de te relire avant de poster une demande ....

@Phil69970

oui j'ai lu mais ta macro copie la valeur de D1 dans toutes les cellules et non en A1

 

[Phil69970]

@chinel

Voici cette version comme demandé au post #3

Merci de ton retour

@Phil69970

 

[chinel]

@chinel

Voici cette version comme demandé au post #3

Merci de ton retour

@Phil69970@Phil69970
[/QUOTE]

@chinel

Voici cette version comme demandé au post #3

Merci de ton retour

@Phil69970

Super boulot, un grand merci et bonne soirée

 

[patricktoulon]

bonsoir à tous

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then
        Application.EnableEvents = False
        If Target = "" Or Not IsDate(Target.Value) Then Target = "": Exit Sub
        If WorksheetFunction.CountBlank([A2:A10]) = 0 Then [A2:A10].ClearContents
        Cells(11, 1).End(xlUp).Offset(1) = [d1]
    End If
 Application.EnableEvents = True
End Sub