PK demande:
J'ai une feuille de calcul où j'entre des valeurs. En cliquant sur un bouton de macro, je veux que les valeurs ou ses résultats calculés soient ajoutés à une feuille ou un fichier différent.
Bonne question. Supposons que les valeurs se trouvent dans les cellules C10 et E12 de Sheet1 et que vous souhaitez les ajouter à la ligne suivante de Sheet2.
Le vrai truc ici est le code pour trouver la ligne suivante sur Sheet2. En commençant à la dernière ligne de Sheet2 (A65536), puis en utilisant .End (xlup), vous trouverez la dernière ligne avec des données dans la colonne A. L'ajout de 1 à cette ligne vous dirigera vers la ligne suivante pour les données de Sheet2. Utilisez ce code:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
