Cellule appartenant a un rang

Bonsoir
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:B10")) Is Nothing Then Exit Sub
ton code
End Sub

Amicalement.

Abed_H

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement du contenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et valide
un nombre en B6, je veut appeler une procédure que j'ai déjà établi dans mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("B2:B10,D2:D10,D20:D25")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub

ou si champs nommés:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("champ1,champ2,champ3")) Is Nothing
And Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub


Cordialement JB

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement du co ntenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et vali de
un nombre en B6, je veut appeler une procédure que j'ai déjà étab li dans mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario

Bonjour Monsieur JB
une petite eclaircissement sur " Target.Count = 1 " juste pour savoir à quoi
sert.
merci d'avance

Abed_H

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("B2:B10,D2:D10,D20:D25")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub

ou si champs nommés:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("champ1,champ2,champ3")) Is Nothing
And Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub


Cordialement JB

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement du contenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et valide
un nombre en B6, je veut appeler une procédure que j'ai déjà établi dans mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario

Poue éviter l'exécution du code si on efface un champ de plusieurs
cellules

JB

Bonjour Monsieur JB
une petite eclaircissement sur " Target.Count = 1 " juste pour savoir à quoi
sert.
merci d'avance

Abed_H

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("B2:B10,D2:D10,D20:D25")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub

ou si champs nommés:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("champ1,champ2,champ3")) Is Nothing
And Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub


Cordialement JB

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement d u contenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et valide
un nombre en B6, je veut appeler une procédure que j'ai déjà établi dans mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario

Merci bien

Poue éviter l'exécution du code si on efface un champ de plusieurs
cellules

JB

Bonjour Monsieur JB
une petite eclaircissement sur " Target.Count = 1 " juste pour savoir à quoi
sert.
merci d'avance

Abed_H

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("B2:B10,D2:D10,D20:D25")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub

ou si champs nommés:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("champ1,champ2,champ3")) Is Nothing
And Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub


Cordialement JB

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement du contenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et valide
un nombre en B6, je veut appeler une procédure que j'ai déjà établi dans mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario

Merci tu m'as lancé sur la bonne piste. J'ai réussi a modifier mon code
pour obtenire les résultats efficaces

Mario ;-)
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1150517856.708696.128680@r2g2000cwb.googlegroups.com...
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
if Not Intersect(Target, Range("B2:B10,D2:D10,D20:D25")) Is Nothing And
Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub

ou si champs nommés:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("champ1,champ2,champ3")) Is Nothing
And Target.Count = 1 Then
Target.Interior.ColorIndex = 3
End If
End Sub


Cordialement JB

Bonjour à tous (office 20020)

je cherches la façon efficace d'intercepter en VBA, le changement du
contenu
d'une cellule qui appartient a un "range" bien précis.

ex: pour le range de cellules (B2:B10) , si l'utilisateur integre et
valide
un nombre en B6, je veut appeler une procédure que j'ai déjà établi dans
mon
code.

Cette validation devra s'appliquer sur plusieurs range distinc

Merci à l'avance

Mario