Extraire des lignes sur une autre feuille

Bonjour

tout nouveau sur le foum et débutant sur EXEL je voudrais extraire des lignes de comptes d'une mème " famille" sur une autre feuille automtiquement sans faire trier filtter

exemple: sur feuille 1,colonne c, j'ai ligne 3 loyer, ligne 4 charges,ligne 5, traveaux,et autre chaque mois, dans les colone d recettes e dépences

sur feuille 2 je voudrais avoir toutes les lignes loyer sur feuille 3 les charges sur feuille4 les traveaux

quel fromule appliquer et comment la remplir?

Bonjour The forum

Peux-tu joindre un fichier avec le résultat attendu, afin de t'apporter une réponse rapide.

Celle-ci te permettra de t'initier au langage vba en mettant en pratique le code qui te sera alors prposé.

Amitié

Air_2

ok je me lens pour joindre un fichier

Ohttp://www.excel-pratique.com/~files/doc2/exemple_exel.xlsx

Bonjour et bienvenue sur ce forum,

Si tu: mets ton fichier au format excel 2003 (*xls) tu auras plus de chance d'avoir une réponse.

de mon coté je ne peux pas le lire mais en attendant vois déjà ces liens qui me semblent correspondre à ta demande :

• > https://www.excel-pratique.com/forum/viewtopic.php?t=10386
• > https://www.excel-pratique.com/forum/viewtopic.php?t=13584 (dernier post)

Tu peux aussi faire une recherche sur les mot Sauver, sauvegarde ou Transfert qui devrait te donner pas mal de sujets traités.

A te relire

Dan

edit : aussi ce lien --> https://www.excel-pratique.com/forum/viewtopic.php?t=13799

ton tableau est réalisable par une petite macro, mais il nous faut un extrait de ton tableau ou un exemple sur excel

Bonjour je n'ai toujour pas resolu mon problème je vous joint mon fichire avec ma question

https://www.excel-pratique.com/~files/doc2/4OI1Cexemple_exel.xlsx

a l'avance merci

Bonsoir,

Et que deviennent les lignes du tableau ?

Faut-il les supprimer après transfert ?

Amicalement

Claude.

Bonsoir

Je ne sais pas de qui est le code. Je l'ai adapté à ton besoin.

Fichier

Amicalement

Nad

Edit : salut Claude

bonsoir claude

il ne faut que la ligne complète ce retrouve sur les feuilles CE,LA ,TRAV pour analiser les recettes et les dèpences de chaqun

DOM

Re bonsoir

en fait en relisant la question je n"ai pas répoondu correctement sur le message précedent

sur le feuille compte je veux grader toutes les lignes par date

et sur les autres feuilles les dépences ou recette de chaque intervenant

Re

Kiminod, tu t'es connecté deux fois depuis ton dernier message et tu ne dis pas si tu as vu mon fichier ; je t'ai envoyé un MP pour te signaler que j'avais également répondu mais tu n'as pas ouvert le message.

A te relire

Amicalement

Nad

bousoir NAD

merci pour le fichier que vous m' avez envoié c"est exactement ce que je voulais mais quelle formule avez vous utilisée ? si je clique dans les cellues que vous avez complètée il n'y a pas de formule !! ! ! !

à l"avance merci

DOM

Re

Ce n'est pas une formule mais une macro.

Tu fais ALT+F11 pour la voir.

Amicalement

Nad

OK je l'ai vue mis comment je fais pur l'appilquer sur mon tableau d'origine ! !

désolé je suis plutot nul mais j'aime bein arriver a mes fins

DOM

Bonsoir à tous;

Bonsoir Nad,

Autre macro à copier dans un module

Sub ClasseComptes()
''Macros par Claude Dubois pour "kinimod" E-P le 01 Nov 09
Dim Cel As Range
    For Each Cel In Range("C3:C" & [C65000].End(xlUp).Row)
        Range(Cells(Cel.Row, 2), Cells(Cel.Row, 6)).Copy _
        Destination:=Range(Cel & "!b65536").End(xlUp)(2)
    Next Cel
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Kinimod_Range_Onglet.xls

Amicalement

Claude

re,

Oublie mon message précédent,

il y avait des espaces parasites dans la colonne C,

ce nouveau code les supprime et saute les onglets inexistants ("éventuels)

avec On Error Resume Next

Sub ClasseComptes()
''Macros par Claude Dubois pour "kinimod" E-P le 01 Nov 09
Dim Cel As Range
    For Each Cel In Range("C3:C" & [C65000].End(xlUp).Row)
        On Error Resume Next 'si onglet n'existe pas
        Cel.Value = Trim(Cel.Value)
        Range(Cells(Cel.Row, 2), Cells(Cel.Row, 6)).Copy _
        Destination:=Range(Cel & "!b65536").End(xlUp)(2)
        On Error GoTo 0
    Next Cel
End Sub

Fichier2:

https://www.excel-pratique.com/~files/doc2/Kinimod_Range_Onglet2.xls

excuses

Claude.