XL 2013 Sélectionner une plage jusqu'a la dernière cellule non vide

  • Initiateur de la discussion Initiateur de la discussion desmonts
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

desmonts

XLDnaute Occasionnel
Bonjour à toutes et tous,

J'ai un petit problème, j'ai reussi a bidouiller un code pour sélectionner a partir de la cellule A3 jusqu'a la dernière cellule non vide, et de copier cette sélection sur une autre page . Cela fonctionne sauf quand il n'y a que la cellule A3 qui est non vide, c'est a dire qu'a partir de A4 toutes les cellules sont vide. Auriez vous une astuce pour éviter le problème ?
Par avance merci de vos retour


C
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Synth").Select
Worksheets("W").Paste Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)
 
Merci beaucoup Chris,
cela fonctionne très bien, parcontre j'ai quelques cas ou même la cellule A3 sera vide et dans ce cas il me copie la cellule A2 (qui elle est non vide mais que je ne veux pas copié), tu n'aurais pas une astuce pour contourner ce pb et donc ne rien copié du tout ou que du vide ?
 
Bonjour

Dans ce cas imbrique dans un test :
Code:
If cells(3,1)<>""then
Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Copy _
Destination:=Worksheets("Synth").Cells(Rows.Count, 1).End(xlUp)(2)
end if
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
582
Réponses
6
Affichages
1 K
Retour