transcription dans toutes les cellules Résolu/Fermé

Question

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??


Configuration: Windows XP / Internet Explorer 8.0

michel_m · Answer

Bonjour

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

Cqui · Answer

Merci pour votre aide ça fonctionne super bien .

Transcription dans toutes les cellules

2 réponses

Discussions similaires