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 :

Userform : Copier la valeur sélectionnée d'une liste dans un label(caption) [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2016
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2016
    Messages : 4
    Par défaut Userform : Copier la valeur sélectionnée d'une liste dans un label(caption)
    Bonjour à tous,

    Aujourd'hui j'ai un problème lors de la création d'un nouveau formulaire :
    En faites sur ma liste à choix multiple, j'aimerais recopier les valeurs sélectionnées (au nombre de 5) dans mes différents label (également au nombre de 5).

    J'ai bien essayé plusieurs méthode telle que celle-ci dessous, mais les résultats sont inexistant.

    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
    Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim a, b, c, d, e As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True And a = "" Then
        a = ListBox1.Selected(i)
        Else
        If ListBox1.Selected(i) = True And a <> "" Then
        b = ListBox1.Selected(i)
        Else
        If ListBox1.Selected(i) = True And b <> "" Then
        c = ListBox1.Selected(i)
        Else
        If ListBox1.Selected(i) = True And c <> "" Then
        d = ListBox1.Selected(i)
        Else
        If ListBox1.Selected(i) = True And b <> "" Then
        e = ListBox1.Selected(i)
        End If
        End If
        End If
        End If
        End If
    Next
        Label1.Caption = a
        Label2.Caption = b
        Label3.Caption = c
        Label4.Caption = d
        Label5.Caption = e
    End Sub
    Je tient a préciser que toutes les valeurs de la liste sont des chaines de caractère.
    Je vous remercie par avance pour votre aide.

  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
    Je tient a préciser que toutes les valeurs de la liste sont des chaines de caractère
    Tu m'étonnes ... (une listbox ne peut contenir QUE des chaînes de caractères)
    Pour le reste : tu ne sembles pas avoir compris la logique de If .. Then ... Else .. else ...
    La première occurrence vérifiée fait que les autres vérifications ne sont pas faites .

  3. #3
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2016
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2016
    Messages : 4
    Par défaut
    Je t'avoue que cette "chose affreuse" que j'ai réalisé en dernier recours, je n'y croyais pas plus que ça, mais bon j'ai tenté quand même au cas où quelqu'un aurait une idée à partir de là. Enfin bref, j'ai essayé d'autres chose pour déjà en copier une seule, mais sans succès.

    D'où la recherche et la demande d'aide sur le forum

    Merci.

  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
    Je vais personnellement te répondre de cette manière et te laisser travailler :
    Liminaire : nous ne savons pas si tes contrôles sont sur une feuille de calcul ou dans un userform.
    Supposons qu'ils soient sur un userform :
    - la collection controls contient tous les contrôles
    - on peut se référer au label Label3 ainsi :
    - Tes variables tremplin a, b, etc ... sont inutilement encombrantes
    - commence par parcourir tous tes labels et efface leur contenu
    - définis une variable n et initialise-la à 1
    - parcours les articles de ta listbox et
    ----- chaque fois que l'un d'entre eux est sélectionné :
    ---------- donne sa valeur au label Controls("Label" & n)
    ---------- incrémente n de une unité .
    Vas-y d'abord, s'il te plait..

  5. #5
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2016
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2016
    Messages : 4
    Par défaut
    Merci pour la réponse unparia,

    C'était clair, je vais essayé de faire ce que tu a dis.

    Bonne journée à toi.

  6. #6
    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
    J'ajoute ceci YacineHib :
    dupliquer dans des labels ce qui existe déjà dans la listbox n'a aucun intérêt pratique réel.
    Je suppose donc qu'il ne s'agit-là que d'un exercice.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 21/11/2008, 11h38
  2. Réponses: 2
    Dernier message: 25/03/2008, 10h49
  3. Réponses: 2
    Dernier message: 25/05/2007, 08h31
  4. Réponses: 9
    Dernier message: 04/05/2007, 15h48
  5. Réponses: 4
    Dernier message: 03/05/2007, 20h27

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