Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Copier par VBA la ligne filtrée dans le bas du tableau

LEIYAZ

XLDnaute Nouveau
Bonjour,

J'ai un souci sur un fichier Excel.

Je souhaites pouvoir automatiser la copie des données de la ligne que j'ai filtrée et les coller en bas de mon tableau pour avoir deux lignes identiques mais à laquelle je change le prestataire.

Sauf que je n'arrive pas à bien utiliser le code VBA pour faire cela. Voici un exemple de code que j'avais indiqué :

VB: 
Sub Copier_Ligne_Filtree()

' COPIE REFERENCE


Sheets("Feuille Test").Select
Range("C7").Select
SendKeys ("{DOWN}")
Selection.Copy
SendKeys ("{DOWN}")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Mais cela ne fonctionne pas car rien ne se copie..

Je vous joint le fichier crée en test en PJ de ce message.

Merci par avance pour vos retours
 

Pièces jointes

  • FICHIER TEST.xlsb
    19.3 KB · Affichages: 13
Solution
Bonjour @Phil69970, le forum,

J'ai trouvé la solution, j'ai simplement ajouté à celui de @Phil69970 un code permettant de masquer et démasquer la colonne :

VB: 
Sub Copier_Ligne_suivant_DPI()
Dim Derlig%
Derlig = Range("B65536").End(xlUp).Row

Columns("F:G").EntireColumn.hidden = False

Range("B14:U" & Derlig).SpecialCells(xlCellTypeVisible).Copy Range("B" & Derlig + 1)

Columns("F:G").EntireColumn.hidden = True

End Sub

Merci à @Phil69970 pour le 1er code qui fonctionne parfaitement
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour @LEIYAZ, le forum

Si tu nous expliques :
Quel est le critère de filtre, dis autrement ou tu prends l'info du critère ?
Après tu filtres les données et tu copies la ligne filtrée ==> Il y en a toujours qu'une ou il peut y en avoir plusieurs lignes filtrées ?
Tu les copies à quel endroit ?

@Phil69970
 
Vote positif 0 Vote négatif

LEIYAZ

XLDnaute Nouveau
Bonjour @Phil69970,

Mes excuses pour la réponse tardive..

Le critère du filtre sera déterminé par moi-même suivant quel numéro de référence interne je devrai copier, la ligne sera déjà filtrée suivant mon critère avant d'exécuter la macro (exemple je souhaite dupliquer la référence interne DPI0560, je filtre mon tableau sur la réf DPI0560 et j'exécute la macro de duplication.
Il n'y aura donc toujours qu'une seule ligne filtrée.

Je pensais à la copier en dessous de la ligne filtrée car cela correspond en général à la première ligne vide après le tableau.

Merci d'avance
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @LEIYAZ, le forum

Si j'ai compris tu filtres ta ligne avec le critère que tu veux et une fois la ligne filtrée tu veux la copier après la fin fin de tableau MAIS pas dans le tableau.

Je te propose ceci :
VB: 
Sub Copier_Ligne_Filtree()
Dim Derlig%
Derlig = Range("B65536").End(xlUp).Row
Range("B8:J" & Derlig).SpecialCells(xlCellTypeVisible).Copy Range("B" & Derlig + 3)
End Sub
*La ligne filtrée sera copiée à la 3eme ligne après la fin du tableau
*Si tu veux copier sur une ligne plus bas il faut modifier ==> Derlig + 3 ==> le 3 correspond à la 3eme ligne après la fin du tableau

Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif

LEIYAZ

XLDnaute Nouveau
Bonjour @Phil69970, le forum,

La solution fonctionne sur le fichier test, j'au juste modifié la partie Range en indiquant :
VB: 
Range("B8:J" & Derlig).SpecialCells(xlCellTypeVisible).Copy Range("B" & Derlig + 1)
Ceci afin que la ligne copiée apparaisse à la suite du tableau.

Maintenant je l'ai essayé sur mon tableau de suivi sur lequel je souhaitais la macro, mais étant donné que j'ai des colonnes masquées, cela ne copie pas correctement. Les informations sont décalées..

Exemple dans le fichier test joint, j'ai masqué les colonnes E et F et les informations sont décalées à partir de la ligne D quand je copie.

Ya t-il une solution pour éviter ce décalage ?

Merci d'avance
 

Pièces jointes

  • FICHIER TEST.xlsb
    19.8 KB · Affichages: 7
Vote positif 0 Vote négatif

LEIYAZ

XLDnaute Nouveau
Bonjour @Phil69970, le forum,

J'ai trouvé la solution, j'ai simplement ajouté à celui de @Phil69970 un code permettant de masquer et démasquer la colonne :

VB: 
Sub Copier_Ligne_suivant_DPI()
Dim Derlig%
Derlig = Range("B65536").End(xlUp).Row

Columns("F:G").EntireColumn.hidden = False

Range("B14:U" & Derlig).SpecialCells(xlCellTypeVisible).Copy Range("B" & Derlig + 1)

Columns("F:G").EntireColumn.hidden = True

End Sub

Merci à @Phil69970 pour le 1er code qui fonctionne parfaitement
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
337
gwenn49
G
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
270
robpellan52
R
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
123
Francky79
F
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
445
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
611
TooFatBoy
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
373
fanou06
F
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
312
Usine à gaz
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
396
Averell1976
A
X
  • Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
421
Xender
X
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…