|
|
|
|
Bonjour à tous,
Voilà ce que j'aimerais faire mais je bloque pour traduire le texte en gras en VBA....
Sub Worksheet_change(ByVal Target As range)
If Activecell appartient à une plage de cellules fixes Then MsgBox vbOKOnly
End Sub
Dans un second temps : est-il possible d'avoir une plage mobile du type (ligneI, colonneJ : ligneI2, colonneJ2)?
Merci d'avance
Bonjour,
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).
|
Re :
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 |
Dim plage as range, i&, cell as range, rng as range Driver rangemax Erreur 1004 methode select de la classe range vba excel Erreur range commandbutton vba excel Etui cd rangement champs libre Icon transparent ranger icons iphone Input signal out of range change settings Location.href target blank Out of range Out of range au demarrage Power ranger Range select Rangement carte sd Sub worksheet_selectionchange(byval target as range) Target html Target vba excel Target.ink raccourci Vba excel range