Bonjour,
J'ai créé un bordereau de saisie (pour des commandes) avec un calendrier en A1. Mais je voudrais que les données du tableau restent en mémoire, quand on change la date de saisie.
j'ai trouvé un code, mais je n'arrive pas à l'adapter à ma feuille.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCel
If Not Intersect(Range("A1"), Target) Is Nothing Then
NewCel = Target
With Application
.ScreenUpdating = False
.EnableEvents = False
.Undo
If Target <> "" Then Sauvegarde
Target = NewCel
If Target <> "" Then Recupere
.EnableEvents = True
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Columns("A:AI").ColumnWidth = 19
If Not Intersect(Range("A4:AI23"), Target) Is Nothing And Target.Count = 1 Then
Columns(Target.Column).ColumnWidth = 20
End If
End Sub
Private Sub Calendar1_Click()
ActiveSheet.Range("A1").Value = Calendar1.Value
End Sub
Quelqu'un peut-il m'aider?? svp??
J'ai créé un bordereau de saisie (pour des commandes) avec un calendrier en A1. Mais je voudrais que les données du tableau restent en mémoire, quand on change la date de saisie.
j'ai trouvé un code, mais je n'arrive pas à l'adapter à ma feuille.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCel
If Not Intersect(Range("A1"), Target) Is Nothing Then
NewCel = Target
With Application
.ScreenUpdating = False
.EnableEvents = False
.Undo
If Target <> "" Then Sauvegarde
Target = NewCel
If Target <> "" Then Recupere
.EnableEvents = True
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Columns("A:AI").ColumnWidth = 19
If Not Intersect(Range("A4:AI23"), Target) Is Nothing And Target.Count = 1 Then
Columns(Target.Column).ColumnWidth = 20
End If
End Sub
Private Sub Calendar1_Click()
ActiveSheet.Range("A1").Value = Calendar1.Value
End Sub
Quelqu'un peut-il m'aider?? svp??
Pièces jointes
Dernière édition: