Re : Empêcher la saisie dans certaines cases selon le choix dans un menu déroulant.
Merci beaucoup de la réponse!
Effectivement ça marche Nickel-Chrome.
Il me reste juste une dernière fonctionnalité à ajouter (je pensais pouvoir y arriver tout seul, mais visiblement non!). Est ce qu'il est possible de bloquer certaines cellule quand un des choix est sélectionné dans le menu déroulant (déjà possible avec le code précédent) ET D'EN BLOQUER D'AUTRES dès qu'on sélectionne un autre choix ("Autolock Analysis" par exemple).
J'ai écris ce bout de code (c'est toujours plus constructif de se faire corriger!
)
--------------------------------------------------------------------------
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F34]) Is Nothing Then
If [F34] = "Stud bolts fixation" Then
Range("F74:J83").Interior.ColorIndex = xlNone
Range("F84:J88").Interior.ColorIndex = 15
Range("F93:J93").Interior.ColorIndex = xlNone
Range("F95:J95").Interior.ColorIndex = xlNone
Range("F118:H122").Interior.ColorIndex = xlNone
Range("F125:H128").Interior.ColorIndex = 15
Range("F138:J142").Interior.ColorIndex = xlNone
Range("F143:J146").Interior.ColorIndex = 15
Range("F165:J168").Interior.ColorIndex = xlNone
Range("F169:J172").Interior.ColorIndex = 15
Range("F196:J208").Interior.ColorIndex = xlNone
Else
Range("F74:J83").Interior.ColorIndex = 15
Range("F84:J88").Interior.ColorIndex = xlNone
Range("F93:J93").Interior.ColorIndex = 15
Range("F95:J95").Interior.ColorIndex = 15
Range("F118:H122").Interior.ColorIndex = 15
Range("F125:H128").Interior.ColorIndex = xlNone
Range("F138:J142").Interior.ColorIndex = 15
Range("F143:J146").Interior.ColorIndex = xlNone
Range("F165:J168").Interior.ColorIndex = 15
Range("F169:J172").Interior.ColorIndex = xlNone
Range("F196:J208").Interior.ColorIndex = 15
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H74:J83")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H93:J93")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H95:J95")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H118:H122")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H138:J142")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H165:J168")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
Else
If Not Intersect(Target, Range("H196:J208")) Is Nothing Then
If [F34] = "Autolock Analysis" Then [F34].Select
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionBlock(ByVal Target As Range)
If Not Intersect(Target, Range("H84:J88")) Is Nothing Then
If [F34] = "Stud bolts fixation" Then [F34].Select
Else
If Not Intersect(Target, Range("H125:H128")) Is Nothing Then
If [F34] = "Stud bolts fixation" Then [F34].Select
Else
If Not Intersect(Target, Range("H143:J146")) Is Nothing Then
If [F34] = "Stud bolts fixation" Then [F34].Select
Else
If Not Intersect(Target, Range("H169:J172")) Is Nothing Then
If [F34] = "Stud bolts fixation" Then [F34].Select
End If
End If
End If
End If
End Sub
---------------------------------------------------------------------------
Merci beaucoup en tout cas!
A+
Mathieu