Discussion :

[sunstrike69]

Bonjour,

Je rencontre actuellement le même problème que dans cette discussion. Comme aucune solution n'a été trouvée, je me permets de poster mon code en espérant que quelqu'un puisse m'aider :

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("Données").Select
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=Cells(6, 3)
 
Columns("D:D").Select
Selection.Copy
 
Sheets("Calcul").Select
Cells(9, 3).Select
ActiveSheet.Paste

Deuxième essai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sheets("Données").Select
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=Cells(6, 3)
 
For Each c In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Range("E" & c & "", "I" & c & "").Select
Next
 
Selection.Copy
Sheets("Calcul").Select
Cells(9, 3).Select
ActiveSheet.Paste

Merci d'avance

[iceman7592]

La réponse est très simple tu ne peux pas sélectionner une colonne et vouloir la coller à partir d'une cellule. La taille de la zone de destination doit être égale à la taille de la zone de départ.
Soit tu codifies pour trouver la zone exacte de départ type "D4 : Dxxx" et tu peux alors copier cela en ne sélectionnant qu'une cellule d'une autre feuille. soit tu copie colonne pour copier sur une colonne.

[aalex_38]

Bonjour,

Au lieu de faire ça :

Code :

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

taille = WorksheetFunction.CountA(Columns("B:B"))

tu peux faire

Code :

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

taille = Cells(65536, 2).End(xlUp).Row

qui te donnera le dernier numéro de ligne renseigné.

sunstrike69, je ne suis pas modérateur, mais pourquoi ne pas ouvrir une autre discussion ?