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 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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
A voir également:
- Vba se positionner sur la dernière ligne vide
- Comment supprimer une page vide sur word - Guide
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Dernière version chrome - Accueil - Applications & Logiciels
- Mètre en ligne - Guide
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)
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 :
+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
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
J'ai fait la modification suivante:
Application.Goto Sheets("CommandeFacturation").Range("a7")
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Et ça fonctionne très bien!
Un grand merci :)
Margir4233
Je me suis mise en test et à ajouter des données (plusieurs commandes)
Et les données se copient par dessus, il y a vraiment un problème à trouver la dernière cellule vide, ça garde toujours la même valeur, au lieu d'aller après la sélection précédente