Descendre d'une cellule sur VBA (débutant)

[Fermé]
Signaler
-
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
-
Bonjour à tous,

Alors, voila je veux utiliser les macros, pour que lorsque je le souhaite, j'ai une séries de céllules qui va aller se coller en dessous d'un autre tableau.

Mais j'ai un problème car j'arrive à aller en bas du tableau avec (xldown) mais je n'arrive pas lui dire d'aller sur la ligne d'après, oui logique car si il colle mes infos à la fin du tableau il va supprimier les données qui sont déjà à la fin.. donc faudrait qu'il aille une ligne après.

Voici ma macros (simple ) actuelle :

Range("I121:L121").Select

Selection.Copy

Sheets("Données").Select

Range("B1").Select
Selection.End(xlDown).Select

a mon avis c'est ici que je dois rajouter un truc...

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False (oui c'est un collage spécial mais ca change rien)

Si des connaisseurs peuvent m'aider ce serait top :D

merci d'avance!
julien

1 réponse

Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
268
Range("B1").Select
Selection.End(xlDown).Offset(1,0).select

bon courage pour la suite
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

just pour te remercier de ta réponse.

J'ai trouvé une autre solution du coup je n'ai pas testé la tienne.
J'ai créé une variable au début, chose que j'avais oublié de faire et après ca s'est fait tout seul :) :

Dim NOligne As Byte
Sheets("Donnés").Select
NOligne = Range("B1").End(xlDown).Row + 1

et après j'ai recopier les cellules quoi.

merci!
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
268
C'est bon aussi!
NOligne te renvoie le nombre de ligne donc attention
il est préférable de déclarer en integer ou en Long
moi je préferai
Dim NOligne As Long