VBA Problème prochaine ligne vide pour copier des données

Fermé
margir4233 Messages postés 67 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 22 février 2023 - 3 juin 2016 à 18:34
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 5 juin 2016 à 00:11
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

3 réponses

PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 810
3 juin 2016 à 18:57
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)
0
margir4233 Messages postés 67 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 22 février 2023
3 juin 2016 à 20:26
Allo,
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
0
margir4233 Messages postés 67 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 22 février 2023
3 juin 2016 à 21:11
Je ne comprend pas, ça ne fonctionne plus!!!

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
0