Discussion :

[manusp]

Bonjour,

Je bloque sur un problème, j'aimerais insérer des données de ma feuille active vers la feuille "suivis".
Il faudrait que les éléments se mettent à la suite des autres : Ligne 2 puis ligne 3 etc...

Je sais qu'il faut utiliser le code : ligne = cells(rows.count, 1).end(xlup).row + 1, mais malgré les tutos je ne comprends pas

Une explication ??
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Rectangleàcoinsarrondis2_Clic()
ActiveSheet.Range("A2:F2").Copy
Worksheets("Suivis").Range("B2").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Delete
Worksheets("suivis").Activate
End Sub

[tototiti2008]

Bonjour,

Que signifie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne = cells(rows.count, 1).end(xlup).row + 1

Cells renvoie 1 cellule (une seule) basé sur 2 paramètres, un numéro de ligne et un numéro de colonne
du type Cells(3,4) représentant la cellule D3

ici le numéro de ligne est Rows.count
Rows représente la collection des lignes d'une feuille, comme la feuille n'est pas précisée ça s'applique à la feuille active du classeur actif
Rows.Count renvoie donc le nombre de lignes de la feuille active

donc Cells(rows.count,1) veut dire la cellule dernière ligne de la feuille, colonne 1 (A)

pour .end(xlup), c'est l'équivalent du raccourcis clavier Ctrl+flèche haut, qui passe toutes les cellules vides ou remplies jusqu'à une rupture de contenu
on part donc de la dernière cellule de la colonne A et on fait Ctrl+flèche haut, qui nous amène dans la dernière cellule remplie de la colonne A
donc
.end(xlup).row
renvoie le numéro de ligne de la dernière cellule remplie colonne A
en ajoutant 1 (+1) on se retrouve donc dans la 1ère ligne vide en dessous des données existantes en colonne A