Archivage ligne condition dates

Bonjours, j'ai besoin d'un coup de main pour automatiser une feuille.

J'aimerais archiver une ligne sur la feuille Archive si une date est rentrée dans cellule G.

J'arrive pas a trouver la condition si date ou si cellule non vide.

Merci a vous d'avance.

-- Ven Nov 26, 2010 7:25 am --

J'ai omis de préciser l'effacement de la ligne après archivage.

Bonjour,

Essaie avec le code ci-après.

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro Dan pour bruno9442 le 26/11/2010
Dim dlg As Integer
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G4:G" & Range("G65536").End(xlUp).Row)) Is Nothing Then
    dlg = Sheets("Archive").Range("A65536").End(xlUp).Row + 1
    With Range("A" & Target.Row & ":H" & Target.Row)
        .Copy Sheets("Archive").Range("A" & dlg)
        .ClearContents
    End With
End If
End Sub

Pour le placer :

• Clique droite sur l'onglet "Tarvaux"
• Choisis "visualiser le code" et colle le code que je t'ai donné dans la fenêtre.

Amicalement

Super ta macro.

juste un ti bug d'archivage : sur pas mal de ligne la macro archive bien les lignes ou l'ont rentre des dates mais a tendances à enregistrer les lignes les unes sur les autres.

Je pense qu'il faudrait insérer une ligne avant l'archivage.

en tout cas merci dan.

re,

l'ont rentre des dates mais a tendances à enregistrer les lignes les unes sur les autres.

Je ne vois pas de quoi tu parles.

Merci d'expliquer ou de mettre ton fichier réel sans données confidentielles

Amicalement

edit : tu dis "sur les autres" qui veut dire "sous" ou "à la suite des autres" ??? le code recopie les lignes dans l'archive à la suite des précédentes.

Re, c'est cool ça marche maintenant.

J'ai tester ce matin en rentrant juste une date dans la colonne g mais quand je remplis la ligne cela marche mieux.

Je comprend pas trop mais le principale c'est que cela marche lol.

Quand j'archive juste avec la date seul dans la colonne g dans la feuille archive il enregistrait la même ligne (la n°4 et n°8)

Ce qui fait que cela me zappais deux lignes: enregistrement d'une ligne sur une autre.

Mais cela marche super bien quand toute la ligne est remplie.

Super grand merci à toi je pense pas que j'aurais trouvé lol.

re,

Je pense avoir compris ton souci. essaie en remplaçant le A par G dans cette ligne :

dlg = Sheets("Archive").Range("A65536").End(xlUp).Row + 1

Amicalement

Bonsoir Dan.

J'ai fait comme tu me l'as indiquer et cela marche à merveille, trop bien .

Un grand merci à toi.

Faudras que je prenne des cours sérieux pour le vba lol.

Bonjour,

bonne année et bonne santé à tous !

j'ai presque trouvé ma réponse avec ce problème résolu,

mais dans mon cas je voulais juste mettre un bouton d'action sur lequel je clique pour que mon archive se fasse avec la date du jour.

Si je ne suis pas à la bonne place merci de me rediriger sinon merci de m'apporter votre aide

Bonjour,

Bonne Année et surtout la santé.....

Pour ma part j'ai trouvé plus pratique par macro car quand la tâches et fini (date de fin d'exécution) elle s'archive toute seule et n'encombre pas la suite des autres tâche à faire.

Après tu l'arrange comme tu veut, et suivant tes besoins surtout...

Cordialement.

Merci de ta réponse mais j'ai mieux expliquer ma demande ici:

https://forum.excel-pratique.com/ooo-calc/archiver-valeurs-journalieres-pour-tableau-t20733.html

J'ai besoin de savoir quel code rentrer, je suis novice et j'attends ma formation EXCEL, en attendant si l'on peut m'aider ...

merci

désolé je ne suis pas aussi caler que sa lol

ta demande et trop complexe pour moi.

Cordialement