A voir également:
- [Excel VBA] Intercept° d'une modif de cellule
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - 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
