Explication
atous70
-
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Explication
- Foyer netflix explication - Accueil - Guide streaming
- Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
- La blague des trois nains explication ✓ - Forum Loisirs / Divertissements
- Another earth explication fin - Forum Cinéma / Télé
- Chambre 1408 explication fin ✓ - Forum Cinéma / Télé
2 réponses
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
' 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