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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 5 juin 2016 à 00:11
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 5 juin 2016 à 00:11
A voir également:
- Vba première ligne vide
- Coeur vide ✓ - Forum Réseaux sociaux
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Ligne occupée - Forum SFR
- Hors ligne instagram - Guide
- Aller à la ligne excel - Guide
3 réponses
PHILOU10120
Messages postés
6367
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 avril 2024
795
3 juin 2016 à 18:57
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)
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)
3 juin 2016 à 20:26
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
3 juin 2016 à 21:11
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