Grouper 2 Macro voir plus

[Olyxier]

Bonsoir
comment peut on faire pour regrouper ces 2 macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> ("L34") Then Exit Sub

Select Case Range("L34").Value
Case 0
Range("C1.C5").ClearContents
Range("D1.D5") = 0
Range("D6") = 5

Case 1
Range("C2.C5").ClearContents
Range("D2.D5") = 11
Range("D6") = 1




End Select

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> ("L35") Then Exit Sub

Select Case Range("L35").Value
Case 0
Range("C.C10").ClearContents
Range("D.D10") = 0
Range("D11") = 5

Case 1
Range("C7.C10").ClearContents
Range("D7.D10") = 11
Range("D11") = 1




End Select
End Sub

Merci à vous et bonne soirée

 

[Robert]

Re : Grouper 2 Macro voir plus

Bonsoir Olyxier, bonsoir le forum

Je te propose la solution sci dessous :
Attention à la déclaration de la variable au début
J'ai rajouté des 6 et des 7 pour L35 car je pense que tu les avais oubliés.

Dim test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
'si la variable test est vrai, sort de la procédure. Sinon à chaque changement
'(cleracontente, etc...) la procédure est relancée
If test = True Then Exit Sub
test = True 'définit la variable test
 
If Target.Address(0, 0) = "L34" Then
 
    Select Case Range("L34").Value
 
    Case 0
        Range("C1.C5").ClearContents
        Range("D1.D5") = 0
        Range("D6") = 5
 
    Case 1
        Range("C2.C5").ClearContents
        Range("D2.D5") = 11
        Range("D6") = 1
 
    End Select
 
ElseIf Target.Address(0, 0) = "L35" Then
 
    Select Case Range("L35").Value
 
    Case 0
        Range("C[COLOR=red]6[/COLOR].C10").ClearContents
        Range("D[COLOR=red]6[/COLOR].D10") = 0
        Range("D11") = 5
 
    Case 1
        Range("C[COLOR=red]7[/COLOR].C10").ClearContents
        Range("D[COLOR=red]7[/COLOR].D10") = 11
        Range("D11") = 1
 
    End Select
 
End If
 
test = False 'redéfinit la variable test
 
End Sub

 

[Olyxier]

Re : Grouper 2 Macro voir plus

Merci beaucoup Robert sa marche super et bonne journée