VBA Problème prochaine ligne vide pour copier des données
margir4233
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Tout d'abord, merci à ceux qui nous aide sur ce forum, c'est très apprécié.
J'en suis à mon premier fichier avec des macros, je fais des bout de codes au fur et à mesure en lisant beaucoup sur ce site.
Là j'ai un problème.
Dans mes macros, je n'arrive pas à aller copier ma sélection sur la prochaine cellule vide.
Je pars de l'onglet CommandeClient. Une fois la commande complétée, je la copie dans l'onglet CommandeJour.
A la fin de la journée, je veux copier la commande du jour dans l'onglet CommandeFacturation.
Dans tous les cas, je n'arrive pas à me positionner sur la bonne cellule pour copier ma sélection.
Merci de votre aide
https://www.cjoint.com/c/FFdqDrIByIa
Tout d'abord, merci à ceux qui nous aide sur ce forum, c'est très apprécié.
J'en suis à mon premier fichier avec des macros, je fais des bout de codes au fur et à mesure en lisant beaucoup sur ce site.
Là j'ai un problème.
Dans mes macros, je n'arrive pas à aller copier ma sélection sur la prochaine cellule vide.
Je pars de l'onglet CommandeClient. Une fois la commande complétée, je la copie dans l'onglet CommandeJour.
A la fin de la journée, je veux copier la commande du jour dans l'onglet CommandeFacturation.
Dans tous les cas, je n'arrive pas à me positionner sur la bonne cellule pour copier ma sélection.
Merci de votre aide
https://www.cjoint.com/c/FFdqDrIByIa
3 réponses
-
Bonjour
Voici un bout de code qui devrait vous convenir
Selection.Copy
Sheets("xxxx").Select
Application.Goto Reference:="nom de la cellule de départ"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
1 copier les données
2 allez à la cellule en haut de la colonne (cellule nommé)
3 descendre fin bas (dernière cellule remplie)
4 activé la cellule vide(décaler de 1 vers le bas)
5 coller les informations (dans ce cas coller valeur)
-
Bonjour,
dernière cellule utilisée colonne A supposée toujours remplie :derlig=cells(rows.count,"A").end(xlup).row
+1 pour la ligne vide à utiliser
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci -
Bonjour à vous deux,
Je vous remercie de votre aide, j'étais passablement découragée hier!
Il semble y avoir plusieurs formules pour la même chose et dans mon cas, aucune ne fonctionnait après multiples tests.
J'essaie vos 2 méthodes.
Merci beaucoup!
