Discussion :

[Drost]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Cells(1,1).select
Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

[Papillon34]

Tout fonstionne correctement (je n'ai pas de message d'erreurs) mais il n'apparaît pas le collage!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil3.Range("A12:A12").PasteSpecial

Ca veut bien dire collage dans la feuille 3 à la ligne 12 dans la colonne A?

[Drost]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("feuil3").select
Range("A12").select
Selection.pastespecial
Operation = xlPasteSpecialOperationNone

[Papillon34]

Super ça fonctionne juste un autre petit détail ça me colle une ligneen plus!
La première (A12) il n'y a rien marqué et mon information est sur la ligne en dessous (A13)! Sachant que sur la lign A11 il y a un intitulé!

Je pense que ça vient de la copie quand je copie la première ligne celles où il y a mes flèches pour filtrer!

[Drost]

C'est très bizarre cela doit probablement venir de la selection au moment de la copie... Tu n'aurais pas fussioner les cellules des 2premieres lignes par hasard?
Etonnant aussi que cela colle au dessus de ta cellule A12...

[Papillon34]

Non je n'ai rien fusionner.

Je t'explique comment j'ai procédé pour mettre le filtre.

J'ai importer une balance qui aller de la ligne 1 à X,
J'ai insérer une ligne qui est devenu la 1 et la j'ai mis mes flèches pour le filtre.

C'est pas à cause de Cells(1,1)?
Je te dis ça par hasard je ne sais pas a quoi ca fait référence...

Par contre le collage se fait bien à partir de la cellule A12 mais tout est décalé d'une ligne

[Drost]

Cells(1,1).select Selectionne la cellule de la ligne 1 et de la colonne 1 soit A1... (le premier chiffre est la ligne le second la colonne)
Donc la copy selectionne a partir de A1

[Papillon34]

Il copie bien la cellule 1 où il y a mes flèches pour les filtres!

Comment je peux faire alors qu'il me copie que les données filtrer mais pas la une?
Et si on mets cells ligne 2 colonne 1 ca peut fonctionner?

[Drost]

fait un print screen de ton collage (Alt + Impr Ecran)
je regarde d'ou peut provenir l'erreur et met ton code aussi.

[Papillon34]

Donc j'ai modifié il me prend bien la ligne de donnée mais pas entièrement il me prend da An à Bn au lieu de An à Dn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Transfert_donnees_Click()
Windows("Balance holding.xls").Activate
    Sheets("Feuil1").Select
    Selection.AutoFilter Field:=1, Criteria1:="=70601000", Operator:=xlAnd
    Cells(2, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
Windows("Ventilation des charges.xls").Activate
    Feuil1.Range("A12:A12").PasteSpecial
    Operation = xlPasteSpecialOperationNone

[Drost]

Cela est peut etre liés que les cellules en Cn ne sont pas remplis...

[Papillon34]

Ouil la cellule Cn n'est pas rempli mais la Dn si... mais j'ai essayé dans un autre cas c pareil et pourtant en Cn il ya des nombres!!!

[Papillon34]

En faite il faudrait une formule qui prenne en compte An Bn Cn et Dn même si dans Cn ou Dn ou dans les deux il n'y a pas de données!

[Drost]

En fait ce la vient du Range(Selection, Selection.End(xlToRight)).Select
qui est en fait le Shift + ctrl + Fleche a droite et s'arrete donc a la derniere cellule pleine.
Soit il faut que tu te debrouille pour que Cn pour que tu puisse selectionner les titres jusqu'a Dn
Soit tu fait deux fois Range(Selection, Selection.End(xlToRight)).Select^^

[Papillon34]

J'ai fait les deux fois range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Windows("Balance holding.xls").Activate
    Sheets("Feuil1").Select
    Selection.AutoFilter Field:=1, Criteria1:="=70601000", Operator:=xlAnd
    Cells(2, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
Windows("Ventilation des charges.xls").Activate
    Feuil1.Range("A12:A12").PasteSpecial
    Operation = xlPasteSpecialOperationNone

Mais ça fonctionne pas!
Et la deuxième chose que tu m'as dite je n'ai pas compris ce que tu voulais que je fasse...

[Drost]

Peut tu envoyer ton fichier allégé si il est encore trop lourd en .zip je regarde ca en 2 - 2

[Drost]

Oki je viens de voir d'ou vienne les erreurs^^

Il te faut des intituler dans tes colonnes !

Compte Libellé Titre C Titre D

Apres tu pourras faire sans probleme pour ta selection!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Cells(1, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

Cdlt
Drost

[Papillon34]

Quand je fais comme tu m'as dit il me prend Compte, Libellé, Débit et Crédit...

[Drost]

Je viens d'essayer ton fichier et ca marche pas mal il ya juste la premiere ligne du tableau a supprimer pour que tes calculs se fassent correctement...

[Papillon34]

J'ai masqué la ligne où apparaît Compte, Libellé,...