sub dans un range de cellules

Le
BeBo
Bonjour j'ai ce code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If ActiveCell = True Then
Exit Sub
Else
If ActiveCell = False Then
MsgBox "Affecter la macro ici"
End If
End If
End Sub "

mais aimerais l'excuter que dans une plage de cellule dfinie
par ex de A1:B5

qqun pourrait m'aider ?
merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
anonymousA
Le #3405401
Bonjour

set plage=sh.range("A1:B5")
if not intersect(target,plage) is nothing then
If ActiveCell = True Then
Exit Sub
Else
If ActiveCell = False Then
MsgBox "Affecter la macro ici"
End If
End If
end if

A+
ThierryP
Le #3405391
bonjour BeBo,

Ajoute cette ligne au début du code :
if intersect(Target,range("A1:B5")) is nothing then exit sub

Bonjour j'ai ce code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If ActiveCell = True Then
Exit Sub
Else
If ActiveCell = False Then
MsgBox "Affecter la macro ici"
End If
End If
End Sub "

mais aimerais l'exécuter que dans une plage de cellule définie
par ex de A1:B5

qqun pourrait m'aider ?
merci



--
@+ thierryp

Publicité
Poster une réponse
Anonyme