Pbavec Worksheet_change(ByVal Target As range

Bonjour,

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

re :

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

Je ne connaissais pas cette histoire d'évennement.....! Encore beaucoup à apprendre!

Merci pour ton aide rapide et précise! Je pense pouvoir y arriver seul pour la suite.

Vins