Descendre d'une cellule sur VBA (débutant)
blackpearl35
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
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
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
A voir également:
- Fonction offset vba
- Fonction si ou - Guide
- Fonction trier excel - Guide
- Fonction remplacer word - Guide
- Fonction find vba ✓ - Forum Excel
- Cette fonction n'est pas disponible actuellement tv lg - Forum TV & Vidéo
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!
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