[Excel VBA] Intercept° d'une modif de cellule
Fermé
Bonjour,
Quelqu'un saurait comment peut-on intercepter une modification sur une plage de cellules de feuille excel ?
Non parce que j'ai créé un certain nombre de fonctions personnalisées qui dépendent de la valeur de cellules de ma feuille mais les éventuelles modifications de celles-ci ne sont pas suivies d'une actualisation des cellules exécutant les fonctions s'y rapportant.
Merci par avance pour toute suggestion.
Quelqu'un saurait comment peut-on intercepter une modification sur une plage de cellules de feuille excel ?
Non parce que j'ai créé un certain nombre de fonctions personnalisées qui dépendent de la valeur de cellules de ma feuille mais les éventuelles modifications de celles-ci ne sont pas suivies d'une actualisation des cellules exécutant les fonctions s'y rapportant.
Merci par avance pour toute suggestion.
A voir également:
- [Excel VBA] Intercept° d'une modif de cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
1 réponse
Utilisateur anonyme
10 mai 2005 à 15:16
10 mai 2005 à 15:16
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
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
