problème date excel

Bonjour à tous.
J'ai un problème avec un code visual basic sur Excel. J'ai fait un userform pour archiver des données, je veux que la date s'ajoute pour chaque opération. Cependant à chaque fois que je fais une nouvelle opération cela me change les dates de toute la colonne. Voici le code, voyez vous le problème?
Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sheets("Hist").Select   Range("A4").Select   Do If ActiveCell.Value = "" Then GoTo archive End If   If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select End If   Loop Until ActiveCell.Value = ""   archive: ActiveCell.Formula = "=TODAY()" ActiveCell.Offset(0, 1).Select ActiveCell.Value = ComboBox3.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = ComboBox2.Value ActiveCell.Offset(0, 2).Select ActiveCell.Value = TextBox2.Value   ComboBox1.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" TextBox2.Value = ""

---

Bonjour.

Si tu veux mémoriser la date du jour, tu dois écrire cette date en valeur, et non pas une formule qui sera réévaluée chaque jour!
Donc

Code:

---

LaCellule.value = Date()

---

Cordialement,

PGZ

Et tu peux simplifier ton code sans les Select

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim NewLig As Long   With Sheets("Hist") NewLig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'NewLig première cellule vide de la colonne 1 .Range("A" & NewLig) = Date .Range("B" & NewLig).Value = Me.ComboBox3.Value .Range("C" & NewLig).Value = Me.ComboBox1.Value .Range("D" & NewLig).Value = Me.ComboBox2.Value .Range("F" & NewLig).Value = Me.TextBox2.Value End With Me.ComboBox1.ListIndex = -1 Me.ComboBox2.ListIndex = -1 Me.ComboBox3.ListIndex = -1 Me.TextBox2.Value = ""

---

Merci pour vos réponses, je comprends bien ou vous voulez en venir avec la lourdeur des select, jvais faire comme vous le conseillez.