Macro descendre d'une ligne

angedemon02

XLDnaute Junior
Bonjour à tous,

Après plusieurs recherches sur le forum je ne trouve pas mon bonheur...

Je vous explique, je cherche à récupérer une valeur texte dans un useform pour la placer dans une cellule d'une feuille. Pour chaque ajout d'une valeur, j'aimerais qu'il la note en dessous de la précédente. J'ai commencer un bout de code mais je suis bloquée...

Voici mon code :

Private Sub valider_Click()
Dim feuille, i As Integer


feuille = Year(Me.datedepart) 'pour avoir l'année récupérée dans un autre useform
i = ActiveCell.Offset(1, 0).Select 'je voudrais la faire commencer à la ligne 10 par exemple et de descendre d'une ligne à chaque fois qu'une nouvelle valeur est ajoutée.

Sheets(feuille).Cells(i, 1) = Me.déchets.Text

End Sub

Si quelqu'un a une idée ?

Merci pour votre aide
 

Discussions similaires

Réponses
5
Affichages
125

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T