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
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
Tout fonstionne correctement (je n'ai pas de message d'erreurs) mais il n'apparaît pas le collage!
Ca veut bien dire collage dans la feuille 3 à la ligne 12 dans la colonne A?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Feuil3.Range("A12:A12").PasteSpecial
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Sheets("feuil3").select Range("A12").select Selection.pastespecial Operation = xlPasteSpecialOperationNone
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!
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...
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
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
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?
fait un print screen de ton collage (Alt + Impr Ecran)
je regarde d'ou peut provenir l'erreur et met ton code aussi.
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
Cela est peut etre liés que les cellules en Cn ne sont pas remplis...
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!!!![]()
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!
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^^
J'ai fait les deux fois range :
Mais ça fonctionne pas!
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
Et la deuxième chose que tu m'as dite je n'ai pas compris ce que tu voulais que je fasse...
Peut tu envoyer ton fichier allégé si il est encore trop lourd en .zip je regarde ca en 2 - 2
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!
Cdlt
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
Drost
Quand je fais comme tu m'as dit il me prend Compte, Libellé, Débit et Crédit...
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...
J'ai masqué la ligne où apparaît Compte, Libellé,...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager