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 :

listbox -> textbox multiligne -> cellules


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    amateur
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : amateur
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut listbox -> textbox multiligne -> cellules
    Bonsoir
    je suis sous vba excel 2016

    j'ai affecté des articles dans une listebox quand on sélectionne certains de ces articles ils s'affichent dans une textbox multiligne.
    en cliquant sur le bouton "OK" je voulais qu'ils s'affichent dans des cellules les unes au-dessous des autres
    => le problème c'est qu'ils s’affichent dans la même cellule.

    voici mon code au complet
    Merci pour votre aide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
     
     
    Option Explicit
     
    Private Sub CommandButton1_Click()
     
    Dim monTxt As String, i As Integer, s As Integer
    monTxt = Me.TextBox1.Text ' recupere tous ce qui a été taper dans le textbox
     
    For i = 15 To NbOc(Me.TextBox1.Text, Chr(10)) 'pour i = 1 a nombre de fois ou il y a eu "Entrée " de taper dans la textbox
        Cells(i, 1) = Left(monTxt, InStr(monTxt, Chr(10)) - 1) ' recupere le texte debut le début jusqu'a la premiere occurence de la touche "entree"
     
        monTxt = Right(monTxt, Len(monTxt) - InStr(monTxt, Chr(10))) ' redécoupe la chaine à partir de la premiere touche "Entree" jusqu'a la fin
        If i = 29 Then Exit For ' si on arrive à l'avant derniere ligne alors on sort prématurement de la boucle et s'il y avait
        ' plus de 30 lignes alors toutes les lignes restantes seront dans la ligne 30.
    Next i
    Cells(i, 1) = monTxt ' inscrit la derniere ligne du textbox
     
    Unload Me
    End Sub
    Function NbOc(Chaine As String, Ch As String, Optional RC As Integer = 1) As Long
    ' Function de Yocrita
      NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , RC))) / Len(Ch)
     
    End Function
    Private Sub ListBox1_Change()
    If ListBox1.ListIndex <> -1 Then
     TextBox1 = ""
     Dim i As Integer, sep As Variant
     
     For i = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(i) = True Then
       TextBox1 = TextBox1 & sep & ListBox1.List(i)
       If sep = "" Then sep = Chr(10)
      End If
     Next i
    End If
    End Sub
     
     
    Private Sub UserForm_Initialize()
    Worksheets("Projet 1").Activate
    ListBox1.Clear
    Dim i As Integer
     
    For i = 28 To 51
            ListBox1.AddItem Cells(i, 4)
        Next
     
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Quelle drôle d'idée, que celle de passer de la listbox à une textbox, puis de la textbox à des cellules !
    Alimente donc tes cellules DIRECTEMENT depuis la listbox. Et ceci : que tu veuilles ou non afficher par ailleurs dans une textbox (à quelles fins, d'ailleurs ? Je n'en vois aucune de valable).

  3. #3
    Membre régulier
    Homme Profil pro
    amateur
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : amateur
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut
    bonsoir unparia
    Je débute avec VBA
    le truc c'est que j'ai fait une succession de userform qui se lance depuis this workbook en ouvrant le fichier (normal jusque là)
    je dois récupérer le résultat a chaque fois du userform quant il fini
    dans ce cas je ne dois pas récupérer toute la listbox mais que les éléments sélectionnés et c'est une façon détourné que j'ai trouver en m'aidant de ce qui a déjà était fais sur les forum.

    si tu as une idée comment récupérer que les élément sélectionner de la listbox dans les cellules je suis preneur.
    J'ai mis une photo en pièce jointe


    Je te remercie pour cette aide préciseuseNom : Sans titre.jpeg
Affichages : 657
Taille : 616,3 Ko

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    dans ce cas je ne dois pas récupérer toute la listbox mais que les éléments sélectionnés et c'est une façon détourné que j'ai trouver en m'aidant de ce qui a déjà était fais sur les forum.
    tu devrais réfléchir plutôt que de t'aider de ce que tu "trouves sur les forums", sans d'ailleurs le comprendre (très manifestement)
    Que fais ton code, sinon précisément identifier les articles sélectionnés pour les écrire dans la textbox ??????
    Et alors ? --->> écris-les donc directement dans tes cellules, ces articles sélectionnés.

  5. #5
    Membre régulier
    Homme Profil pro
    amateur
    Inscrit en
    Janvier 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : amateur
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Janvier 2015
    Messages : 8
    Par défaut
    Merci encore
    j'ai trouvé l'erreur du code
    il fallait changer de colone
    parce que le i commence pour les ligne selectionné , et pour les cellules

    a bientot

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 03/08/2006, 08h03
  2. [C#] [1.1] Parcourir ligne d'un textbox multiligne
    Par Sup@Lou dans le forum Windows Forms
    Réponses: 2
    Dernier message: 01/08/2006, 12h06
  3. [VBA-E] Défilement auto textbox multiligne ?
    Par Ender dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/07/2006, 16h11
  4. [VB6] Problème de textbox multiligne qui génére une erreur
    Par bb62 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 20/02/2006, 16h21
  5. [VB6] Découper un mot dans une textBox multiligne?
    Par bb62 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 09/02/2006, 11h26

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