Bonjour,
Dans la colonne B je dois renseigner des avancement (en pourcentage) et la colonne C reçoit la date de modification des valeurs de la colonne B.
Par exemple si je met 10% à une date, la date s'enregistre dans la colonne C et si les jours suivants il arrive que j'inscris le même 10%, la date ne doit pas changer, par contre si j'inscris une autre valeur que 10% la date doit changer. voici un code mais le soucis est que lorsque je tire une cellule par le bas pour avoir les même pourcentages, le code ne s'applique aux autres cellules, c'est-à-dire aucune date ne s'inscrit.
je voudrais avoir la possibilité d'avoir le même résultat lorsque je tire une cellule par le bas. je sais pas comment faire. y t-a-il un autre code ou comment adapter ce code.
Ci joint le fichier pour plus de visibilité.
Merci
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
16
17
18 Option Explicit Dim T, V, Col Dim plage As Range Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub Application.EnableEvents = False For Each plage In Target T = Target.Value Application.Undo V = ActiveCell ActiveCell = T If T <> V Then plage.Offset(0, 1) = Date End If Next plage Application.EnableEvents = True End Sub
Partager