Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la
fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0,
-1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules
sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de
la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la
destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then
Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les
colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
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
ChrisV
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Merci de votre aide !
Le G
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [Zn]) Is Nothing Then _
If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date
End Sub
ChrisV
"Le G" <LeG@discussions.microsoft.com> a écrit dans le message de news:
EC75634F-75AE-476F-877D-974C206DFAE7@microsoft.com...
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la
fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0,
-1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de
cellules
sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de
la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la
destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then
Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans
les
colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Merci de votre aide !
Le G
Le G
Merci, ça fonctionne super !
"ChrisV" wrote:
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Merci de votre aide !
Le G
Merci, ça fonctionne super !
"ChrisV" wrote:
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [Zn]) Is Nothing Then _
If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date
End Sub
ChrisV
"Le G" <LeG@discussions.microsoft.com> a écrit dans le message de news:
EC75634F-75AE-476F-877D-974C206DFAE7@microsoft.com...
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la
fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0,
-1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de
cellules
sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de
la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la
destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then
Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans
les
colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Merci de votre aide !
Le G
ChrisV
De rien...! >;-)
ChrisV
"Le G" a écrit dans le message de news:
Merci, ça fonctionne super !
"ChrisV" wrote:
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
Merci de votre aide !
Le G
De rien...! >;-)
ChrisV
"Le G" <LeG@discussions.microsoft.com> a écrit dans le message de news:
21157D01-C176-4E35-8E38-28E788FFC62D@microsoft.com...
Merci, ça fonctionne super !
"ChrisV" wrote:
Bonjour Le G,
Avec la plage de données B5:P20 nommée ici Zn...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [Zn]) Is Nothing Then _
If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date
End Sub
ChrisV
"Le G" <LeG@discussions.microsoft.com> a écrit dans le message de news:
EC75634F-75AE-476F-877D-974C206DFAE7@microsoft.com...
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la
fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2))
If Not Application.Intersect(Target, rng) Is Nothing Then
Target.Offset(0,
-1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de
cellules
sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A )
de
la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier
la
destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then
Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans
les
colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se
fixe...
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [Zn]) Is Nothing Then _ If Not IsEmpty(Target) Then Cells(Target.Row, 1) = Date End Sub
ChrisV
"Le G" a écrit dans le message de news:
Bonjour !
Grace à votre précieuse aide, j'ai pu mettre en place et utiliser la fonction suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Range(Cells(5, 2), Cells(20, 2)) If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
J'aimerais maintenant la modifier pour tenir compte d'une plage de cellules sur plusieurs colonnes :
Set rng = Range(Cells(5, 2), Cells(20, 15))
Mais je voudrais que la destination reste toujours la colonne 1 (ou A ) de la ligne concernée. Je n'arrive pas à trouver la synthaxe pour modifier la destination (actuel offset).
If Not Application.Intersect(Target, rng) Is Nothing Then Target."position(ligne concernée, colonne 1).Value = Now
Au résultat final, dans les lignes 5 à 20, si je rentre une donnée dans les colonnes 2 à 15, dans la même ligne, mais en colonne A, le date se fixe...
