Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel impossible de définir la propriété Locked de la classe Range

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

1 réponse
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Thierry
J'ai trouvé la feuille était protégée, une fois déprotégée il n'y a plus
d'erreur.

"Thierry" a écrit dans le message de news:

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





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