Explication
Bonjour, je suis débutant en vb j'ai besoin d'aide sur la portée de ce code merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(4, 4) = 2 Then
Cells(6, 8) = 0
End If
If Cells(7, 4) = 2 Then
Cells(7, 6) = ""
Cells(7, 8) = ""
End If
If Not Intersect(Range("f4,f6,h4,h5,j2:n34,c23:f26,c28:f32,c27,f27,b34"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(4, 4) = 2 Then
Cells(6, 8) = 0
End If
If Cells(7, 4) = 2 Then
Cells(7, 6) = ""
Cells(7, 8) = ""
End If
If Not Intersect(Range("f4,f6,h4,h5,j2:n34,c23:f26,c28:f32,c27,f27,b34"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
2 réponses
-
melanie1324, tu es drôlement gentille...
Je pense que le code que tu ne connais pas correspond à l'intersection de deux ensemble de plages => Si la plage cible fait partie d'une plage intouchable, on dégage la sélection en-dehors -
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' la macro se déclenche dès qu'il y a un changement de la feuille
' si la cellule de la ligne 4 et colonne 4 = 2 alors
If Cells(4, 4) = 2 Then
' la cellule de la ligne 6 colonne 8 = 0
Cells(6, 8) = 0
End If
' si la cellule de la ligne 7 colonne 4 = 2 alors
If Cells(7, 4) = 2 Then
Les cellules des lignes 7 et colonne 6 et 8 sont égales à rien ("")
Cells(7, 6) = ""
Cells(7, 8) = ""
End If
' ca je ne sais pas
If Not Intersect(Range("f4,f6,h4,h5,j2:n34,c23:f26,c28:f32,c27,f27,b34"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
