Discussion :

[Limace_hurlante]

Bonjour,

Désolé de vous embêter avec un problème si simple mais je ne comprend pas ou est mon erreur,

Je cherche à :
- copier des lignes triés,
- les insérer à un autre endroit.

Ça marche avec la copie mais pas avec l'insert ....

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Public FEE As Worksheet
'---------------------------------------------------------------------
Sub main()
 
Set FEE = ThisWorkbook.Worksheets(1)
 
Call Copiteur(FEE, "D0003", 6)
 
End Sub
'---------------------------------------------------------------------
Sub Copiteur(WKS As Worksheet, CodeACopier As Variant, ColloneATrier As Integer, Optional LigneDeDebut As Integer = 3)
 
'Je Rentre en mémoire la dernière ligne du tableau
Dim DerniereLigne As Integer
DerniereLigne = WKS.Cells(Rows.Count, 1).End(xlUp).Row
 
'Je filtre sur la feuille voulu, le code voulu dans la collone voulue
WKS.Cells.AutoFilter Field:=ColloneATrier, Criteria1:=CodeACopier
 
'Je copie les ligne encore visibles (mais pas les deux premieres ou il y a des textes d'entete
WKS.Rows(LigneDeDebut & ":" & WKS.Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
 
'Je colle les ligne copiées en fin de tableau
WKS.Rows(DerniereLigne + 1 & ":" & DerniereLigne + 1).PasteSpecial xlPasteAll ' <--- Ca ça marche
 
'J'insert les lignes copiées juste avant la dernière
WKS.Rows(DerniereLigne & ":" & DerniereLigne).Insert xlShiftDown  ' <--- Ca ça marche pas
 
'je désactive le filtre
WKS.Cells.AutoFilter
 
End Sub

[Phil Free]

Bonjour,

parce que la copie contient des cellules non contigus. Même à la main cela ne fonctionne pas. La preuve en est que l'option : insérer les cellules copiées
n’apparaît pas dans le menu contextuel dans ce cas de cellules non contigus.

il te faut passer par un collage dans une zone temporaire pour reprendre ensuite cette zone temporaire qui elle aura des cellules contigus.

Ou 2ieme solution que je préfère, tu prépares le collage en insérant préalablement la quantité de ligne vide qui correspond au nombre de ligne copiées.

A+

[Limace_hurlante]

Merci beaucoup Phil Free,

Je vais en effet insérer préalablement le bon nombre de ligne.

En revanche comment compter les lignes copiées ?

[Phil Free]

en ajoutant une variable :

Code :

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

Dim Maplage as Range

puis en ajoutant les lignes :

Code :

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

Set Maplage = WKS.Rows(LigneDeDebut & ":" & WKS.Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)

du coup tu peux obtenir le nombre de ligne comme ceci pour l'exemple car je vais te laisser implémenter le truc :

Code :

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

MsgBox Maplage.Rows.count

[unparia]

Bonjour
La méthode Range.copy copie parfaitement en continu, à partir de la cellule spécifiée par son paramètre destination une plage de cellules discontinues

[Phil Free]

Bonjour
La méthode Range.copy copie parfaitement en continu, à partir de la cellule spécifiée par son paramètre destination une plage de cellules discontinues

Bonjour unparia,

oui et comme le dirait Marc-L La méthode Range.SpecialCells est superflue car la methode range.copy ne prend en compte que les cellules visible et de plus comme tu le dis si bien

copie parfaitement en continu

Mon avis est que les gent qui viennent ici ne font pas tous l'effort d'essayer et d'apprendre avant de poster. Du coup je pense que l'on ne peu pas toujours casser les efforts de ceux qui comme Limace_hurlante et qui on travaillé leur sujet, en leurs reprochant une méthode moins bonne serte mais qui répond au besoin quand même. Mais ok je comprend déjà ta position qui est que le médiocre est l'ennemi de l'excellence. Pourtant il y bien un chemin semer d’embûches entre les deux. Et oui je suis encore sur ce chemin et ai encore beaucoup à apprendre mais je me soigne.

Amicalement

Philippe