Déterminer la Rowsource d'une ListBox avec des variables
Bonjour,
Je sollicite votre aide à propos d'un problème que j'ai avec une listbox.
Je suis en train de créer un "planning" qui aura pour but de désigner les actions dans une journée. Mon classeur (Présent en pièce jointe) se décompose de tous les jours de l'année et s'étends sur un grand nombre de colonne.
J'ai une première macro qui va chercher la bonne date et la sélectionne.
J'aimerais que la rowsource de ma listbox suit le mouvement en allant chercher les colonnes présentes en dessous de la date sélectionnée...
Voilà ce que j'ai fait actuellement :
A = ActiveCell.Offset(1, 0).Column
B = ActiveCell.Offset(1, 15).Column
ListBox1.RowSource = "Planning!" & Range(Cells(1, A), Cells(1, B))Malheureusement ça ne fonctionne pas et je ne comprends pourquoi...
Est ce que quelqu'un pourrait avoir la gentillesse de m'aider ?
Merci d'avance !
PS : Un userform se lance sans la feuille au départ, il suffit d'appuyer sur "afficher le classeur"
Bonjour
Comme encore dit hier sur ce forum, évitez l'instruction et remplacez le ROWSOURCE par LIST (mon conseil comme toujours avec Rowsource, ... laissez tomber cette instruction, on toujours des soucis à un moment ou un autre)
1iere chose à corriger : Déplacer la macro Sub Appel_Date_Menu() dans un module. Mettez toujours les SUB dans un module.
Sur base de ce que j'ai compris, voici votre code à utiliser et dans lequel j'ai supposer qu'il y a toujours une valeur dans la colonne CODE
Sub Appel_Date_Menu()
Dim dt As Long
Dim colonne As Integer
Dim dlg as long
'CODE AJOUTER
'SAISIE DE LA BONNE DATE
Menu.TextBox1.Value = Menu.Label1.Caption
With Sheets("Planning")
dt = CDbl(DateValue(Menu.TextBox1.Value))
colonne = Application.Match(dt, .Rows("1:1"), 0)
dlg = .Cells(.Rows.Count, colonne).End(xlUp).Row
'SELECTION RANGE POUR LISTBOX1
Menu.ListBox1.List = .Range(.Cells(2, colonne), .Cells(dlg, colonne + 15)).Value
End With
End SubCe serait intéressant de mettre quelques données dans votre fichier.
Cordialement