Transcription dans toutes les cellules
Résolu
Bonjour,
j'ai une macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:M")) Is Nothing Then
If Target <> "" Then
Target.Offset(0, 1) = (Date)
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub
qui lorsque je rentre une donnée dans la rangé en g et inscrit la date dans la rangé N sauf qu'elle inscrit également la date dans toutes les cellules apres la cell que j'ai inscrit la donnée. Je veux seulement a voir l'action dans la cellule de la rangé N. Quoi faire??
j'ai une macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:M")) Is Nothing Then
If Target <> "" Then
Target.Offset(0, 1) = (Date)
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub
qui lorsque je rentre une donnée dans la rangé en g et inscrit la date dans la rangé N sauf qu'elle inscrit également la date dans toutes les cellules apres la cell que j'ai inscrit la donnée. Je veux seulement a voir l'action dans la cellule de la rangé N. Quoi faire??
2 réponses
-
Merci pour votre aide ça fonctionne super bien .
-
ContributeurBonjour
Tu dis vouloir la date en colonne N mais tu écris en colonng à L la date sera en colonne de Target +1 (target.offset(0,1)
chaque fois une date c'est un changement dans les colonnes jusqu'à M et la macro recommence alors à écrire la date à colonne +1
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G:M")) Is Nothing Then If Target <> "" Then Cells(Target.Row, "N") = Date Else Cells(Target.Row, "N") = "" End If End If End Sub
