Discussion :

[vvv06]

Bonjour à tous,

J'ai créé un userform qui me permet de copier des données vers une feuille de calcul ("Reporting RDV"). Une autre feuille ("Synthèse client") affiche ensuite le dernier RDV réalisé pour tel et tel client, à l'aide de la fonction BDMAX().

Mon problème:

Mon user form me colle les données correctement sur ma première feuille de calcul ("Reporting RDV"). Seulement, lorsqu'un nouveau RDV a été ajouté, la date 01/01/1900 apparaît dans la deuxième feuille ("Synthèse Client")

Pensez-vous que ce problème provient du code d'archivage de l'userform ou de la fonction BDMAX ??

En fait, il suffit une fois la procédure d'archivage terminée de double cliquer sur la cellule où la date de RDV est inscrite pour que la fonction BDMX() en prenne "connaissance".

(J'ai codé cette action en VBA de sorte à ce qu'elle s'effectue automatiquement mais cela reste vain).

J'aimerais ne pas avoir à double cliquer à chaque enregistrement (!!).

Le code d'archivage de l'userform:

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
31
32
33
Private Sub CommandButton2_Click()
Dim lRow As Long
Dim lPart As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Reporting RDV")
 
lRow = Ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
lPart = Me.ComboBox11.ListIndex
 
With Ws
 
  .Cells(lRow, 1).Value = Me.ComboBox11.Value
  .Cells(lRow, 2).Value = Me.ComboBox16.Value
  .Cells(lRow, 3).Value = Me.TextBox4.Value
  .Cells(lRow, 4).Value = Me.ListBox5.Value
  .Cells(lRow, 5).Value = Me.Cbo1.Value
  .Cells(lRow, 6).Value = Me.Cbo2.Value
  .Cells(lRow, 7).Value = Me.TextBox5.Value
  .Cells(lRow, 8).Value = Me.ComboBox15.Value
 
Me.ComboBox11.Value = ""
Me.ComboBox16.Value = ""
Me.ListBox5.Value = ""
Me.Cbo1.Value = ""
Me.TextBox4.Value = ""
Me.Cbo2.Value = ""
Me.ComboBox15.Value = ""
Me.TextBox5.Value = ""
 
End With
Sheets("Formulaire").Select
End Sub

Pour plus de précisions, voir le fichier joint...

Merci de votre aide,