bonjour le forum

j'ai un petit soucis avec mon code, en effet dans un userform je récupère des données dans des textbox et des optionbuttons pour les insérer dans 2 feuilles excel et pour les autres pas

code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sheets("TCOOLANT").Range("C65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton55, "Liège", "")
    Sheets("transit").Range("F8").Value = IIf(OptionButton55, "Liège", "")
    Sheets("TCOOLANT").Range("C65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton57, "Jemeppe", "")
    Sheets("transit").Range("F8").Value = IIf(OptionButton57, "Jemeppe", "")
    Sheets("TCOOLANT").Range("D65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton58, "Liège", "")
    Sheets("transit").Range("F9").Value = IIf(OptionButton58, "Liège", "")
    Sheets("TCOOLANT").Range("D65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton59, "Jemeppe", "")
    Sheets("transit").Range("F9").Value = IIf(OptionButton59, "Jemeppe", "")
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton60, "Liège", "")
    Sheets("transit").Range("F10").Value = IIf(OptionButton60, "Liège", "")
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton61, "Jemeppe", "")
    Sheets("transit").Range("F10").Value = IIf(OptionButton61, "Jemeppe", "")
    Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton62, "Liège", "")
    Sheets("transit").Range("F11").Value = IIf(OptionButton62, "Liège", "")
    Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton63, "Jemeppe", "")
    Sheets("transit").Range("F11").Value = IIf(OptionButton63, "Jemeppe", "")
    Sheets("TCOOLANT").Range("I65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton64, "Liège", "")
    Sheets("transit").Range("I8").Value = IIf(OptionButton64, "Liège", "")
    Sheets("TCOOLANT").Range("I65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton65, "Jemeppe", "")
    Sheets("transit").Range("I8").Value = IIf(OptionButton65, "Jemeppe", "")
    Sheets("TCOOLANT").Range("J65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton66, "Liège", "")
    Sheets("transit").Range("I9").Value = IIf(OptionButton66, "Liège", "")
    Sheets("TCOOLANT").Range("J65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton67, "Jemeppe", "")
    Sheets("transit").Range("I9").Value = IIf(OptionButton67, "Jemeppe", "")
    Sheets("TCOOLANT").Range("K65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton68, "Liège", "")
    Sheets("transit").Range("I10").Value = IIf(OptionButton68, "Liège", "")
    Sheets("TCOOLANT").Range("K65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton69, "Jemeppe", "")
    Sheets("transit").Range("I10").Value = IIf(OptionButton69, "Jemeppe", "")
    Sheets("TCOOLANT").Range("L65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton70, "Liège", "")
    Sheets("transit").Range("I11").Value = IIf(OptionButton70, "Liège", "")
    Sheets("TCOOLANT").Range("L65536").End(xlUp).Offset(1, 0).Value = IIf(OptionButton71, "Jemeppe", "")
    Sheets("transit").Range("I11").Value = IIf(OptionButton71, "Jemeppe", "")
donc dans les lignes que j'ai mis en rouge ci dessus les données s'inscrive correctement dans ma feuille excel

pour les autres des fois oui et des fois non

y a t il une solution pour remédier au problème et simplifier éventuellement ce code

merci pour votre aide

petite précision

les valeurs venants des textbox s'enregistre correctement sur les deux feuilles et le probleme vient des valeur des optionbutton et je ne sais pas comment résoudre ce probleme