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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 = ""