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
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
A voir également:
- Vba se positionner sur la dernière ligne vide
- Coeur vide ✓ - Forum Réseaux sociaux
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Aller à la ligne excel - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- Formaté mais pas de connexion Internet ? ✓ - Forum Matériel & Système
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
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