Discussion :

[coco.on.off]

Bonjour a vous,

Actuellement en train de creer une base de donnee, je suis confrontee a un probleme d'une simplicite que c'est surement ridicule de poster un message.
Mais voila j'ai une quinzaine de pages et pour certaine je veux debloquer que certaines cellules.

J'ai donc utilise la ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("...:...,...").Select
Selection.Locked

Le message d'erreur 1004 (method range or object worksheet failed) apparait pour la ligne du range.

Ci-dessous le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton2_Click()
' Enter document code in document case (G4)
 
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "BS"
 
' Fill Out a new Build Sheet
 
    Sheets("BS_SHEET").Visible = True
    Sheets("NEW REVISION").Visible = False
    Sheets("BS_SHEET").Select
 
    'Range("E6,K6,D9:J9,G11,E21,M29:M91,L92,M94:M104,C109:M109,M111:M118,E122,I134,J134").Select
    'Selection.Locked = False
 
End Sub

J'ai cache les deux dernieres lignes de code car c'est la qu'apparait le probleme.

J'ai beau chercher une reponse sur le net, je trouve rien concernant mon probleme. Je pensais que c'etait la synthaxe mais meme le site de microsoft support ne me donne pas de reponses.

Pourriez vous m'aider ?

Amicalement

[SmallFlower]

Salut,

Et comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
  Range("G4").FormulaR1C1 = "BS"
  Worksheets("BS_SHEET").Visible = True
  Worksheets("NEW REVISION").Visible = False
  With Worksheets("BS_SHEET")
    .Unprotect
    .Cells.Locked = True
    .Range("E6,K6,D9:J9,G11,E21,M29:M91,L92,M94:M104,C109:M109,M111:M118,E122,I134,J134").Locked = False
    .Protect
  End With
End Sub

[parmi]

Bonjour,

J'imagine que ta feuille est protégée... est-ce le cas ?
Si oui, tu dois la déprotéger au préalable et la reprotéger quand tu as terminé.

Sheets("BS_SHEET").UnProtect "Mot de passe" 's'il n'y a pas de mot de passe enlève la partie avec les guillemets


Et plutôt qu'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "BS"

Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Range("G4") = "BS"

EDIT: Battu de vitesse