VBA - Accélerer un code

pepsi

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)

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:
Trier par date Trier par votes
Gorfael

Gorfael

XLDnaute Barbatruc
Re : VBA - Accélerer un code

Salut laetitia90, pepsi et le forum
Code soit faux, soit fait "à la main". Ce que ça donne :
Code: 
Sub coche()

Application.ScreenUpdating = False
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&
With Worksheets("feuil1")
    If (Worksheets("feuil2").[F40"] = 1 Or Worksheets("feuil2").[F40"] = 2) And _
       (Worksheets("feuil2").[F43"] = 1 Or Worksheets("feuil2").[F43"] = 2) Then
            .[E6:F76].Value = False
            .Range("E29, E30, E45, E62:65, F33:34").Value = True
    End If
End With
Application.ScreenUpdating = true
End Sub
les parties derrière les tests sont identiques ???
A+
 
Dernière édition:
Vote positif 0 Vote négatif
pepsi

pepsi

XLDnaute Occasionnel
Re : VBA - Accélerer un code

Bonjour,

Non les parties ne seront pas identiques, c'est simplement un copié collé que j'ai fait.

Ca me sert à paramétrer les coches en fonction de ce qui est saisi avec les boutons radio
 
Vote positif 0 Vote négatif
Gorfael

Gorfael

XLDnaute Barbatruc
Re : VBA - Accélerer un code

Salut pepsi et le forum
Non les parties ne seront pas identiques, c'est simplement un copié collé que j'ai fait.
Cliquez pour agrandir...
Je ne suis ni devin, ni télépathe. Je travaille avec les matériaux qu'on fourni. Et si le code fourni ne correspond à rien, la réponse est aussi irréaliste.
Je te conseillerai de mettre toutes tes cellules à false, puis, en fonction de test, de mettre à true chacune des cellules concernées.
Juste une remarque : au lieu de fournir un code de plus de 250 lignes, mettre 10 lignes dans chacun des 4 cas aurait largement suffit, à condition que ce soit les mêmes et qu'il y ait des changement.
A+
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 Loop avec un Select Case
Réponses
3
Affichages
602
eriiic
eriiic
D
  • Question
Procédure trop grande
2 3 4
Réponses
46
Affichages
9 K
domeli
D
7
  • Question
Accélération code vba
Réponses
6
Affichages
2 K
ROGER2327
ROGER2327
Hpotter
  • Question
Aide pour compléter un code Vba Excel
Réponses
7
Affichages
2 K
Hpotter
Hpotter
J
  • Question
trop d'arguments VBA
Réponses
9
Affichages
3 K
JC de Lorient
J
J
  • Question
Condition en VBA
Réponses
2
Affichages
731
jc de lorient
J

Membres actuellement en ligne

22 membres et 395 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 231
Messages
2 086 448
Membres
103 213
dernier inscrit
Poupoule