Bonsoir le forum, Juls, Valérie et Thierry...
Alors pour la réponse de Juls moi j'avais cette macro...
Sub SelectionNonVideEtColle()
critère = "<>" '<----------on peut modifier le critère
Sheets("Feuil1").Columns("A:A").AutoFilter 1, critère
Range("A2:A250").Select
Selection.Copy
AutoFilterMode = False
Worksheets("Feuil2").Activate
' Range("B5").Select <----------- si je mets çà erreur 400 !!??!!
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Le principe est similaire à la proposition de Valérie à savoir copier les cellules non vides et les coller sur une autre feuille...La différence vient que j'ai fait cela en incluant un filtre automatique au départ qui permet de selectionner les cases non vides par le critère
"<>"...
bon là n'est pas la question...Cette macro fonctionne tout comme celle de Valérie...Seulement y'a un problème auquel je ...
Lorsque j'insère dans la macro un
Range("XX").Select avant
ActiveSheet.Paste il m'arrive cette erreur :
Erreur 400
j'ai le même message actuellement avec la macro de Valérie qui contient aussi
Range("F1").Select...
Lorsque j'enlève ce Range dans les deux macros cela fonctionne !!??!! mais le "coller" ne se fait pas à l'endroit souhaité (par exemple en G8)
Alors j'ai essayé par différentes méthodes...mais j'ai l'impression que l'
ActiveSheet.Paste et désactivé s'il y a un range avant...
Comment faire pour permettre de coller la sélection de la feuille 1 à un endroit précis d'une cellule de la feuille 2 avec ces macros sans obtenir le message d'erreur ?
Actuellement la sélection se colle bien à l'endroit où la cellule est active (par exemple : si sur la feuill 2 la cellule active est en F1 le collage se fait à partir de F1, si la cellule active est en R5 le collage se fait à partir de R5...ainsi de suite...lol)
Vous voyez ce que j'veux dire ?...lol...y'a quelqu'un qui aurait le truc ?
Merci à vous...
A+ Vériland