Copie ligne

bonjour à tous

voilà mon souci

j'ai un tableau en a11 P34

en colonne F si la cellule est renseignée par une date je voudrais que cette ligne entière soit copiée à partir de la ligne 41 de la même page

Egalement que les lignes recopiées soient triés par dates c'est à dire qu'elles apparaissent en ordre du plus ancien en haut à la plus actuelle en bas .

je transmets mon exemple

en vous remerciant par avance

Bonjour

A vérifier

Bonsoir banzaî

merci pour ta réponse

ta proposition ne copie pas mais coupe la ligne ou la cellule F est non vide

je souhaiterais que la ligne soit copié.

et même ...pourquoi pas ...sur une autre feuille , puisque je m'aperçois bêtement que le tableau serait plus lisible sur une autre feuille peut être.

Cela est il possible ? je n'en sais rien

en te remerciant pour ta réponse et tes futures reponses

bonnes soirée banzaî64

Bonsoir

Une version qui copie seulement et dans une autre feuille

Chapeau Monsieur !

une dernière petite demande la copie colle en haut de la feuille , est il possible de commencer cette copie à partir de la ligne 10 par exemple

merci beaucoup banzaî64.

cordialement

merci par avance

Bonsoir

Il suffit de déplacer la ligne 1 à la ligne 10 et de modifier la macro

.Range("A10").CurrentRegion.Sort key1:=.Range("F10"), order1:=xlAscending, dataoption1:=xlSortNormal, header:=xlYes

Merci de ta réponse

vbe me met une erreur en soulignant cette ligne

.Range("A10").CurrentRegion.Sort key1:=.Range("F10"), order1:=xlAscending, dataoption1:=xlSortNormal, header:=xlYes

je suis xl2000 peut être est ce la cause?

merci

Bonjour

Pas de souci particulier

Tu as bien déplacé la ligne 1 vers la ligne 10 ?

A voir

Bonjour banzaî

tjrs le meme problème, même ligne

.Range("A10").CurrentRegion.Sort key1:=.Range("F10"), order1:=xlAscending, dataoption1:=xlSortNormal, header:=xlYes

je vais essayer de voir à ce niveau xlAscending, dataoption1:=xlSortNormal, header:=xlYes

si tu vois avant moi je suis preneur

merci

Bonjour

C'est dataoption1 qui n'existe pas avec Excel 2000

Donc modifies la ligne

.Range("A10").CurrentRegion.Sort key1:=.Range("F10"), order1:=xlAscending, header:=xlYes

Salut banzaÏ

c'est bon ca marche merci encore