List box, remplir

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
batoine
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 9 décembre 2014
Version d'Excel : 2013 FR

Message par batoine » 21 avril 2015, 11:55

Bonjour,

Je suis en train d'utiliser une list box dans un UF. Je souhaite savoir si l'on peut nourrir les données d'une ligne (ayant plusieurs colonne) d'une list box à partir de données venant de différentes feuilles.

C'est à dire, j'ajoute un item dans la list box à partir d'une feuille1.
Je recherche ensuite la valeur de l'item dans une autre feuille (disons feuille2), puis grâce à un offset j'ajoute une autre donnée à la ligne de l'item.
'____________________ONGLET HISTORIQUE CHANTIER'_______________________________________________________________________________
'----on remplis l'onglet Historique chantier---------------------------

Dim Verif_Chantier As Range, Cell As Range, k As Integer, i As Integer, j As Integer, FoundCell As Range

With Workbooks("Bible de Prix.xlsm").Sheets("Affiliation2")
Me.ListBox1.Clear
derniereligne = Workbooks("Bible de Prix.xlsm").Sheets("Affiliation2").Range("C" & Rows.Count).End(xlUp).Row
    For k = 4 To derniereligne
        If Workbooks("Bible de Prix.xlsm").Sheets("Affiliation2").Cells(k, 3) = Me.Nom_Sous_Trait Then
            Me.ListBox1.AddItem Workbooks("Bible de Prix.xlsm").Sheets("Affiliation2").Cells(k, 3).Offset(0, -1).Value, i       'On ajouter le nom du chantier
            
            Set FoundCell = Workbooks("Bible de Prix.xlsm").Sheets("Chantiers").Range("E:E").Find(What:=Workbooks("Bible de Prix.xlsm").Sheets("Affiliation2").Cells(k, 3).Offset(0, -1).Value) 'on recherche le nom du chantier dans la feuille "Chantier"
            If Not FoundCell Is Nothing Then
                Me.ListBox1.AddItem FoundCell.Offset(, 2).Value, i & 1  'on ajoute la date du chantier à la list box sur la même ligne "i" et sur la colonne 2 numéroté 1
            End If
        End If
    Next k
End With
'----------------------------------------------------------------------

Merci d'avance !

Batoine
b
batoine
Membre habitué
Membre habitué
Messages : 111
Inscrit le : 9 décembre 2014
Version d'Excel : 2013 FR

Message par batoine » 29 avril 2015, 11:19

Petit up pour tenter d'avoir une réponse. Je suis bloquer et n'arrive pas à charger ces différentes données.


Un grand grand merci à ceux qui m'aideront !!

Cordialement,


Batoine
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • VBA Text Box / List Box
    par Ahah » 11 janvier 2018, 09:28 » dans Excel - VBA
    10 Réponses
    518 Vues
    Dernier message par Ahah
    16 janvier 2018, 14:17
  • Problème list box et check box
    par muratime » 17 janvier 2016, 21:06 » dans Excel - VBA
    21 Réponses
    1130 Vues
    Dernier message par stepaustras
    19 janvier 2016, 12:22
  • list box dynamique
    par oly111 » 3 novembre 2017, 21:22 » dans Excel - VBA
    4 Réponses
    631 Vues
    Dernier message par eriiic
    3 novembre 2017, 23:17
  • List Box multiselection
    par hugo.c » 31 mai 2016, 06:04 » dans Excel - VBA
    2 Réponses
    297 Vues
    Dernier message par hugo.c
    1 juin 2016, 10:12
  • List box question
    par oly111 » 31 octobre 2017, 00:05 » dans Excel - VBA
    3 Réponses
    192 Vues
    Dernier message par oly111
    31 octobre 2017, 15:51
  • Useform List box
    par naubin1 » 27 juin 2018, 16:07 » dans Excel - VBA
    25 Réponses
    523 Vues
    Dernier message par paritec
    4 juillet 2018, 08:56