bonjour le forum

Voila j'ai des données qui s'enregistre dans une feuille de calcule nommée TCOOLANT avec des texte box et des option button que j'ai renommé pour mes besoins

les textbox = VDM1 etc
les optionbutton = OPM1 etc

je cherche si c'est possible de simplifier mon code que voici

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sheets("TCOOLANT").Range("A65536").End(xlUp).Offset(1, 0).Value = CStr(VDM1)
 
    Sheets("TCOOLANT").Range("B65536").End(xlUp).Offset(1, 0).Value = CStr(VDM2)
       Sheets("TCOOLANT").Range("C65536").End(xlUp).Offset(1, 0).Value = CStr(VDM3)
        Sheets("TCOOLANT").Range("D65536").End(xlUp).Offset(1, 0).Value = CStr(VDM4)
 
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM1, "Liège", "")
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM2, "Jemeppe", "")
       Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", "")
    Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM4, "Jemeppe", "")
et ainsi de suite pour mes autres textbox et option buttons

d'avance merci pour votre aide