Discussion :

[pilounet54]

bonjour j'ai ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range) 
 Dim mCellule As Object
    'If autorise_traitement = True Then
     For Each mCellule In Target
            If mCellule.Column = 3 Then
                traiter_cellule mCellule
            End If
        Next mCellule
    'End If
End Sub

mais ,si je colle des données cela ne traite pas les mcellule comment je peus faire svp