Evenement Delete

Bonjour

ca fait un moment que je cherche un VBA ou une astuce qui:

quand on efface une cellule d'une feuille bien precise, ceux qui été dans cette cellule seras collé dans une autre feuille à la meme place ( comme un journal)

merci pour votre aide ci précieuse

Bonjour,

Procédures événementielles à mettre dans le module de "feuille bien precise" :

Dim Valeur

Private Sub Worksheet_Change(ByVal Target As Range)

    'adapter le nom de la feuille cible (journal) ici, "Feuil2"
    Worksheets("Feuil2").Cells(Target.Row, Target.Column).Value = Valeur

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Valeur = Target.Value

End Sub

Bonjour,

Une autre proposition à étudier.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, oldValue
    If Target.CountLarge = 1 And IsEmpty(Target) Then
        Set ws = ActiveWorkbook.Worksheets("Journal")
        Application.EnableEvents = False
        Application.Undo
        oldValue = Target.Value2
        Target = Empty
        Application.EnableEvents = True
        ws.Range(Target.Address).Value = oldValue
    End If
End Sub
3iliyes.xlsm (15.12 Ko)

Bonjour THEZE

Bonjour JEAN-ERIC

je vous remercie tous les deux pour les propositions.

le 2 sont fonctionnelles à merveilles; mais j'adopte celle de THEZE dont voici la raison de mon adaptation :

quand j’écris sur une cellule qui à déjà des donnée dedans, l’ancienne valeur se copie dans la feuille 2 ce qui n'est pas le cas de la proposition de JEAN-ERIC

maintenant à moi d'adapter tous cela à mon fichier

je vous remercie encore une fois tous les deux.

Bonjour THEZE

Bonjour JEAN-ERIC

je re-edit ce post malgré que j'ai mis cloture, car je retombe dans un autre soucis ( si c'est possible une aide de votre part)

voici mon fichier en piece jointe ainsi que le problème:

dans la feuille 1 si je met un supprime et je laisse la selection dans la meme cellule, ben... l'information dans la feuille 2 est bonne.

Or si j'écrit sur une cellule déjà contenant des informations, et que je valide avec ENTREE ou avec les FLÈCHE ( haut-bas-gauche-droite) l'information est celle de la nouvelle cellule sélectionne et non pas celle qui à été modifié.

y - a - t - il une solution???

merci encore une fois pour tous ce que vous faites

Bonjour,

Pas sûr d'avoir bien compris ...

Un essai ...

Au lieu de Cel = ActiveCell.Address

Changer pour Cel = Target.Address

ric

je vousremercie RIC, aussi THEZE et JEAN-ERIC

c’était aussi facile que ca

merci

Rechercher des sujets similaires à "evenement delete"