Discussion :

[Tar180]

Bonsoir,

j'ai crée un formulaire qui me permet de gérer sur excel une petite base de donnée, j'aimerai que mon premier textbox (dateA) ne se décharge pas après un enregistrement et garde la valeur par défaut de ma dernière saisie.

Voici le code que j'utilise

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
Private Sub Valider_Click()
    If UserForm1.DateA = "" Or UserForm1.Marque = "" Or UserForm1.Options = "" Or UserForm1.SousOptions = "" Then
    MsgBox "Veuillez saisir tout les champs"
    Else
    i = 2
    With Sheets("Base de donnée")
    ' i = première ligne libre
   i = .Range("a" & .Rows.Count).End(xlUp).Row + 1
    .Cells(i, 1).Value = UserForm1.DateA
    .Cells(i, 2).Value = UserForm1.Marque
    .Cells(i, 3).Value = UserForm1.Options
    .Cells(i, 4).Value = UserForm1.SousOptions
 End With
 
  Unload UserForm1
    End If
    End Sub

Merci d'avance

[Qwazerty]

Salut

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    .Cells(i, 1).Value = UserForm1.DateA
    .Cells(i, 2).Value = UserForm1.Marque
    .Cells(i, 3).Value = UserForm1.Options
    .Cells(i, 4).Value = UserForm1.SousOptions
    'On vide les champs sauf DateA
    UserForm1.Marque = ""
    UserForm1.Options = ""
    UserForm1.SousOptions = ""
 
 End With
 
'On masque juste le userform sans le décharger
  UserForm1.hide

++
Qwaz