Microsoft 365 Copier tout le contenu d'une listbox multicolonne dans une autre listbox (à l'identique)

[SPGoder]

Bonjour à tous
Tout est dans le titre.
J'ai une list boxbox sur une page d'un multipage, qui s'alimente suivant différent choix, et je souhaite la dupliquer sur une autre listbox (situé sur une autre page du multipage)
Voici le code que j'utilise (la listbox page1 s'alimente correctement)

        With ListBox_Page1
            .ColumnCount = 10
            .ColumnWidths = "0;0;0;110;130;130;0;60;60;0"
            .ListStyle = 0
            .MultiSelect = 0
        End With

        With ListBox_Page2
            .ColumnCount = 10
            .ColumnWidths = "0;0;0;110;130;130;0;60;60;0"
            .ListStyle = 0
            .MultiSelect = 0
        End With

        MsgBox ListBox_Facture_Locataire.ListCount  'provisoire, pour vérifier que la listbox origine ne soit pas vide

   Dim k As Integer, x As Integer
 
        For k = 0 To ListBox_Page1.ListCount - 1
            For x = 0 To 9
                ListBox_Page2.List(k, x) = ListBox_Page1.List(k, x)
             Next x
        Next k

J'ai donc un message d'erreur "impossible de définir la propriété list. Index de table propriété non valide" Mais l'aide à cette erreur me donne rien
Merci de toute aide qui pourra m'être apportée

 

[job75]

Bonjour SPGoder,

Avec un fichier pour tester ce serait quand même plus simple !

A+

 

[mapomme]

Bonjour @SPGoder 🙂

Essayez (pas testé puisque pas de fichier joint 😟) :

      ListBox_Page2.Clear
      ListBox_Page2.ColumnCount = ListBox_Page1.ColumnCount
      ListBox_Page2.List = ListBox_Page1.List
      ListBox_Page2.ColumnWidths = ListBox_Page1.ColumnWidths
      ListBox_Page2.ListStyle = ListBox_Page1.ListStyle
      ListBox_Page2.MultiSelect = ListBox_Page1.MultiSelect

 

[SPGoder]

Bonjour @SPGoder 🙂

Essayez (pas testé puisque pas de fichier joint 😟) :

      ListBox_Page2.Clear
      ListBox_Page2.ColumnCount = ListBox_Page1.ColumnCount
      ListBox_Page2.List = ListBox_Page1.List
      ListBox_Page2.ColumnWidths = ListBox_Page1.ColumnWidths
      ListBox_Page2.ListStyle = ListBox_Page1.ListStyle
      ListBox_Page2.MultiSelect = ListBox_Page1.MultiSelect

Comme je pensait que c'était une partie de code "classique" .je n'avait pas joint de fichier. Désolé
Je vais de ce pas en faire 1
merci de vos réponses, je teste en meme temps la solution proposée

 

[SPGoder]

Merci mapomme, cela fonctionne nickel
J'ai tester dans mon fichier original
Je joins un fichier simplifié pour l'exemple pour le cas où d'autres se poserai la question
Bonne journée à vous, et bravo pour la réactivité

 

[mapomme]

Re @SPGoder,

Merci pour le retour et pour le fichier 👍.


Bonjour @job75 🙂, @patricktoulon 🙂,