XL 2019 probleme dans une macro a la suite d un rajout de condition

snoopy07 · 22 Janvier 2023

Bonsoir le forum

on ma donné cette macro qui marche tres bien

Sub Compteur1_QuandChangement()
Dim lig As Long
ActiveSheet.Unprotect
For lig = 5 To Cells(Rows.Count, "D").End(xlUp).Row - 1
If IsDate(Cells(lig, "D")) And Cells(lig, "H") = 1 Then
Cells(lig, "M").Resize(1).Locked = True
Else
Cells(lig, "M").Resize(1).Locked = False
End If
Next lig
ActiveSheet.Protect
End Sub

Quand je rajoute la ligne qui est en bleue a cette macro elle ne fonctionne plus

Sub Compteur1_QuandChangement()
Dim lig As Long
ActiveSheet.Unprotect
For lig = 5 To Cells(Rows.Count, "D").End(xlUp).Row - 1
If IsDate(Cells(lig, "D")) And Cells(lig, "H") = 1 Then

If IsDate(Cells(lig, "D")) And Cells(lig, "C") = 1 Then

Cells(lig, "M").Resize(1).Locked = True
Else
Cells(lig, "M").Resize(1).Locked = False
End If
Next lig
ActiveSheet.Protect
End Sub

ca me le message suivant

comment résoudre ce petit problème

merci d avance
cordialement
Snoopy 07

Phil69970 · 22 Janvier 2023

Bonjour @snoopy07

Si tu avais indenter ton code tu aurais vu ou cela cloche

VB:

Sub Compteur1_QuandChangement()
Dim lig As Long
ActiveSheet.Unprotect
For lig = 5 To Cells(Rows.Count, "D").End(xlUp).Row - 1
    If IsDate(Cells(lig, "D")) And Cells(lig, "H") = 1 Then
        If IsDate(Cells(lig, "D")) And Cells(lig, "C") = 1 Then
            Cells(lig, "M").Resize(1).Locked = True
        Else
            Cells(lig, "M").Resize(1).Locked = False
        End If
    End If
Next lig
ActiveSheet.Protect
End Sub

Merci de ton retour

@Phil69970

snoopy07 · 22 Janvier 2023

bonsoir AC045364 et Phil69970
merci pour vos réponses j ai modifier mon code
suivant la formule de AC045364 est ça marche comme je veus
quelle formule doit je rajouter pour que ca me remplisse la cellule avant de la verrouiller
le texte doit etre 0
merci d'avance pour votre aide
cordialement
Snoopy 07

XL 2019 probleme dans une macro a la suite d un rajout de condition

snoopy07

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

snoopy07

XLDnaute Occasionnel

Discussions similaires