Macro descendre d'une ligne

[angedemon02]

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

 

[Pierrot93]

Re : Macro descendre d'une ligne

Bonjour,

regarde peut être ceci :

Sheets(feuille).Cells(rows.count, 1).end(xlup)(2)  = Me.déchets.Text

bon après midi
@+

 

[angedemon02]

Re : Macro descendre d'une ligne

Bonjour Pierrot93,

J'ai essayer ta méthode mais cela ne fonctionne pas.
On se situe dans les lignes 65000 environ 😕
En outre, peux-tu m'expliquer pourquoi tu as mis un (2) à la fin ?

Bon après-midi

 

[Pierrot93]

Re : Macro descendre d'une ligne

Re,

le code pat de la dernière ligne de la feuille et remonte jusqu'à rencontrer une cellule pleine.... le (2) pour la cellule du dessous....

 

[angedemon02]

Re : Macro descendre d'une ligne

ok, merci pour l'explication.

Par contre, je pense qu'il ne prends pas en compte mon "feuille" car il m'indique une erreur...

 

[Pierrot93]

Re : Macro descendre d'une ligne

Re,

A priori il considère "feuille" comme un numéro d'index, si le nom il y a lieu de faire une conversion :

Sheets(CStr(feuille)).Cells(Rows.Count, 1).End(xlUp)(2) = Me.déchets.Text

 

[angedemon02]

Re : Macro descendre d'une ligne

Génial !!

Cela fonctionne parfaitement !

J'ai essayer de changer dans la déclaration mais je n'avais pas penser à la conversion !

Merci beaucoup pour ton aide !

Bon après-midi 😉