Explication

Fermé
atous70 - 4 sept. 2013 à 19:00
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 5 sept. 2013 à 09:47
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

2 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
5 sept. 2013 à 09:22
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
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
5 sept. 2013 à 09:47
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
0