Worksheet_change Zone Spécifique

K

kjin

XLDnaute Barbatruc

• 29 Juillet 2010

• #2

Re : Worksheet_change Zone Spécifique

bonsoir,
affichage du message uniquement si le changement intervient en colonne 2

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
MsgBox "c'est la colonne 2"

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 29 Juillet 2010

• #3

Re : Worksheet_change Zone Spécifique

Bonsoir

en début de macro tu testes la colonne :

if not target.column = XXX then exit sub


ou avec intersect...

toujours plus rapide Kjin

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Juillet 2010

• #4

Re : Worksheet_change Zone Spécifique

Bonsoir F2T

Essayez une structure du genre :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oPlg
   Set oPlg = Intersect(Target, Column(3))
   If Not oPlg Is Nothing Then
      [COLOR="SeaGreen"]'Code à exécuter lorsque Target contient une ou
      'des cellules de la colonne 3.[/COLOR]
   End If
End Sub[/B][/COLOR]

ROGER2327
#3982

Lundi 16 Tatane 137 (Transfig. de Saint Vincent van Gogh, transmutateur, SQ)
11 Thermidor An CCXVIII
2010-W30-4T20:34:12Z

 

Vote positif 0 Vote négatif

F

F2T

XLDnaute Occasionnel

• 29 Juillet 2010

• #5

Re : Worksheet_change Zone Spécifique

Merci Messieurs

Je regarderais ca demain car la je suis over 🙂🙂.

Merci ++++

 

Vote positif 0 Vote négatif