Microsoft 365 Modifier le code

Marvin57 · 1 Juin 2023

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 · 1 Juin 2023

Bonjour Marvin,
Cette solution serait elle possible ?

VB:

    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.

sylvanu · 1 Juin 2023

Bonjour Marvin,
Cette solution serait elle possible ?

VB:

    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 · 1 Juin 2023

sylvanu à dit:
Bonjour Marvin,
Cette solution serait elle possible ?

VB:

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

Microsoft 365 Modifier le code

Marvin57

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Discussions similaires