Supposons une cellule dont la valeur est modifiée disons une fois par
semaine. Comment récupérer et conserver automatiquement ces valeurs en
fonction de la date de saisie
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
Xav
Bonjour ppinede,
il faut insérer la macro suivante directement dans la feuille dans laquelle la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule B2
Der_Ligne = Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la valeur de B2 dans la feuille Histo Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date de modification dans la feuille Histo
End If
End Sub
-- Cordialement
@+ Xav "ppinede" a écrit dans le message de news:42c3dda2$0$874$
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par semaine. Comment récupérer et conserver automatiquement ces valeurs en fonction de la date de saisie
Merci
Bonjour ppinede,
il faut insérer la macro suivante directement dans la feuille dans laquelle
la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes
valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule B2
Der_Ligne = Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row
Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la
valeur de B2 dans la feuille Histo
Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date de
modification dans la feuille Histo
End If
End Sub
--
Cordialement
@+
Xav
"ppinede" <ppinede@wanadoo.fr> a écrit dans le message de
news:42c3dda2$0$874$8fcfb975@news.wanadoo.fr...
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par
semaine. Comment récupérer et conserver automatiquement ces valeurs en
fonction de la date de saisie
il faut insérer la macro suivante directement dans la feuille dans laquelle la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule B2
Der_Ligne = Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la valeur de B2 dans la feuille Histo Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date de modification dans la feuille Histo
End If
End Sub
-- Cordialement
@+ Xav "ppinede" a écrit dans le message de news:42c3dda2$0$874$
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par semaine. Comment récupérer et conserver automatiquement ces valeurs en fonction de la date de saisie
Merci
Pierre
Merci beaucoup "Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le message de news:
Bonjour ppinede,
il faut insérer la macro suivante directement dans la feuille dans laquelle la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule B2
Der_Ligne = Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la valeur de B2 dans la feuille Histo Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date de modification dans la feuille Histo
End If
End Sub
-- Cordialement
@+ Xav "ppinede" a écrit dans le message de news:42c3dda2$0$874$
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par semaine. Comment récupérer et conserver automatiquement ces valeurs en fonction de la date de saisie
Merci
Merci beaucoup
"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news: uncvT6XfFHA.1948@TK2MSFTNGP12.phx.gbl...
Bonjour ppinede,
il faut insérer la macro suivante directement dans la feuille dans
laquelle
la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes
valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule
B2
Der_Ligne =
Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row
Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la
valeur de B2 dans la feuille Histo
Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date
de
modification dans la feuille Histo
End If
End Sub
--
Cordialement
@+
Xav
"ppinede" <ppinede@wanadoo.fr> a écrit dans le message de
news:42c3dda2$0$874$8fcfb975@news.wanadoo.fr...
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par
semaine. Comment récupérer et conserver automatiquement ces valeurs en
fonction de la date de saisie
Merci beaucoup "Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le message de news:
Bonjour ppinede,
il faut insérer la macro suivante directement dans la feuille dans laquelle la cellule est modifiée
Dans cet exemple, la cellule modifiée est la cellule B2. Les différentes valeurs sont stockées dans une feuille "Histo"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der_Ligne As Integer
If Target = Cells(2, 2) Then 'détection de la modification de la cellule B2
Der_Ligne = Worksheets("Histo").Range("A1").SpecialCells(xlLastCell).Row Worksheets("Histo").Cells(Der_Ligne + 1, 1) = Cells(2, 2) 'copie de la valeur de B2 dans la feuille Histo Worksheets("Histo").Cells(Der_Ligne + 1, 2) = Now() 'copie de la date de modification dans la feuille Histo
End If
End Sub
-- Cordialement
@+ Xav "ppinede" a écrit dans le message de news:42c3dda2$0$874$
Bonjour,
Supposons une cellule dont la valeur est modifiée disons une fois par semaine. Comment récupérer et conserver automatiquement ces valeurs en fonction de la date de saisie
