VBA sur modification cellule (plusieurs lignes)

Version imprimable

Bonjour,

Pourriez-vous m'aider ?

J'aimerais pouvoir sur plusieurs lignes (+3000) pouvoir ajouter l'heure et la date de l'encodage d'une cellule (nom), je m'explique avec un exemple:

Les colonnes :

NOM PRENOM DISTANCE.... TIMER

Les lignes :
de 5 à 3000

Exemple :

B C D E F

NOM PRENOM CONTACT DISTANCE.... TIMER

MEYS Luc 02/254 ** ** 10 25-07-2020 : 12:04

BOUNS François 02/554 ** ** 5 25-07-2020 : 12:08

LEGRAND Julie 02/284 ** ** 5 26-07-2020 : 12:15

MOONS Marie 02/234 ** ** 20 26-07-2020 : 13:11

...

Maintenant : si j'encode à la suite, MILOU | Marc | 02/5487 ** ** |10 | la date et l'heure du moment s'affiche ici...

J'ai ceci comme base, mais comment jouer sur plusieurs lignes ?
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B5")) Is Nothing Then If Range("F5") = "" Then Range("F5") = Date & " - " & Time End If End Sub
Merci d'avance

B	C	D	E	F
NOM	PRENOM	CONTACT	DISTANCE....	TIMER
MEYS	Luc	02/254	10	25-07-2020 : 12:04
BOUNS	François	02/554	5	25-07-2020 : 12:08
LEGRAND	Julie	02/284	5	26-07-2020 : 12:15
MOONS	Marie	02/234	20	26-07-2020 : 13:11
...

J'ai essayé ceci, mais...

Code:

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B" & ActiveCell.Row)) Is Nothing Then
If Range("F" & ActiveCell.Row) = "" Then Range("F" & ActiveCell.Row) = Date & " - " & Time
End If
End Sub

25/07/2020, 14h24
Crachover
Je viens de tester et je remarque que la date et l'heure s'affichent non pas sur la ligne d'encodage mais sur la ligne sélectionnée juste après, donc si après l'encodage je clique sur une ligne avant et bien le TIMER se mettra avant, de même pour après...
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B5:B3005")) Is Nothing Then Range("F" & ActiveCell.Row) = Date & " - " & Time End If End Sub

Bonjour,

Essaies:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
  If Target.Column = 1 Then
    For Each c In Target.Columns(1).Cells
      If c.Row > 4 Then
        If c.Offset(0, 3).Value = "" And c.Value <> "" Then
          c.Offset(0, 3).Value = Date & " - " & Time
        ElseIf IsEmpty(c.Value) Then
          c.Offset(0, 3).Formula = ""
        End If
      End If
    Next c
  End If
End Sub

J'ai trouvé ceci, il y a des améliorations, mais ce n'est toujours pas ça... :calim2:
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B5:B3005")) Is Nothing Then Range("B1") = Range("B" & Rows.Count).End(xlUp).Row If Range("F" & Range("B1")) = "" Then Range("F" & Range("B1")) = Date & " - " & Time End If End Sub
Fonctionne avec des changement de cellule vers le bas, mais pas vers le haut... :weird::weird:

25/07/2020, 15h37
Patrice740

As-tu essayé mon code ?

Citation:

Envoyé par Crachover

J'aimerais ... pouvoir ajouter l'heure et la date de l'encodage d'une cellule (nom)....
.....

Code:

If Not Intersect(Target, Range("B5:B3005")) Is Nothing Then

Pourquoi testes-tu l'«encodage » du prénom au lieu de celui du nom ?

Bonjour,

Je n'avais pas vu votre message... cela fonctionne nickel ! Grand merci :D:D

Code:

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
  If Target.Column = 2 Then
    For Each c In Target.Columns(1).Cells
      If c.Row > 5 Then
        If c.Offset(0, 4).Value = "" And c.Value <> "" Then
          c.Offset(0, 4).Value = Date & " - " & Time
        ElseIf IsEmpty(c.Value) Then
          c.Offset(0, 4).Formula = ""
        End If
      End If
    Next c
  End If
  End Sub

PS : j'aurais aimé protégé la feuille et surtout la colonne TIMER, mais si je protège cette colonne, le code ne fonctionne plus...