Discussion :

[bodd984]

Bonjour,

J'ai une cellule dont le résultat doit être diffèrent selon un choix fait dans une combobox. Dans un cas je veux lier cette cellule avec une autre et ne protéger que cette cellule de ma feuille pour ne pas pouvoir la modifier. Et dans l'autre cas pouvoir écrire dedans.

Voici le code que j'ai commencé:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
If Me.ComboBox1.Value = "Fiche Technique" Then
    Worksheets("feuil1").Range("I11") = Worksheets("feuil2").Range("Q44")
    Worksheets("feuil1").Range("I11") .Locked = True
Else
 
End If
 
End Sub

[mayekeul]

bonjour,

tu peux essayer comme ceci par exemple :

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
Dim Sh As Worksheet, Sh2 As Worksheet
 
Set Sh = Worksheets("feuil1")
Set Sh2 = Worksheets("feuil2")
 
Sh.Unprotect
 
If Me.ComboBox1.Value = "Fiche Technique" Then
    Sh.Range("I11").Formula = "=" & Sh2.Range("Q44").Address
    Sh.Range("I11").Locked = True
Else
    Sh.Range("I11").Locked = False
End If
 
Sh.Protect

pour des raisons de facilité, j'ai passé les feuilles dans une variable
il ne faut pas oublier de proteger la feuille pour que la protection sur la cellule soit active
Attention que toutes les cellules on leur propriétés "Locked" sur True par défaut

[bodd984]

Merci pour ta réponse,

Il reste juste un petit problème, Il va chercher la cellule Q44 de la feuille1 et non pas de la feuille 2 ....

[mayekeul]

bonjour,

oui, juste!
au temps pour moi!

il faut remplacer

Code :

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

Sh.Range("I11").Formula = "=" & Sh2.Range("Q44").Address

par

Code :

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

Sh.Range("I11").Formula = "=" & Sh2.Name & "!Q44"

ou plus simplement

Code :

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

Sh.Range("I11").Formula = "=feuil2!Q44"

[bodd984]

C'est parfait comme toujours,

Merci beaucoup !!!