Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Indiquer la date de modification d'une cellule dans la cellule suivante, toutes les 4 lignes.

Indiquer la date de modification d'une cellule dans la cellule suivante, toutes les 4 lignes.

2 réponses
Avatar
tintin92
Bonjour,

Je souhaite indiquer la date de modification d'une cellule dans la cellule
suivante toutes les quatre lignes.
Ce que j'arrive à faire, c'est indiquer la date de modification d'une
cellule dans la cellule suivante pour toutes les lignes.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, 1).Value = Date
End Sub

Comment ne déclancher cet évènement que toutes les quatre lignes ?

Merci d'avance.

Tintin92
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Comment ne déclancher cet évènement que toutes les quatre lignes ?


Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Row Mod 4 = 0 And zz.Column = 3 Then zz.Offset(0, 1).Value = Date
End Sub

AV

Avatar
tintin92
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Row Mod 4 = 0 And zz.Column = 3 Then zz.Offset(0, 1).Value = Date
End Sub

AV


Merci, ça semble fonctionner comme souhaiter.

Tintin92