Discussion :

[pilounet54]

bonjour
un petit coup de main svp

je souhaite traiter le target sur la colonne 13 mais qu'à partir de la ligne 5
pourvez vous m'aider svp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 
 '''''''''''''''''''''''traiter cellule
 
 Dim mCellule As Object
 
    For Each mCellule In Target
        If mCellule.Column = 13 Then
 
            traiter_cellule mCellule
 
        End If
    Next mCellule
 
End Sub

[Invité]

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
  Dim mCellule As Range
 
  For Each mCellule In Target
 
    If mCellule.Column = 13 And mCellule.Row > 5 Then
      traiter_cellule mCellule
    End If
 
  Next mCellule
 
End Sub

Ou tu peux aussi utiliser la fonction 'Intersect'.

[pilounet54]

merci les pro