Transcription dans toutes les cellules
Résolu
cqui
-
Cqui -
Cqui -
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??
A voir également:
- Transcription dans toutes les cellules
- Transcription audio en texte word gratuit - Guide
- Transcription whatsapp - Accueil - Messagerie instantanée
- Transcription youtube - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Transcription texte en audio - Guide
2 réponses
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
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