pepsi
XLDnaute Occasionnel
Bonjour,
J'ai écrit ce code qui me permet, de cocher plusieurs case à cocher en fonction de 4 boutons radios.
J'ai 4 boutons radio qui entrainent 4 possibilités de scénarios de sélection des cases à cocher.
Mais bon code est très long, (bien que simple) et mouline quand je coche mes cases à cocher. (c'est le clic sur l'un des boutons radio qui déclenche la macro)
Comment je peux faire pour "l’accélérer" ? Merci d'avance pour vos conseils
J'ai écrit ce code qui me permet, de cocher plusieurs case à cocher en fonction de 4 boutons radios.
J'ai 4 boutons radio qui entrainent 4 possibilités de scénarios de sélection des cases à cocher.
Mais bon code est très long, (bien que simple) et mouline quand je coche mes cases à cocher. (c'est le clic sur l'un des boutons radio qui déclenche la macro)
VB:
Sub coche()
Application.ScreenUpdating = False
' Supprime les coches saisies dans les colonnes E et F
Dim CB As Excel.CheckBox
Dim S As Worksheet
Dim i&
Dim col&
Set S = ActiveSheet
For i& = 1 To S.CheckBoxes.Count
Set CB = S.CheckBoxes(i&)
col& = CB.TopLeftCell.Column
If col& = 5 Or col& = 6 Then CB.Value = False
Next i&
'//////// - CAS 1 \\\\\\\\\
If Worksheets("feuil2").Range("F40").Value = 1 _
And Worksheets("feuil2").Range("F43").Value = 1 Then _
Worksheets("feuil1").Range("E6").Value = False
Worksheets("feuil1").Range("F6").Value = False
Worksheets("feuil1").Range("E7").Value = False
Worksheets("feuil1").Range("F7").Value = False
Worksheets("feuil1").Range("E8").Value = False
Worksheets("feuil1").Range("F8").Value = False
Worksheets("feuil1").Range("E9").Value = False
Worksheets("feuil1").Range("F9").Value = False
Worksheets("feuil1").Range("E10").Value = False
Worksheets("feuil1").Range("F10").Value = False
Worksheets("feuil1").Range("E11").Value = False
Worksheets("feuil1").Range("F11").Value = False
Worksheets("feuil1").Range("E12").Value = False
Worksheets("feuil1").Range("F12").Value = False
Worksheets("feuil1").Range("E13").Value = False
Worksheets("feuil1").Range("F13").Value = False
Worksheets("feuil1").Range("E14").Value = False
Worksheets("feuil1").Range("F14").Value = False
Worksheets("feuil1").Range("E15").Value = False
Worksheets("feuil1").Range("F15").Value = False
Worksheets("feuil1").Range("E16").Value = False
Worksheets("feuil1").Range("F16").Value = False
Worksheets("feuil1").Range("E17").Value = False
Worksheets("feuil1").Range("F17").Value = False
Worksheets("feuil1").Range("E18").Value = False
Worksheets("feuil1").Range("F18").Value = False
Worksheets("feuil1").Range("E19").Value = False
Worksheets("feuil1").Range("F19").Value = False
Worksheets("feuil1").Range("E20").Value = False
Worksheets("feuil1").Range("F20").Value = False
Worksheets("feuil1").Range("E21").Value = False
Worksheets("feuil1").Range("F21").Value = False
Worksheets("feuil1").Range("E22").Value = False
Worksheets("feuil1").Range("F22").Value = False
Worksheets("feuil1").Range("E23").Value = False
Worksheets("feuil1").Range("F23").Value = False
Worksheets("feuil1").Range("E24").Value = False
Worksheets("feuil1").Range("F24").Value = False
Worksheets("feuil1").Range("E25").Value = False
Worksheets("feuil1").Range("F25").Value = False
Worksheets("feuil1").Range("E26").Value = False
Worksheets("feuil1").Range("F26").Value = False
Worksheets("feuil1").Range("E27").Value = False
Worksheets("feuil1").Range("F27").Value = False
Worksheets("feuil1").Range("E28").Value = False
Worksheets("feuil1").Range("F28").Value = False
Worksheets("feuil1").Range("E29").Value = True
Worksheets("feuil1").Range("F29").Value = False
Worksheets("feuil1").Range("E30").Value = True
Worksheets("feuil1").Range("F30").Value = False
Worksheets("feuil1").Range("E31").Value = False
Worksheets("feuil1").Range("F31").Value = False
Worksheets("feuil1").Range("E32").Value = False
Worksheets("feuil1").Range("F32").Value = False
Worksheets("feuil1").Range("E33").Value = False
Worksheets("feuil1").Range("F33").Value = True
Worksheets("feuil1").Range("E34").Value = False
Worksheets("feuil1").Range("F34").Value = True
Worksheets("feuil1").Range("E35").Value = False
Worksheets("feuil1").Range("F35").Value = False
Worksheets("feuil1").Range("E36").Value = False
Worksheets("feuil1").Range("F36").Value = False
Worksheets("feuil1").Range("E37").Value = False
Worksheets("feuil1").Range("F37").Value = False
Worksheets("feuil1").Range("E38").Value = False
Worksheets("feuil1").Range("F38").Value = False
Worksheets("feuil1").Range("E39").Value = False
Worksheets("feuil1").Range("F39").Value = False
Worksheets("feuil1").Range("E40").Value = False
Worksheets("feuil1").Range("F40").Value = False
Worksheets("feuil1").Range("E41").Value = False
Worksheets("feuil1").Range("F41").Value = False
Worksheets("feuil1").Range("E42").Value = False
Worksheets("feuil1").Range("F42").Value = False
Worksheets("feuil1").Range("E43").Value = False
Worksheets("feuil1").Range("F43").Value = False
Worksheets("feuil1").Range("E44").Value = False
Worksheets("feuil1").Range("F44").Value = False
Worksheets("feuil1").Range("E45").Value = True
Worksheets("feuil1").Range("F45").Value = False
Worksheets("feuil1").Range("E46").Value = False
Worksheets("feuil1").Range("F46").Value = False
Worksheets("feuil1").Range("E47").Value = False
Worksheets("feuil1").Range("F47").Value = False
Worksheets("feuil1").Range("E48").Value = False
Worksheets("feuil1").Range("F48").Value = False
Worksheets("feuil1").Range("E49").Value = False
Worksheets("feuil1").Range("F49").Value = False
Worksheets("feuil1").Range("E50").Value = False
Worksheets("feuil1").Range("F50").Value = False
Worksheets("feuil1").Range("E51").Value = False
Worksheets("feuil1").Range("F51").Value = False
Worksheets("feuil1").Range("E52").Value = False
Worksheets("feuil1").Range("F52").Value = False
Worksheets("feuil1").Range("E53").Value = False
Worksheets("feuil1").Range("F53").Value = False
Worksheets("feuil1").Range("E54").Value = False
Worksheets("feuil1").Range("F54").Value = False
Worksheets("feuil1").Range("E55").Value = False
Worksheets("feuil1").Range("F55").Value = False
Worksheets("feuil1").Range("E56").Value = False
Worksheets("feuil1").Range("F56").Value = False
Worksheets("feuil1").Range("E57").Value = False
Worksheets("feuil1").Range("F57").Value = False
Worksheets("feuil1").Range("E58").Value = False
Worksheets("feuil1").Range("F58").Value = False
Worksheets("feuil1").Range("E59").Value = False
Worksheets("feuil1").Range("F59").Value = False
Worksheets("feuil1").Range("E60").Value = False
Worksheets("feuil1").Range("F60").Value = False
Worksheets("feuil1").Range("E61").Value = False
Worksheets("feuil1").Range("F61").Value = False
Worksheets("feuil1").Range("E62").Value = True
Worksheets("feuil1").Range("F62").Value = False
Worksheets("feuil1").Range("E63").Value = True
Worksheets("feuil1").Range("F63").Value = False
Worksheets("feuil1").Range("E64").Value = True
Worksheets("feuil1").Range("F64").Value = False
Worksheets("feuil1").Range("E65").Value = True
Worksheets("feuil1").Range("F65").Value = False
Worksheets("feuil1").Range("E66").Value = False
Worksheets("feuil1").Range("F66").Value = False
Worksheets("feuil1").Range("E67").Value = False
Worksheets("feuil1").Range("F67").Value = False
Worksheets("feuil1").Range("E68").Value = False
Worksheets("feuil1").Range("F68").Value = False
Worksheets("feuil1").Range("E69").Value = False
Worksheets("feuil1").Range("F69").Value = False
Worksheets("feuil1").Range("E70").Value = False
Worksheets("feuil1").Range("F70").Value = False
Worksheets("feuil1").Range("E71").Value = False
Worksheets("feuil1").Range("F71").Value = False
Worksheets("feuil1").Range("E72").Value = False
Worksheets("feuil1").Range("F72").Value = False
Worksheets("feuil1").Range("E73").Value = False
Worksheets("feuil1").Range("F73").Value = False
Worksheets("feuil1").Range("E74").Value = False
Worksheets("feuil1").Range("F74").Value = False
Worksheets("feuil1").Range("E75").Value = False
Worksheets("feuil1").Range("F75").Value = False
Worksheets("feuil1").Range("E76").Value = False
Worksheets("feuil1").Range("F76").Value = False
End If
'//////// CAS 2 \\\\\\\\\
If Worksheets("feuil2").Range("F40").Value = 1 _
And Worksheets("feuil2").Range("F43").Value = 2 Then _
Worksheets("feuil1").Range("E6").Value = False
Worksheets("feuil1").Range("F6").Value = False
Worksheets("feuil1").Range("E7").Value = False
Worksheets("feuil1").Range("F7").Value = False
Worksheets("feuil1").Range("E8").Value = False
Worksheets("feuil1").Range("F8").Value = False
Worksheets("feuil1").Range("E9").Value = False
Worksheets("feuil1").Range("F9").Value = False
Worksheets("feuil1").Range("E10").Value = False
Worksheets("feuil1").Range("F10").Value = False
Worksheets("feuil1").Range("E11").Value = False
Worksheets("feuil1").Range("F11").Value = False
Worksheets("feuil1").Range("E12").Value = False
Worksheets("feuil1").Range("F12").Value = False
Worksheets("feuil1").Range("E13").Value = False
Worksheets("feuil1").Range("F13").Value = False
Worksheets("feuil1").Range("E14").Value = False
Worksheets("feuil1").Range("F14").Value = False
Worksheets("feuil1").Range("E15").Value = False
Worksheets("feuil1").Range("F15").Value = False
Worksheets("feuil1").Range("E16").Value = False
Worksheets("feuil1").Range("F16").Value = False
Worksheets("feuil1").Range("E17").Value = False
Worksheets("feuil1").Range("F17").Value = False
Worksheets("feuil1").Range("E18").Value = False
Worksheets("feuil1").Range("F18").Value = False
Worksheets("feuil1").Range("E19").Value = False
Worksheets("feuil1").Range("F19").Value = False
Worksheets("feuil1").Range("E20").Value = False
Worksheets("feuil1").Range("F20").Value = False
Worksheets("feuil1").Range("E21").Value = False
Worksheets("feuil1").Range("F21").Value = False
Worksheets("feuil1").Range("E22").Value = False
Worksheets("feuil1").Range("F22").Value = False
Worksheets("feuil1").Range("E23").Value = False
Worksheets("feuil1").Range("F23").Value = False
Worksheets("feuil1").Range("E24").Value = False
Worksheets("feuil1").Range("F24").Value = False
Worksheets("feuil1").Range("E25").Value = False
Worksheets("feuil1").Range("F25").Value = False
Worksheets("feuil1").Range("E26").Value = False
Worksheets("feuil1").Range("F26").Value = False
Worksheets("feuil1").Range("E27").Value = False
Worksheets("feuil1").Range("F27").Value = False
Worksheets("feuil1").Range("E28").Value = False
Worksheets("feuil1").Range("F28").Value = False
Worksheets("feuil1").Range("E29").Value = True
Worksheets("feuil1").Range("F29").Value = False
Worksheets("feuil1").Range("E30").Value = True
Worksheets("feuil1").Range("F30").Value = False
Worksheets("feuil1").Range("E31").Value = False
Worksheets("feuil1").Range("F31").Value = False
Worksheets("feuil1").Range("E32").Value = False
Worksheets("feuil1").Range("F32").Value = False
Worksheets("feuil1").Range("E33").Value = False
Worksheets("feuil1").Range("F33").Value = True
Worksheets("feuil1").Range("E34").Value = False
Worksheets("feuil1").Range("F34").Value = True
Worksheets("feuil1").Range("E35").Value = False
Worksheets("feuil1").Range("F35").Value = False
Worksheets("feuil1").Range("E36").Value = False
Worksheets("feuil1").Range("F36").Value = False
Worksheets("feuil1").Range("E37").Value = False
Worksheets("feuil1").Range("F37").Value = False
Worksheets("feuil1").Range("E38").Value = False
Worksheets("feuil1").Range("F38").Value = False
Worksheets("feuil1").Range("E39").Value = False
Worksheets("feuil1").Range("F39").Value = False
Worksheets("feuil1").Range("E40").Value = False
Worksheets("feuil1").Range("F40").Value = False
Worksheets("feuil1").Range("E41").Value = False
Worksheets("feuil1").Range("F41").Value = False
Worksheets("feuil1").Range("E42").Value = False
Worksheets("feuil1").Range("F42").Value = False
Worksheets("feuil1").Range("E43").Value = False
Worksheets("feuil1").Range("F43").Value = False
Worksheets("feuil1").Range("E44").Value = False
Worksheets("feuil1").Range("F44").Value = False
Worksheets("feuil1").Range("E45").Value = True
Worksheets("feuil1").Range("F45").Value = False
Worksheets("feuil1").Range("E46").Value = False
Worksheets("feuil1").Range("F46").Value = False
Worksheets("feuil1").Range("E47").Value = False
Worksheets("feuil1").Range("F47").Value = False
Worksheets("feuil1").Range("E48").Value = False
Worksheets("feuil1").Range("F48").Value = False
Worksheets("feuil1").Range("E49").Value = False
Worksheets("feuil1").Range("F49").Value = False
Worksheets("feuil1").Range("E50").Value = False
Worksheets("feuil1").Range("F50").Value = False
Worksheets("feuil1").Range("E51").Value = False
Worksheets("feuil1").Range("F51").Value = False
Worksheets("feuil1").Range("E52").Value = False
Worksheets("feuil1").Range("F52").Value = False
Worksheets("feuil1").Range("E53").Value = False
Worksheets("feuil1").Range("F53").Value = False
Worksheets("feuil1").Range("E54").Value = False
Worksheets("feuil1").Range("F54").Value = False
Worksheets("feuil1").Range("E55").Value = False
Worksheets("feuil1").Range("F55").Value = False
Worksheets("feuil1").Range("E56").Value = False
Worksheets("feuil1").Range("F56").Value = False
Worksheets("feuil1").Range("E57").Value = False
Worksheets("feuil1").Range("F57").Value = False
Worksheets("feuil1").Range("E58").Value = False
Worksheets("feuil1").Range("F58").Value = False
Worksheets("feuil1").Range("E59").Value = False
Worksheets("feuil1").Range("F59").Value = False
Worksheets("feuil1").Range("E60").Value = False
Worksheets("feuil1").Range("F60").Value = False
Worksheets("feuil1").Range("E61").Value = False
Worksheets("feuil1").Range("F61").Value = False
Worksheets("feuil1").Range("E62").Value = True
Worksheets("feuil1").Range("F62").Value = False
Worksheets("feuil1").Range("E63").Value = True
Worksheets("feuil1").Range("F63").Value = False
Worksheets("feuil1").Range("E64").Value = True
Worksheets("feuil1").Range("F64").Value = False
Worksheets("feuil1").Range("E65").Value = True
Worksheets("feuil1").Range("F65").Value = False
Worksheets("feuil1").Range("E66").Value = False
Worksheets("feuil1").Range("F66").Value = False
Worksheets("feuil1").Range("E67").Value = False
Worksheets("feuil1").Range("F67").Value = False
Worksheets("feuil1").Range("E68").Value = False
Worksheets("feuil1").Range("F68").Value = False
Worksheets("feuil1").Range("E69").Value = False
Worksheets("feuil1").Range("F69").Value = False
Worksheets("feuil1").Range("E70").Value = False
Worksheets("feuil1").Range("F70").Value = False
Worksheets("feuil1").Range("E71").Value = False
Worksheets("feuil1").Range("F71").Value = False
Worksheets("feuil1").Range("E72").Value = False
Worksheets("feuil1").Range("F72").Value = False
Worksheets("feuil1").Range("E73").Value = False
Worksheets("feuil1").Range("F73").Value = False
Worksheets("feuil1").Range("E74").Value = False
Worksheets("feuil1").Range("F74").Value = False
Worksheets("feuil1").Range("E75").Value = False
Worksheets("feuil1").Range("F75").Value = False
Worksheets("feuil1").Range("E76").Value = False
Worksheets("feuil1").Range("F76").Value = False
End If
'//////// - CAS 3 \\\\\\\\\
If Worksheets("feuil2").Range("F40").Value = 2 _
And Worksheets("feuil2").Range("F43").Value = 1 Then _
Worksheets("feuil1").Range("E6").Value = False
Worksheets("feuil1").Range("F6").Value = False
Worksheets("feuil1").Range("E7").Value = False
Worksheets("feuil1").Range("F7").Value = False
Worksheets("feuil1").Range("E8").Value = False
Worksheets("feuil1").Range("F8").Value = False
Worksheets("feuil1").Range("E9").Value = False
Worksheets("feuil1").Range("F9").Value = False
Worksheets("feuil1").Range("E10").Value = False
Worksheets("feuil1").Range("F10").Value = False
Worksheets("feuil1").Range("E11").Value = False
Worksheets("feuil1").Range("F11").Value = False
Worksheets("feuil1").Range("E12").Value = False
Worksheets("feuil1").Range("F12").Value = False
Worksheets("feuil1").Range("E13").Value = False
Worksheets("feuil1").Range("F13").Value = False
Worksheets("feuil1").Range("E14").Value = False
Worksheets("feuil1").Range("F14").Value = False
Worksheets("feuil1").Range("E15").Value = False
Worksheets("feuil1").Range("F15").Value = False
Worksheets("feuil1").Range("E16").Value = False
Worksheets("feuil1").Range("F16").Value = False
Worksheets("feuil1").Range("E17").Value = False
Worksheets("feuil1").Range("F17").Value = False
Worksheets("feuil1").Range("E18").Value = False
Worksheets("feuil1").Range("F18").Value = False
Worksheets("feuil1").Range("E19").Value = False
Worksheets("feuil1").Range("F19").Value = False
Worksheets("feuil1").Range("E20").Value = False
Worksheets("feuil1").Range("F20").Value = False
Worksheets("feuil1").Range("E21").Value = False
Worksheets("feuil1").Range("F21").Value = False
Worksheets("feuil1").Range("E22").Value = False
Worksheets("feuil1").Range("F22").Value = False
Worksheets("feuil1").Range("E23").Value = False
Worksheets("feuil1").Range("F23").Value = False
Worksheets("feuil1").Range("E24").Value = False
Worksheets("feuil1").Range("F24").Value = False
Worksheets("feuil1").Range("E25").Value = False
Worksheets("feuil1").Range("F25").Value = False
Worksheets("feuil1").Range("E26").Value = False
Worksheets("feuil1").Range("F26").Value = False
Worksheets("feuil1").Range("E27").Value = False
Worksheets("feuil1").Range("F27").Value = False
Worksheets("feuil1").Range("E28").Value = False
Worksheets("feuil1").Range("F28").Value = False
Worksheets("feuil1").Range("E29").Value = True
Worksheets("feuil1").Range("F29").Value = False
Worksheets("feuil1").Range("E30").Value = True
Worksheets("feuil1").Range("F30").Value = False
Worksheets("feuil1").Range("E31").Value = False
Worksheets("feuil1").Range("F31").Value = False
Worksheets("feuil1").Range("E32").Value = False
Worksheets("feuil1").Range("F32").Value = False
Worksheets("feuil1").Range("E33").Value = False
Worksheets("feuil1").Range("F33").Value = True
Worksheets("feuil1").Range("E34").Value = False
Worksheets("feuil1").Range("F34").Value = True
Worksheets("feuil1").Range("E35").Value = False
Worksheets("feuil1").Range("F35").Value = False
Worksheets("feuil1").Range("E36").Value = False
Worksheets("feuil1").Range("F36").Value = False
Worksheets("feuil1").Range("E37").Value = False
Worksheets("feuil1").Range("F37").Value = False
Worksheets("feuil1").Range("E38").Value = False
Worksheets("feuil1").Range("F38").Value = False
Worksheets("feuil1").Range("E39").Value = False
Worksheets("feuil1").Range("F39").Value = False
Worksheets("feuil1").Range("E40").Value = False
Worksheets("feuil1").Range("F40").Value = False
Worksheets("feuil1").Range("E41").Value = False
Worksheets("feuil1").Range("F41").Value = False
Worksheets("feuil1").Range("E42").Value = False
Worksheets("feuil1").Range("F42").Value = False
Worksheets("feuil1").Range("E43").Value = False
Worksheets("feuil1").Range("F43").Value = False
Worksheets("feuil1").Range("E44").Value = False
Worksheets("feuil1").Range("F44").Value = False
Worksheets("feuil1").Range("E45").Value = True
Worksheets("feuil1").Range("F45").Value = False
Worksheets("feuil1").Range("E46").Value = False
Worksheets("feuil1").Range("F46").Value = False
Worksheets("feuil1").Range("E47").Value = False
Worksheets("feuil1").Range("F47").Value = False
Worksheets("feuil1").Range("E48").Value = False
Worksheets("feuil1").Range("F48").Value = False
Worksheets("feuil1").Range("E49").Value = False
Worksheets("feuil1").Range("F49").Value = False
Worksheets("feuil1").Range("E50").Value = False
Worksheets("feuil1").Range("F50").Value = False
Worksheets("feuil1").Range("E51").Value = False
Worksheets("feuil1").Range("F51").Value = False
Worksheets("feuil1").Range("E52").Value = False
Worksheets("feuil1").Range("F52").Value = False
Worksheets("feuil1").Range("E53").Value = False
Worksheets("feuil1").Range("F53").Value = False
Worksheets("feuil1").Range("E54").Value = False
Worksheets("feuil1").Range("F54").Value = False
Worksheets("feuil1").Range("E55").Value = False
Worksheets("feuil1").Range("F55").Value = False
Worksheets("feuil1").Range("E56").Value = False
Worksheets("feuil1").Range("F56").Value = False
Worksheets("feuil1").Range("E57").Value = False
Worksheets("feuil1").Range("F57").Value = False
Worksheets("feuil1").Range("E58").Value = False
Worksheets("feuil1").Range("F58").Value = False
Worksheets("feuil1").Range("E59").Value = False
Worksheets("feuil1").Range("F59").Value = False
Worksheets("feuil1").Range("E60").Value = False
Worksheets("feuil1").Range("F60").Value = False
Worksheets("feuil1").Range("E61").Value = False
Worksheets("feuil1").Range("F61").Value = False
Worksheets("feuil1").Range("E62").Value = True
Worksheets("feuil1").Range("F62").Value = False
Worksheets("feuil1").Range("E63").Value = True
Worksheets("feuil1").Range("F63").Value = False
Worksheets("feuil1").Range("E64").Value = True
Worksheets("feuil1").Range("F64").Value = False
Worksheets("feuil1").Range("E65").Value = True
Worksheets("feuil1").Range("F65").Value = False
Worksheets("feuil1").Range("E66").Value = False
Worksheets("feuil1").Range("F66").Value = False
Worksheets("feuil1").Range("E67").Value = False
Worksheets("feuil1").Range("F67").Value = False
Worksheets("feuil1").Range("E68").Value = False
Worksheets("feuil1").Range("F68").Value = False
Worksheets("feuil1").Range("E69").Value = False
Worksheets("feuil1").Range("F69").Value = False
Worksheets("feuil1").Range("E70").Value = False
Worksheets("feuil1").Range("F70").Value = False
Worksheets("feuil1").Range("E71").Value = False
Worksheets("feuil1").Range("F71").Value = False
Worksheets("feuil1").Range("E72").Value = False
Worksheets("feuil1").Range("F72").Value = False
Worksheets("feuil1").Range("E73").Value = False
Worksheets("feuil1").Range("F73").Value = False
Worksheets("feuil1").Range("E74").Value = False
Worksheets("feuil1").Range("F74").Value = False
Worksheets("feuil1").Range("E75").Value = False
Worksheets("feuil1").Range("F75").Value = False
Worksheets("feuil1").Range("E76").Value = False
Worksheets("feuil1").Range("F76").Value = False
End If
'//////// - CAS 4 \\\\\\\\\
' Coche les feuil1
If Worksheets("feuil2").Range("F40").Value = 2 _
And Worksheets("feuil2").Range("F43").Value = 2 Then _
Worksheets("feuil1").Range("E6").Value = False
Worksheets("feuil1").Range("F6").Value = False
Worksheets("feuil1").Range("E7").Value = False
Worksheets("feuil1").Range("F7").Value = False
Worksheets("feuil1").Range("E8").Value = False
Worksheets("feuil1").Range("F8").Value = False
Worksheets("feuil1").Range("E9").Value = False
Worksheets("feuil1").Range("F9").Value = False
Worksheets("feuil1").Range("E10").Value = False
Worksheets("feuil1").Range("F10").Value = False
Worksheets("feuil1").Range("E11").Value = False
Worksheets("feuil1").Range("F11").Value = False
Worksheets("feuil1").Range("E12").Value = False
Worksheets("feuil1").Range("F12").Value = False
Worksheets("feuil1").Range("E13").Value = False
Worksheets("feuil1").Range("F13").Value = False
Worksheets("feuil1").Range("E14").Value = False
Worksheets("feuil1").Range("F14").Value = False
Worksheets("feuil1").Range("E15").Value = False
Worksheets("feuil1").Range("F15").Value = False
Worksheets("feuil1").Range("E16").Value = False
Worksheets("feuil1").Range("F16").Value = False
Worksheets("feuil1").Range("E17").Value = False
Worksheets("feuil1").Range("F17").Value = False
Worksheets("feuil1").Range("E18").Value = False
Worksheets("feuil1").Range("F18").Value = False
Worksheets("feuil1").Range("E19").Value = False
Worksheets("feuil1").Range("F19").Value = False
Worksheets("feuil1").Range("E20").Value = False
Worksheets("feuil1").Range("F20").Value = False
Worksheets("feuil1").Range("E21").Value = False
Worksheets("feuil1").Range("F21").Value = False
Worksheets("feuil1").Range("E22").Value = False
Worksheets("feuil1").Range("F22").Value = False
Worksheets("feuil1").Range("E23").Value = False
Worksheets("feuil1").Range("F23").Value = False
Worksheets("feuil1").Range("E24").Value = False
Worksheets("feuil1").Range("F24").Value = False
Worksheets("feuil1").Range("E25").Value = False
Worksheets("feuil1").Range("F25").Value = False
Worksheets("feuil1").Range("E26").Value = False
Worksheets("feuil1").Range("F26").Value = False
Worksheets("feuil1").Range("E27").Value = False
Worksheets("feuil1").Range("F27").Value = False
Worksheets("feuil1").Range("E28").Value = False
Worksheets("feuil1").Range("F28").Value = False
Worksheets("feuil1").Range("E29").Value = True
Worksheets("feuil1").Range("F29").Value = False
Worksheets("feuil1").Range("E30").Value = True
Worksheets("feuil1").Range("F30").Value = False
Worksheets("feuil1").Range("E31").Value = False
Worksheets("feuil1").Range("F31").Value = False
Worksheets("feuil1").Range("E32").Value = False
Worksheets("feuil1").Range("F32").Value = False
Worksheets("feuil1").Range("E33").Value = False
Worksheets("feuil1").Range("F33").Value = True
Worksheets("feuil1").Range("E34").Value = False
Worksheets("feuil1").Range("F34").Value = True
Worksheets("feuil1").Range("E35").Value = False
Worksheets("feuil1").Range("F35").Value = False
Worksheets("feuil1").Range("E36").Value = False
Worksheets("feuil1").Range("F36").Value = False
Worksheets("feuil1").Range("E37").Value = False
Worksheets("feuil1").Range("F37").Value = False
Worksheets("feuil1").Range("E38").Value = False
Worksheets("feuil1").Range("F38").Value = False
Worksheets("feuil1").Range("E39").Value = False
Worksheets("feuil1").Range("F39").Value = False
Worksheets("feuil1").Range("E40").Value = False
Worksheets("feuil1").Range("F40").Value = False
Worksheets("feuil1").Range("E41").Value = False
Worksheets("feuil1").Range("F41").Value = False
Worksheets("feuil1").Range("E42").Value = False
Worksheets("feuil1").Range("F42").Value = False
Worksheets("feuil1").Range("E43").Value = False
Worksheets("feuil1").Range("F43").Value = False
Worksheets("feuil1").Range("E44").Value = False
Worksheets("feuil1").Range("F44").Value = False
Worksheets("feuil1").Range("E45").Value = True
Worksheets("feuil1").Range("F45").Value = False
Worksheets("feuil1").Range("E46").Value = False
Worksheets("feuil1").Range("F46").Value = False
Worksheets("feuil1").Range("E47").Value = False
Worksheets("feuil1").Range("F47").Value = False
Worksheets("feuil1").Range("E48").Value = False
Worksheets("feuil1").Range("F48").Value = False
Worksheets("feuil1").Range("E49").Value = False
Worksheets("feuil1").Range("F49").Value = False
Worksheets("feuil1").Range("E50").Value = False
Worksheets("feuil1").Range("F50").Value = False
Worksheets("feuil1").Range("E51").Value = False
Worksheets("feuil1").Range("F51").Value = False
Worksheets("feuil1").Range("E52").Value = False
Worksheets("feuil1").Range("F52").Value = False
Worksheets("feuil1").Range("E53").Value = False
Worksheets("feuil1").Range("F53").Value = False
Worksheets("feuil1").Range("E54").Value = False
Worksheets("feuil1").Range("F54").Value = False
Worksheets("feuil1").Range("E55").Value = False
Worksheets("feuil1").Range("F55").Value = False
Worksheets("feuil1").Range("E56").Value = False
Worksheets("feuil1").Range("F56").Value = False
Worksheets("feuil1").Range("E57").Value = False
Worksheets("feuil1").Range("F57").Value = False
Worksheets("feuil1").Range("E58").Value = False
Worksheets("feuil1").Range("F58").Value = False
Worksheets("feuil1").Range("E59").Value = False
Worksheets("feuil1").Range("F59").Value = False
Worksheets("feuil1").Range("E60").Value = False
Worksheets("feuil1").Range("F60").Value = False
Worksheets("feuil1").Range("E61").Value = False
Worksheets("feuil1").Range("F61").Value = False
Worksheets("feuil1").Range("E62").Value = True
Worksheets("feuil1").Range("F62").Value = False
Worksheets("feuil1").Range("E63").Value = True
Worksheets("feuil1").Range("F63").Value = False
Worksheets("feuil1").Range("E64").Value = True
Worksheets("feuil1").Range("F64").Value = False
Worksheets("feuil1").Range("E65").Value = True
Worksheets("feuil1").Range("F65").Value = False
Worksheets("feuil1").Range("E66").Value = False
Worksheets("feuil1").Range("F66").Value = False
Worksheets("feuil1").Range("E67").Value = False
Worksheets("feuil1").Range("F67").Value = False
Worksheets("feuil1").Range("E68").Value = False
Worksheets("feuil1").Range("F68").Value = False
Worksheets("feuil1").Range("E69").Value = False
Worksheets("feuil1").Range("F69").Value = False
Worksheets("feuil1").Range("E70").Value = False
Worksheets("feuil1").Range("F70").Value = False
Worksheets("feuil1").Range("E71").Value = False
Worksheets("feuil1").Range("F71").Value = False
Worksheets("feuil1").Range("E72").Value = False
Worksheets("feuil1").Range("F72").Value = False
Worksheets("feuil1").Range("E73").Value = False
Worksheets("feuil1").Range("F73").Value = False
Worksheets("feuil1").Range("E74").Value = False
Worksheets("feuil1").Range("F74").Value = False
Worksheets("feuil1").Range("E75").Value = False
Worksheets("feuil1").Range("F75").Value = False
Worksheets("feuil1").Range("E76").Value = False
Worksheets("feuil1").Range("F76").Value = False
End If
End Sub
Comment je peux faire pour "l’accélérer" ? Merci d'avance pour vos conseils
Dernière édition: