Rapport de message :*
 

Re: Modification de date suite à une modification de cellule

Titre du sujet : Re: Modification de date suite à une modification de cellule
par Débutant le 16/04/2013 13:25:03

Bonjour,

Cela marche bien sauf si je suis en réseau. J'ai une erreur sur la ligne suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lmax As Long
     'Ne gère pas les modifications par plage entière
     If Target.Count > 1 Then Exit Sub
     Lmax = Cells(Rows.Count, 1).End(xlUp).Row
     'Si modif du stock réel en colonne E
     If Not Application.Intersect(Target, Range(Cells(36, 15), Cells(Lmax, 40))) Is Nothing Then
         If Target.Value <> Target.Offset(38, 15).Value Then
             'Si quantité change (colonne E <> colonne J), alors insérer la Date du jour en colonne G
             Target.Offset(2, 0).Value = Date
         End If
     End If
End Sub

Que faut-il faire?

Merci de votre aide