IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

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


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut données textbox vers listview et feuilles
    bonjour a vous tous
    bonne fin d'année a vous

    dans cette ligne de code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    UserForm1.ListView1.ListItems(UserForm1.ListView1.ListItems.Count).ListSubItems.Add , , UserForm1.txtArticle.Value=feuil1("c19.end(xlup)")
    mais sans succes

    Merci de votre aide
    Pascal

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Essais comme cela

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut
    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

  4. #4
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 124
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 124
    Par défaut
    Salut

    On peut simplifier un peu
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ThisWorkbook.Sheets("Feuil1").Cells(Rows.Count, "C").End(xlUp).Offset(1).Value = UserForm1.txtArticle.Value
    Par rapport à ton message précédent
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ThisWorkbook.Sheets("Feuil1").Range("C19").End(xlUp).Offset(1).Value = UserForm1.txtArticle.Value
    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  5. #5
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut
    bonsoir Qwazerty
    merci de ta réponse mis cela n'a rien changer, ça commence toujours a la ligne2
    cordialement

    Pascal

  6. #6
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 124
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 124
    Par défaut
    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

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  7. #7
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. données textbox vers cellules
    Par jo50160 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/01/2009, 20h36
  2. TextBox vers une autre feuille
    Par chrnoe dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 01/01/2009, 22h01
  3. Réponses: 6
    Dernier message: 31/05/2008, 18h05
  4. Données provenant d'un textbox vers gridview
    Par christi dans le forum ASP.NET
    Réponses: 1
    Dernier message: 29/01/2007, 14h05
  5. Réponses: 2
    Dernier message: 18/12/2006, 19h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo