Copier coller d'un ligne avec condition dans 1 autre feuille

Bonjour forum,

Voila j'aimerais, si c'est possible, selectionner que les lignes dans mon tableau qui aurais un statut spécial, j'ai un bout de code mais j'ai selectionner les lignes manuellements, mon but est de les couper, d'ouvrir un autre fichier et de les sauvegarder dans le nouveau fichier. J'espère avoir été assez clair.

Range("A4:H19").Select

Selection.Cut

Workbooks.Open Filename:= _

"C:\le_chemin_du_classeur\test.xls"

Range("A1").Select

ActiveSheet.Paste

Merci d'avance

Ftomi

Bonjour,

sélectionner que les lignes dans mon tableau qui aurais un statut spécial

Euh, quel statut?

A te relire

bonjour,

Je voudrais selectionner des lignes qui aurais une valeur "x" dans leur cellule active et pas les autres, je sais pas si c'est assez clair, si jamais dite le moi.

Cdt

Ftomi

bonjour forum,

Après avoir perdu quelque cheveux et changer d'avis, je souhaite copier - coller mes lignes qui on une condition "X" dans une autre feuille et non plus dans un autre classeur, car cella semblais plus facile. J'ai plusieur code mais aucun ne marche.

voici mon fichier : https://www.excel-pratique.com/~files/doc2/testmacro_avec_transfert_de_fichier.xls

Eclairer moi de votre science

Cdt Ftomi

Bonjour,

regarde le fichier joint, l'extraction se fait sur la base du filtre élaboré

le code :

Sub extract()
Dim DerLig As Long
With Sheets("Soldé")
    DerLig = [A65000].End(xlUp).Row
    Range("A1:H" & DerLig).Name = "base"
    [J1] = [A1]: [J2] = "Soldé"
    Range("A1:H1").Copy .[A1]
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("J1:J2"), _
        CopyToRange:=.Range("A1:H1"), Unique:=False
    Range("J1:J2").Clear
End With
End Sub

le fichier :

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

bonjour felix,

Tout d'abord merci, c'est se que je cherchais a faire, mais le language VBA est encore un peu obscur pour moi, je pourrais te demander des explications sur ta macro ?

ici tu declare une variable non ?

Dim DerLig As Long

ici tu commence la boucle

With Sheets("Soldé")

pour toute les lignes de la feuille ?

DerLig = [A65000].End(xlUp).Row

selectionne les colones remplie de la ligne, mais pourquoi base ?

Range("A1:H" & DerLig).Name = "base"

j'ai pas comprit cette ligne

[J1] = [A1]: [J2] = "Soldé"

tu copie la ligne

Range("A1:H1").Copy .[A1]

cette ligne est aussi un mystère

Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("J1:J2"), _

CopyToRange:=.Range("A1:H1"), Unique:=False

cette ligne sert a supprimer les lignes de la première feuille ? si oui cela ne marche pas chez moi

Range("J1:J2").Clear

End With

Est-il possible de suprimer les lignes copiers dans la nouvelle feuile ?

Cdt

Ftomi

ps : j'ai pas mis le code entre cote car le vert en prend pas

Bonjour,

Est-il possible de suprimer les lignes copiers dans la nouvelle feuile ?

dans ce cas, cette manière de faire ne convient pas...

Il faut passer par des .Cut .Paste....

Je regarde

Bonjour,

merci pour le temps que vous me consacrez, pourrez vous egalement commenter mes commentaires en vert svp ? c'est juste pour une compréhension plus personnel de la dite chose =)

Cdt

Ftomi

Re-,

regarde le fichier joint

le code est visible en faisant un clic droit sur le nom de l'onglet, "Visualiser le code"

il est commenté

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

re,

Encore une fois merci, c'est exactement ce que je désirais, tu a repondu a ma question avant que je te la pose =), je test ca et je passe en résolu si j'ai plus de soucis avec =)

Cdt

Ftomi

re,

Voila lors de ma compilation j'ai un soucis a cette ligne :

Range(Cells(Cel.Row, 1), Cells(Cel.Row, 16)).Copy .Cells(DerLig, 1)

je l'ai modifier car mon fichier final comporte plus de colonne que mon fichier de test, mon soucis c'est que dans la page soldé de mon fichier final, jai deja les 5 premières lignes avec quelque chose d'ecrit dedant, et quand je lance le transfert il me dit que je ne peux pas car des cellules sont fusionner. Je seche completement

est-ce que vous voyez mon soucis ?

Cdt Ftomi

Re-,

de l'utilité de joindre un fichier avec la structure exacte du fichier final.....

Excel n'aime pas trop les cellules fusionnées

joins un nouveau fichier, avec la structure exacte, et des données bidons, mais en gardant les cellules fusionnées

re,

je pensais pouvoir l'adapter a mon fichier final ...

voici mon fichier vierge :

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

Cdt

Ftomi

Re-,

il faut redéfinir le calcul de DerLig....

Remplaces par ce code :

DerLig = IIf(.[A65000].End(xlUp).Row + 1 = 4, 5, .[A65000].End(xlUp).Row + 1)

Si le calcul de Derlig donne 4, alors on le met à 5, sinon on garde le calcul.

Valable uniquement pour la première fois...

Ps, pour dérouler un code, clique à l'intérieur, et appuies sur F8 (mode pas à pas)

Si tu veux un point d'arrêt, au lieu d'un msgbox, clique dans la marge, à gauche, au niveau de la ligne.

celle-ci passe en marron, et lors du déroulement, la macro s'arrêtera à cette ligne.

Tu pourras continuer en mode pas-à-pas (F8 ), ou dérouler entièrement (F5)

Bonne soirée

Bonjour,

Merci pour les conseils et pour le code, ca marche comme prevu !

Bonne journée

Cdt

Ftomi

Bonjour forum,

Me revoila parmis vous avec une question tout aussi pertinante, je souhaite copier les information soldé de mon fichier :

Fichier 1

dans un autre, il y a 3 onglets, car j'ai 3 fichiers sources

Fichier 2

j'ai modifier la derlig et rajouter les lignes pour ouvrir le fichier comme pour le transfert des soldés un peu plus haut mais ca ne marche pas, et je ne comprend pas l'erreur. Pouvez vous m'aider ?

Cordialement

Ftomi

Bonsoir,

Je cherche toujours mais je trouve pas de solution viable, personne a une idée ?

Cdt

Ftomi