Citation:
|
Envoyé par Lipadec
Salut les amis
Si vous pouvez m'aider à résoudre un problèle que voici
Sur une feuille Excel pleine de formules qui fonctionnent à merveille, et sur une des cellules de la colonne A, il y a une date, exemple 31/01/2006. Je voudrai que si la date d'aujourd'hui est supérieure à la date du 31/01/2006, je ne peux plus rectifier les cellules de la colonne A, disons je voudrai vérouiller cette colone A après la date du 31/01/2006
Merci de votre aide
lipadec@hotmail.com |
Salut
Ton problème peut se résoudre relativement simplement par une macro à l'ouverture du fichier
tu actives ton onglet, puis tu sélectionnes toutes les cellules (Ctrl+A)
Clic-droit>>Menu contextuel>>Format de cellule>>Onglet sécurité
Tu enlèves la coche verrouillé
Toutes tes cellules deviennent accessibles
souris sur onglet>>Clic-droit>>Menu contextuel>>Visualiser le code
Dans la fenêtre de gauchetu sélectionnes ThisWorkBook
au-dessus de la fenêtre de droite tu remplace (Général) par workbook
ça te crée la macro WorkBook_Open que tu compêtes : comme je n'ai pas de références exactes, ton Onglet s'appellera "F1" et ta date sera dans la ligne 2 ce qui donne :
Code:
Private Sub Workbook_Open()
Dim X As Integer
Sheets("F1").Activate
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
For X = 1 To Range("IV2").End(xlToLeft).Column
If IsDate(Cells(2, X)) Then
If Cells(2, X) < Date Then Columns(X).Locked = True
End If
Next X
ActiveSheet.Protect
End Sub
ça devrait résoudre ton problème
A+