paramètre "Rowsource" a modifier avec la macro ?

[Fab57330]

Bonsoir,
Je tente d'inclure des données dans une liste, cependant via ma macro, tel que :

BASIC_Fr.Menu_ville_end_liste.RowSource = "DATAS!J4:J9"

Cependant, ça ne fonctionne pas... Ca m'affiches une erreur.
Au préalable, voici mon contexte :

J'ai une liste de donnée qui augmente en taille en fonction du temps (jours). J4 sera toujours le début de ma liste. J9 ne sera pas toujours la fin de ma liste... J'ai donc fait ainsi :

    Sheets("DATAS").Select
        Range("J65536").Select
        Range(Selection, Selection.End(xlUp)).Select
        fin = ActiveCell.Row
        BASIC_Fr.Menu_ville_end_liste.RowSource = "DATAS!J4:J" & fin

Cependant, pareil, ca ne fonctionne pas... Une idée SVP?

Merci d'avance,
Fab.

 

[david84]

Re : paramètre "Rowsource" a modifier avec la macro ?

Bonsoir,
pourquoi passer par Row.source ?
Pour définir ta plage, peut-être comme ceci :

Sub test()
Dim MaPlage As Range
Set MaPlage = Range("J4", Range("J" & Rows.Count).End(xlUp))
MsgBox MaPlage.Address
End Sub

A+

 

[Staple1600]

Re : paramètre "Rowsource" a modifier avec la macro ?

Bonsoir à tous, re david84 (même questionnement que toi quant à Rowsource )

Cependant, pareil, ca ne fonctionne pas... Une idée SVP?

Oui
LA FAQ d'XLD
https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/

 

[Fab57330]

Re : paramètre "Rowsource" a modifier avec la macro ?

Bonjour à tous.
Aprés quelques petites recherches, voici ce que j'ai réalisé, qui fonctionne parfaitement d'ailleurs :

        For Each Cell In Sheets("DATAS").Range("J4:J" & fin)  'On rempli la liste des villes
            BASIC_Fr.Menu_ville_liste.AddItem (Cell.Value)
        Next Cell

Avec "fin" étant la dernière ligne de donnée de la colonne contenant la liste des valeurs a mettre dans la liste.

Merci encore de l'aide,
Fab.

 

[Robert]

Re : paramètre "Rowsource" a modifier avec la macro ?

Bonjour le fil, bonjour le forum,

tu aurais pu éviter la boucle avec :

BASIC_Fr.Menu_ville_liste.List = Sheets("DATAS").Range("J4:J" & fin).Value