Macro : Incrémenter dans une nouvelle ligne

[mletourn]

Bonjour à tous,

Dans mon fichier excel, j'ai une "Feuille1" -> qui est une feuille de référence dans laquelle on saisi des données et une "Feuille2"-> dans laquelle les données de la feuille1 sont importées.

Voici ce que je cherche à faire :

De ma "Feuille1"/"A1" je veux importer la valeur de cette cellule dans ma "Feuille2"/"A1". ça je sais coder la macro avec un boutton.

Mais sachant que la valeur de la cellule dans la "Feuille1"/"A1" change suite à une nouvelle saisie, je veux incrémenter et ainsi saisir la nouvelle valeur de la cellule sur la ligne suivante dans "Feuille2"/"A2".

Merci,
Dites moi si vous voulez que je vous envoi l'excel pour mieux comprendre

 

[Robert]

Re : Macro : Incrémenter dans une nouvelle ligne

Bonjour Mletourn, bonjour le forum,

Peut-être comme ça :

Sub Macro2()
Dim dest As Range 'déclare la varialbe dest (cellule de DESTination)

With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    'définit la cellule de destination dest (A1 si A1 est vide, sinon la première ligne vide rencontrée)
    Set dest = IIf(.Range("A1").Value = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With 'fin de la prise en compte de l'onglet "Feuil2"
Sheets("Feuil1").Range("A1").Copy dest 'copie A1 et le colle dans dest
End Sub