cellules figées

lolo44 · 11 Octobre 2015

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 · 11 Octobre 2015

Re : cellules figées

Bonsoir

Essaye en remplaçant le code par celui-ci

Code:

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 · 11 Octobre 2015

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 · 11 Octobre 2015

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 · 11 Octobre 2015

Re : cellules figées

Bonsoir lolo44,

Voir fichier joint...

Bonne-nuit

lolo44 · 12 Octobre 2015

Re : cellules figées

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

Lolo

lolo44 · 12 Octobre 2015

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 · 12 Octobre 2015

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

cellules figées

lolo44

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

Victor21

XLDnaute Barbatruc

lolo44

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

lolo44

XLDnaute Occasionnel

lolo44

XLDnaute Occasionnel

lolo44

XLDnaute Occasionnel

Discussions similaires