Microsoft 365 Modifier le code

[Marvin57]

Bonjour tout le monde,

dans le fichier exemple ci-joint, on peut appeler le UserForm1 et on peut voir que dans la listbox il y a la séparation des milliers.

J'aimerai faire pareil pour UserForm2.
Celui-ci doit charger les données dans le tableau nommé "Tab_1"

Donc dans la listbox1 du UserForm2, il devrait mettre les séparations des milliers en colonne 7 et 8.

Pouvez-vous me modifier le code du UserForm1 de façon qu'il fonctionne dans le UserForm2 S'il vous plaît ?

Je vous laisse également le code " Private Sub UserForm_Initialize() " de mon fichier réel , le le place a la fin des codes dans le UserForm2.
Si vous pouviez m'adapter votre code à celui-ci.

Merci à vous d'avance pour votre aide.

Marvin57

 

[sylvanu]

Bonjour Marvin,
Cette solution serait elle possible ?

    tblBD = [Tab_1].Value
    For i = 2 To UBound(tblBD)
        tblBD(i, 7) = Format(tblBD(i, 7), "#,##,##0.00 €")
        tblBD(i, 8) = Format(tblBD(i, 8), "#,##,##0.00 €")
    Next i

Voir PJ ds Userform2.

 

[Marvin57]

Bonjour Marvin,
Cette solution serait elle possible ?

    tblBD = [Tab_1].Value
    For i = 2 To UBound(tblBD)
        tblBD(i, 7) = Format(tblBD(i, 7), "#,##,##0.00 €")
        tblBD(i, 8) = Format(tblBD(i, 8), "#,##,##0.00 €")
    Next i

Voir PJ ds Userform2.

Bonjour sylvanu,

cela me convient très bien 👍 .
Je vous Remercie beaucoup pour votre aide et le temps accordé à ma demande.

Bonne fin d'après-midi.

Marvin57