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

snoopy07

XLDnaute Occasionnel
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
Capture d’écran 2023-01-22 205100.png

comment résoudre ce petit problème

merci d avance
cordialement
Snoopy 07
 

Phil69970

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 485
Messages
2 110 101
Membres
110 663
dernier inscrit
ToussaintBug