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 |
Forums