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:
- Vba descendre d'une cellule
- Excel compter cellule couleur sans vba - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
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