Pbavec Worksheet_change(ByVal Target As range
Résolu/Fermé
A voir également:
- Pbavec Worksheet_change(ByVal Target As range
- Input signal out of range ✓ - Forum Matériel informatique
- Private sub worksheet_selectionchange(byval target as range) ✓ - Forum Programmation
- Vba range avec variable ✓ - Forum VB / VBA
- Range ip ✓ - Forum Windows
- Worksheet_change sur une cellule ✓ - Forum Excel
4 réponses
Bonjour,
Exemple :
Lupin
Exemple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intersection As Range, Plage As Range
Set Plage = Range("B5:C8")
Set Intersection = Application.Intersect(Target, Plage)
If Intersection Is Nothing Then
MsgBox "La cellule visée n'est pas dans la plage !"
Else
MsgBox "La cellule visée est dans la plage !"
End If
Set Plage = Nothing
Set Intersection = Nothing
End Sub
'
Lupin
Merci ça avance, seulement ceci fonctionne quand je clique sur la cellule et non quand je modifie la valeur de celle-ci (c'est vrai je ne l'avais pas précisé avant, dsl).
Autrement dit, il faudrait que ce programme recalcule automatiquement et enregistre les anciennes valeurs (ce code sera mis après le then à la place de la msgbox) que lorsque je modifie une valeur de la plage de cellule. Alors qu'avec ce programme il agit quand je clique sur la cellule.
Vins
Autrement dit, il faudrait que ce programme recalcule automatiquement et enregistre les anciennes valeurs (ce code sera mis après le then à la place de la msgbox) que lorsque je modifie une valeur de la plage de cellule. Alors qu'avec ce programme il agit quand je clique sur la cellule.
Vins
re :
Il s'agit simplement de changer d'évènement.
Lupin
Il s'agit simplement de changer d'évènement.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Intersection As Range, Plage As Range
Set Plage = Range("B5:C8")
Set Intersection = Application.Intersect(Target, Plage)
If Intersection Is Nothing Then
MsgBox "La cellule visée n'est pas dans la plage !"
Else
MsgBox "La cellule visée est dans la plage !"
End If
End Sub
'
Lupin