copie de ligne par rapport a une date

[laurence]

Bonjour,

je souhaiterais savoir si il est possible de faire faire automatiquement un transfert de cellule dans une autre feuille du classeur par rapport a un depassement de date.
en plus claire dans le tableau ci joint je souhaiterai que quand la date butoir est atteinte il me transfert tout le contenu de la ligne dans la feuille 1 par exemple

merci d'avance

 

[yvon51]

re

je ne comprends pas bien ta question
peux-tu donner ton tableau rempli d'une ou deux lignes.

j'ai mis quelque chose dans ton fil d'avant (tu pouvais continuer sur le même fil)
je t'ai écris dans ta bal

yvon

 

[laurence]

re

comme tu pourra le voir dans le tableau ci joint je veux que si la date dans la colonne date butoir est depasser je veux que la ligne se copie dans la feuille 1.

je sais pa si c'est plus clair

merci

 

[yvon51]

re
oui d'accord mais ton tableau est vide.
la date butoir,c'est laquelle?
tableau courrier arrivée ou départ?

yvon

 

[laurence]

re

desolé ,

c'est sur le tableau courrier depart
et pour la date butoir c'est la le probleme car elle changera en fonction du courrier.
merci

 

[yvon51]

re
donc il va falloir passer par une macro et là, il faut que tu t'adresses aux spécialistes.

tu as Monique, André, Céléda, Pascal76, Lord Nelson et d'autres que j'oublie et qui m'excuserons.

j'ai eu à faire à eux et j'aurai encore certainement car ils sont TRES balaises.
contacte-les.

mes limites sont les formules. je ne connais pas le VBA.

yvon51

 

[laurence]

merci pour tous yvon
sait tu comment les contacter??

 

[Hervé]

Bonjour

Regarde en pièce jointe, j'ai considérer que la date butoir était en colonne i et que l'on voulait la comparer avec la colonne B.

Principe : toute ligne dont la date en colonne B est inférieur à la date butoir est supprimé de la feuille et archivée en feuil1.

Pour voir le code de la macro clique droit sur l'onglet, puis visualiser le code .

Salut
Hervé

 

[yvon51]

bonjour le forum

bonjour laurence et hervé

merci, hervé.

tu vois laurence, ici il y a toujours une ou un ami pour aider.

bonne journée

yvon

 

[aubelix]

Bonjour à tout le forum

Ce forume étant toujours une mine d'or et comme je le dis souvent, les bénévoles (à qui on ne rendra jamais assez hommage), en sont les pépites.

J'ai voulu adapter l'exemple à mon fichier, mais un message d'erreur s'affiche : Type incompatible (voir fichier joint)
Merci pour votre aide.

 

[Hervé]

Bonsoir

Public Sub PRELEVEMENTS_AUTOMATIQUES()
Dim i As Integer

For i = Range("a65000").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value <= Range("J1").Value Then
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=Sheets("Suivi compte courant").Range("c" & Sheets("Suivi compte courant").Range("c65000").End(xlUp).Row + 1)
Range(Cells(i, 1), Cells(i, 9)).Delete
End If
Next i
End Sub


Un conseil : place tes macros dans les feuilles ou le traitement doit être réalisé ici en l'occurence c'est la feuille prélèvement, tu te simplifira grandement la tache en t'évitant de faire toujours référence à la feuille.

évite aussi les mails dans les BAL privées, je suis les posts auquels je participe.

Salut
Hervé

 

[aubelix]

Bonsoir Hervé et le forum.
Merci pour ta répopnse. Je te prie de m'excuser pour t'avoir écris sur ton adresse privée. J'étais trop pressé d'avoir la réponse. Cela me servira de leçon.
D'autre part, ta solution fonctionne, mais j'aurai voulu copier les valeurs avec un collage spécial, car j'ai une liste de validation dans certaines cellules. La copie supprime cette validation.
Quelle la syntaxe pour faire un collage spécial des données.
Par vance merci pour vos réponses.