[XL-2007] données textbox vers listview et feuilles [Résolu]

[grisan29]

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

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

Merci de votre aide
Pascal

[jfontaine]

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

[grisan29]

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

[Qwazerty]

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

[grisan29]

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

Pascal

[Qwazerty]

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

[grisan29]

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

Pascal