|
|
|
|
Bonjour,
Suggestion / exemple : Le code doit être placé derrière une feuille et non un formulaire, la variable [Plage] reçoit la cellule sélectionné. Private Sub Worksheet_Change(ByVal Plage As Range) Dim Valeur As String Dim CelluleVise 'La valeur de [CelluleVise] prendra la valeur de [Plage] si et seulement si 'elle est situé dans le range [I12:I36]. Set CelluleVise = Application.Intersect(Plage, Range("I12:I36")) If CelluleVise Is Nothing Then MsgBox "La cellule n'est pas dans l'intersection" Else MsgBox Activecell.Offset(0, 0).Value End If End Sub Est-ce claire pour toi ? Lupin ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |
Résultats pour [Excel VBA] Intercept° d'une modif de cellule
Résultats pour [Excel VBA] Intercept° d'une modif de cellule