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

Fermé
blackpearl35 - 14 déc. 2010 à 18:34
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 6 janv. 2011 à 09:45
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

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
15 déc. 2010 à 09:05
Range("B1").Select
Selection.End(xlDown).Offset(1,0).select

bon courage pour la suite
4
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!
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
6 janv. 2011 à 09:45
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
0