Re : Extraire plusieurs données selon 2 critères - VBA ou Matricielle ????????? Résol
Bonjour, je rencontre un petit soucis.Les checkbox jeudi, vendredi, samedi, dimanche et férié fonctionnent mais pas lundi, mardi et mercredi.
Voici mon code, si vous avez une idée???
Application.ScreenUpdating = False
Sheets("Sites").Activate
Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
Range("B65536").End(xlUp).Offset(1, 0).Value = ComboBox1
Range("C65536").End(xlUp).Offset(1, 0).Value = Format(TextBox2, "hh:mm")
Range("D65536").End(xlUp).Offset(1, 0).Value = Format(TextBox3, "hh:mm")
Range("E65536").End(xlUp).Offset(1, 0).Value = Format(TextBox4, "hh:mm")
Range("F65536").End(xlUp).Offset(1, 0).Value = Format(TextBox5, "hh:mm")
Range("G65536").End(xlUp).Offset(1, 0).Value = Format(TextBox6, "0.00")
Range("H65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Lundi = True, "Lundi", "")
Range("I65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Mardi = True, "Mardi", "")
Range("J65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Mercredi = True, "Mercredi", "")
Range("K65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Jeudi = True, "Jeudi", "")
Range("L65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Vendredi = True, "Vendredi", "")
Range("M65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Samedi = True, "Samedi", "")
Range("N65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Dimanche = True, "Dimanche", "")
Range("O65536").End(xlUp).Offset(1, 0).Value = IIf(Me.Ferie = True, "Férié", "")
Range("P65536").End(xlUp).Offset(1, 0).Value = ComboBox2
Application.ScreenUpdating = True
Amicalement