Discussion :

[christian_koffi]

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

[Docmarti]

Bonjour christian_koffi

Si je comprends bien ton but :

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
19
20
21
22
23
24
25
26
27
28
29
30
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim C
Dim C_precedent
Dim d
Dim d_precedent
Dim Plage
 
If Target.Column <> 3 Then Exit Sub
 
Application.EnableEvents = False
For Each Plage In Target
       If Plage.Column = 3 Then
            C = Plage.Value
            C_precedent = Plage.Offset(-1, 0).Value
            d_precedent = Plage.Offset(-1, 1).Value
            If C = "" Then
                Plage.Offset(0, 1) = ""
            ElseIf C = C_precedent Then
                 Plage.Offset(0, 1) = d_precedent
            Else
                Plage.Offset(0, 1) = Date
            End If
        End If
Next Plage
Application.EnableEvents = True
End Sub

[christian_koffi]

Bonjour Docmarti,
Merci mais ça ne marche toujours pas.

Par exemple ce que je voudrais:
Si le 27/09/2014 je mets 10% en C2, D2 reçoit 27/09/2014. Si le 28/09/2014 je remets 10% en C2, D2 reçoit 27/09/2014 car la valeur n'a pas changé. Par contre si le 28/09/2014 je mets 20%, D2 reçoit 28/09/2014 car la valeur a changé. J'ai testé le code mais ça ne marche pas.

[eriiic]

Bonjour,

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)
    Dim c As Range, memo As Double
    If Target.Column <> 3 Or Target.Row = 1 Then Exit Sub
    Application.EnableEvents = False
    memo = Target.Range("A1").Value
    Application.Undo
    For Each c In Target
        If c <> memo Then
            c.Offset(0, 1) = Date
        End If
        c = memo
    Next c
    Application.EnableEvents = True
End Sub

EDIT: code modifié pour la recopie incrémentée, à tester... Ne fonctionne que si c'est la même valeur qui est recopiée.

eric

[Theze]

Bonjour,

Teste ceci :

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
19
20
21
22
23
24
Dim Valeur As Date
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Address(0, 0) = "C2" Then Valeur = Target.Value
 
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address(0, 0) = "C2" Then
 
        If Target.Value > Valeur Then
 
            Application.EnableEvents = False
 
                Target.Offset(, 1).Value = Date
 
            Application.EnableEvents = True
 
        End If
 
    End If
End Sub

Hervé.

Oups, petite erreur

Remplace :

Code :

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

Dim Valeur As Date

Par :

Code :

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

Dim Valeur As Single

Hervé.

[AlainTech]

Remplace :

Code :

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

Dim Valeur As Date

Par :

Code :

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

Dim Valeur As Single

Hervé.

Bonjour,

Pourquoi?
Pour VBA comme pour Excel, une date est un nombre.
Il n'y a aucune raison de définir une variable qui doit contenir une date en Single.

[Docmarti]

christian_koffi

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 3 And Target.Columns.Count <> 1 Then MsgBox "Recopiez la colonne 3 seulement.": Exit Sub
If Target.Column <> 3 Then Exit Sub
 
Application.EnableEvents = False
 
Set targ = Target
tg = targ.Value
Target_Row = targ.Row - 1
Target_Column = targ.Column - 1
 
Application.Undo
 
On Error Resume Next
ub = UBound(tg)
Test_Tab = Err.Number
On Error GoTo 0
 
For Each c In targ
 c.Select
 
  If Test_Tab <> 0 Then
 
  If c.Value <> tg Or c.Offset(, 1) = "" Then
   c.Value = tg
   c.Offset(, 1) = Date
  End If
 
 
 Else
  c.Value = tg(c.Row - Target_Row, c.Column - Target_Column)
  c.Offset(, 1) = Date
 End If
 
Next
 
Application.EnableEvents = True
 
End Sub

[Theze]

Bonjour,

Pourquoi?
Pour VBA comme pour Excel, une date est un nombre.
Il n'y a aucune raison de définir une variable qui doit contenir une date en Single.

Hello Alain, parce que la variable ne contient pas de date mais le pourcentage d'avancement (d'ailleurs je viens de m'apercevoir que la cible est B2 et non C2 donc, à rectifier dans le code). La variable pourrai être déclarée Integer mais je ne sais pas si les pas d'avancement sont avec ou sans décimale.

Hervé.

[AlainTech]

Aaaaahhhh, ok.

J'avais pas vu.

Remarque à oublier, donc.

[Kestion100]

Bonjour,
Ma technique serait de déclencher une marco à la modification de la cellule voulue qui inscrit la date avec la fonction

Code :

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

=now()

puis dde faire un copier/coller de la valeur:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F2:F1000]) Is Nothing Then
Exit Sub 'rien faire
Else 'c'est la bonne cellule
'et tu peux rajouter un test sur le contenu
 
If Target.Value <> "" Then
 
 ActiveSheet.Unprotect
 
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = "=NOW()"
    Selection.Copy
    Range("A65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
 
 
    ActiveWorkbook.Save
 
  ActiveSheet.Protect
      'votre code
 
 
Else
Exit Sub
End If
End If
 
 
End Sub

A adapter....

[eriiic]

J'ai l'impression que le demandeur se désintéresse totalement des réponses apportées...

[christian_koffi]

Bonjour,
Je n'étais pas à mesure de répondre pour des soucis de réseaux internet. J'ai essayé le code de Eric et ça marche parfaitement comme je le veux. en ce qui concerne les pourcentages d'avancement sont sans décimal.
Merci à vous, ce forum est génial.
Merci