Macro appliquée à plusieurs cellules

[Mymy75]

Bonjour,

Je débute dans les Macro. Je dois mettre en place un fichier où selon la valeur d'une cellule, la saisie dans une autre cellule est verrouillée. Pour ce faire j'ai réalisé la macro suivante avec l'aide d'internet (cf. dessous). Maintenant je souhaite que la macro qui actuellement fonctionne sur la cellule H15 en fonction de la valeur de G15 fonctionne également pour la celle H16 en fonction de la valeur de G16, H17 en fonction de la valeur de G17 et ainsi de suite jusqu'à H68 en fonction de la valeur de G68.

Quelqu'un pourrait t'il m'aider à adapter ma macro SVP ?

D'avance, merci beaucoup !!!!!

Macro utilisée pour le verrouillage des cellules :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("G15")
Case Is <> "Non commencée"
With ActiveSheet
.Unprotect Password:="toto"
.Range("H15").Locked = True
.Protect Password:="toto"
Exit Sub
End With
Case Else
With ActiveSheet
.Unprotect Password:="toto"
.Range("H15").Locked = False
.Protect Password:="toto"
End With
End Select
End Sub

 

[pierrejean]

Re : Macro appliquée à plusieurs cellules

Bonjour mimy75

Et bienvenue sur XLD

A tester:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
for n=15 to 68
Select Case Range("G" & n)
Case Is <> "Non commencée"
With ActiveSheet
.Unprotect Password:="toto"
.Range("H" & n).Locked = True
.Protect Password:="toto"
Exit Sub
End With
Case Else
With ActiveSheet
.Unprotect Password:="toto"
.Range("H" & n).Locked = False
.Protect Password:="toto"
End With
End Select
next
End Sub

 

[Mymy75]

Re : Macro appliquée à plusieurs cellules

Merci beaucoup pour cette réponse rapide.
Je viens d'essyer et je crois qu'il y a un petit bug je sais pas si ca vient de mon fichier....
En fait si en G15 ma valeur est non commencée je peux saisir dans toute les cellules de la colonne H et si ma valeur en G15 est <> de "non commencée" je ne peux saisir dans aucune des cellules de la colonne H.

 

[pierrejean]

Re : Macro appliquée à plusieurs cellules

Re

Arf !!! je n'avais pas bien compris

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If not intersect(Target,range("G15:G68") is nothing then
Select Case target.value
Case Is <> "Non commencée"
With ActiveSheet
.Unprotect Password:="toto"
target.offset(0,1).Locked = True
.Protect Password:="toto"
Exit Sub
End With
Case Else
With ActiveSheet
.Unprotect Password:="toto"
target.offset(0,1).Locked = False
.Protect Password:="toto"
End With
End Select
end if
End Sub

NB: On est toujours plus à l'aise avec un petit fichier exemple !!!

 

[Mymy75]

Re : Macro appliquée à plusieurs cellules

Ca marche toujours pas 🙁

Voila le fichier pour que ce soit plus clair 🙂
S'il les actions sont bloquées par un mot de passe c'est celui de la macro : toto

Merci beaucoup pour cette aise. Je m'en sortais pas toute seule.