VBA macro copier/coller sous condition
Résolu/Fermé
A voir également:
- VBA macro copier/coller sous condition
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Excel cellule couleur si condition texte - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
1 réponse
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 306
24 mai 2011 à 15:46
24 mai 2011 à 15:46
Bonjour,
déjà tu peux enlever toutes les lignes
Ensuite, après avoir sélectionner ta feuille "Sélect", il faut récupérer le numéro de la dernière ligne remplie (on part de 65536 sous Office < 2007, de 1048576 pour 2007 et 2010) :
Du coup pour avoir la première ligne non remplie, il faut rajouter +1.
du coup ton code devient à partir de la sélection :
Ca devrait fonctionner.
Cordialement.
déjà tu peux enlever toutes les lignes
ActiveWindow.ScrollColumnqui ne font qu'alourdir le code.
Ensuite, après avoir sélectionner ta feuille "Sélect", il faut récupérer le numéro de la dernière ligne remplie (on part de 65536 sous Office < 2007, de 1048576 pour 2007 et 2010) :
Derlig = Range("B65536").End(xlUp).Row
Du coup pour avoir la première ligne non remplie, il faut rajouter +1.
du coup ton code devient à partir de la sélection :
Sheets("Synthése").Select
Derlig = Range("B65536").End(xlUp).Row +1
Cells(Derlig, 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maquette de saisie").Select
Ca devrait fonctionner.
Cordialement.
24 mai 2011 à 15:57
Merci pour la rapidité et surtout la qualité de la réponse