Microsoft 365 Appel de procédure qui ne fonctionne pas

[Lulay]

Bonjour à toutes et tous,

J'ai créé cette procédure :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim i2 As Integer
Dim myRange As Range

i = 50
i2 = 64
Set myRange = Worksheets("Équipe C").Range("BG" & i & ":BT" & i)

For i = 49 To 365
If Range("BG" & i & ":BT" & i).Value = 84 Then
Range("BU" & i & ":CC" & i).Locked = True
Else
Range("BU" & i2 & ":CC" & i2).Locked = False
End If
i = i + 1
i2 = i2 + 1
Exit For

End Sub

Mais quand j'entre des valeurs dans le range qui totalisent 84, ça ne fonctionne pas.
Quelqu'un peut me dire ce que je fais de pas correct svp ?

Merci beaucoup

 

[Staple1600]

Bonjour,

Ce sont sans doute tes MFC qu'il faudrait examiner pour cette histoire de rouge
Sinon pour y arriver tu as trois options
1) persévérer avec ton classeur actuel
2) farfouiller ici
3) T'inspirer de ce tu auras trouver au 2) pour modifier 1)

NB: une quatrième option étant d'adopter tel quel ce que tu auras trouver au 2)