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
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