cellules figées

[lolo44]

Bonsoir à Tous,
Il y a environ 1 mois, une personne du forum m'avait donner un code pour figer les cellules en fonction de la date.C'est à dire, dès que la date du jour était passée, on ne pouvait plus remplir les cellules des colonnes B et C (crédit et débit).
Tout fonctionne très bien.
Mais j'ai changé les dates dans la première colonne et il se trouve que les cellule sont figées jusqu'à la ligne 44 (pour les colonnes B et C) alors que la date n'est pas passée ,
Pouvez vous m'aider sur le code ?

Merci bien
La feuille est protégée avec mdp : 1

Lolo

 

[Chris401]

Re : cellules figées

Bonsoir

Essaye en remplaçant le code par celui-ci

Private Sub Workbook_Open()
Const mdp = 1
Dim J As Date, der&, i&
  J = Date - 1
  With Sheets("Feuil1")
  .Unprotect mdp
  .Cells.Locked = False
    der = .Cells(.Rows.Count, "a").End(xlUp).Row
    If der >= 9 Then
      For i = 9 To der
        If .Cells(i, "a") <= J Then
          .Cells(i, "b").Resize(, 3).Locked = True
        End If
      Next i
    End If
    .Protect mdp
  End With
End Sub

Cordialement
Chris

 

[Victor21]

Re : cellules figées

Bonsoir, lolo44

Avec la validation de données : sélectionner B9:C374, validation personnalisée : =AUJOURDHUI()<$A9...
... Si j'ai bien compris.

 

[lolo44]

Re : cellules figées

merci , je fais un essai demain avec le code de Chris et je regarde la méthode de Victor.
Je reviens demain soir
Merci

Lolo

 

[mapomme]

Re : cellules figées

Bonsoir lolo44,

Voir fichier joint...

Bonne-nuit

 

[lolo44]

Re : cellules figées

Merci mapomme
Je regarde ce soir
Merci pour la réponse rapide
Au Top

Lolo

 

[lolo44]

Re : cellules figées

@Chris : j'ai remplacé par ton code mais les cellules restent figées jusqu'à la ligne 49 alors que la date n'est pas passée....
J'aimerai bien savoir ce qu'il faut changer dans le code ?
Merci

Lolo

 

[lolo44]

Re : cellules figées

@mapomme : qu'est ce qui fait que ça ne fonctionne plus si l'on change la date de départ de la colonne A ?
Merci

Lolo