impossible de définir la propriété Locked de la classe Range

Le
Thierry
Bonjour tout le monde,

Voilà j'ai un soucis avec la définition de la classe range. Lors de
l'execution du code ci-dessous le message impossible de définir la propriété
Locked de la classe Range s'affiche (les valeurs pl, Pcol, Dlig, dc sont
bonnes je les ai affichées)

For j = 1 To Sheets.Count
Worksheets(j).Activate
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 08:15:44
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry
Le #4545361
J'ai trouvé la feuille était protégée, une fois déprotégée il n'y a plus
d'erreur.

"Thierry"
Bonjour tout le monde,

Voilà j'ai un soucis avec la définition de la classe range. Lors de
l'execution du code ci-dessous le message impossible de définir la
propriété Locked de la classe Range s'affiche (les valeurs pl, Pcol, Dlig,
dc sont bonnes je les ai affichées)

For j = 1 To Sheets.Count
Worksheets(j).Activate
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name Then
'
' Date de fin de mois pour connaître le nombre de jour
'
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 08:15:44
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:06:17
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:07:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Publicité
Poster une réponse
Anonyme