Figer des nombres

[mcj1997]

Bonjour,

Dans une feuille spécifique est-il possible d'inscrire automatique des résultats figurant dans une autre feuille du dossier.

Ex : mes résultats dans feuille 1 qui changent tous les jours :

A1 = 5 A2 = 123 au 29/08

je souhaite que ces chiffres soit reportés dans ma feuille 2.

A1 = 45 A2 = 345 au 30/08 et ainsi de suite

dans ma feuille 2 je dois avoir 2 lignes avec les valeurs du 29/08 et les valeurs du 30/08


Merci d'avance,

 

[SergiO]

Re : Figer des nombres

Bonjour mcj1997,

Voici un exemple à tester.

@+

 

[mcj1997]

Re : Figer des nombres

Bonsoir,

A priori cela fonctionne, merci de me faire savoir comment le faire afin que je puisse l'intégrer dans un autre programme.

cordialement,

 

[SergiO]

Re : Figer des nombres

Re,

Il faut copier ce code dans la feuil1 de ton fichier (clic droit sur l'onglet et visualiser le code):

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Range("C1") = Date Then
Message = MsgBox("Les valeurs pour cette date ont déjà été enregistrées!", vbExclamation, "Alerte")
Exit Sub
End If
Range("C1") = Date
With Sheets("Feuil2")
Lig = .Range("A65536").End(xlUp).Row + 1
.Cells(Lig, 1) = Range("A1")
.Cells(Lig, 2) = Range("A2")
.Cells(Lig, 3) = Date
End With
End If
End Sub

@+