données textbox vers listview et feuilles

bonjour a vous tous
bonne fin d'année a vous:zoubi:

dans cette ligne de code

Code:

---

UserForm1.ListView1.ListItems(UserForm1.ListView1.ListItems.Count).ListSubItems.Add , , UserForm1.txtArticle.Value

---

qui fonctionne a merveille je voudrais y ajouter une option d'envoi de la meme valeur en feuil1 cell C19 End(xlUp)j'ai bien essayer

Code:

---

UserForm1.ListView1.ListItems(UserForm1.ListView1.ListItems.Count).ListSubItems.Add , , UserForm1.txtArticle.Value=feuil1("c19.end(xlup)")

---

mais sans succes:cry:

Merci de votre aide
Pascal

Bonjour,

Essais comme cela

Code:

---

1 2	UserForm1.ListView1.ListItems(UserForm1.ListView1.ListItems.Count).ListSubItems.Add , , UserForm1.txtArticle.Value Sheets("Feuil1").Range("C" & sheets("Feuil1").Range("C65536").end(xlup).row +1).Value = UserForm1.txtArticle.Value

---

bonsoir Jérome
merci beaucoup mais j'aurais préféré que l'ajout dans feuil1 se fasse a partir de la ligne 19
merci d'avance et encore bonne fin d'année
Pascal

Salut

On peut simplifier un peu

Code:

---

ThisWorkbook.Sheets("Feuil1").Cells(Rows.Count, "C").End(xlUp).Offset(1).Value = UserForm1.txtArticle.Value

---

Par rapport à ton message précédent

Code:

---

ThisWorkbook.Sheets("Feuil1").Range("C19").End(xlUp).Offset(1).Value = UserForm1.txtArticle.Value

---

++
Qwaz

bonsoir Qwazerty
merci de ta réponse mis cela n'a rien changer, ça commence toujours a la ligne2
cordialement

Pascal

Salut

Je crois que tu n'as pas bien compris l'utilité du end(xlup), il te permet en partant d'une cellule de simuler l'utilisation de la combinaison de touches Ctrl+FlecheHaut.

Comment tes données sont elles organisées?
Y'a t il une entête à la ligne 18? (visiblement non)
Est-il possible d'en ajouter une?

Tu souhaites faire quoi exactement:
Toujours noté la valeur sur la cellule C19?
Noté toutes les valeurs les une derrière les autres en commençant à C19?

Si tu essai de comprendre un peu les codes qui t'ont été donnés plus haut, tu devrais pouvoir résoudre seul certain des cas.

++
Qwaz

bonjour qwazerty
merci pour ta réponse :ccool:
citation: Y'a t il une entête à la ligne 18? (visiblement non):calim2:
dans mon essai j'avais pas mis l'entete de feuille:oops: donc merci de m'y avoir fait penser:ccool:
cordialement

Pascal