Discussion :

[pilounet54]

bonjour j'essaye de avec ce code si un target et dans la colonne 13
mais dans une plage et qui commencerai en ligne 5 jusqu’à 365

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

pouvez vous m'aider
cordialement et merci à tous

[EngueEngue]

A placer dans ton le module de ton sheet

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
Set KeyCells=Sheets("Tonsheet").range("M5:M365")
 
If not application.intersect(KeyCells, Range(Target.Address)) Is nothing then
traiter_cellule target
end if
End sub