Discussion :

[MadeInSwiss]

Bonjour à tous,

Voici un petit problème que je n'arrive pas à résoudre : j'ai dans ma feuille excel dans la colonne F une date que je veux remonter dans mon userform lors de la consultation/modification d'une fiche. Cette date doit remonter dans mon userform dans un DTpicker (box qui a servi lors de l'enregistrement de la fiche).
Or malgré plusieurs essais de codage, j'ai des messages d'erreurs.
Avez vous une solution pour que je puisse lors de la consultation de ma fiche via userform voir ma date préalablement enregistrée dans ma case DTpicker? Est ce possible?

Merci par avance pour vos réponses.

Cordialement.

[Igloobel]

Bonjour,

Tu es sur quelle version ?

ton classeur à été créé sur quelle version ?

tu dis


A+

[MadeInSwiss]

Bonjour,

Tu es sur quelle version ?

ton classeur à été créé sur quelle version ?

tu dis


A+

Bonjour,

créé sous Excel 2013

[MadeInSwiss]

je crois avoir trouvé le problème,
dans ma colonne de date (F) toutes les cellules ne sont pas remplies car elles ne se remplissent que sous condition.
Du coup avec toutes les cellules remplies, je n'ai plus d'erreur.
Par contre y a t il une solution pour que je n'ai plus d'erreur si toutes mes cellules de la colonne F ne sont pas remplies?

[MadeInSwiss]

Bonjour,
Après plusieurs recherches, j'aimerais savoir de votre part (les experts d'excel et VBA) si il est possible de définir que dans un DTPicker soit on choisit une date et elle va se mettre dans la feuille de données soit si aucune action n'est faite sur la case DTPicker et on met un "X" dans la feuille de données. Par contre, il ne faut pas qu'il y ait d'erreur lors de la consultation de la fiche depuis le userform.

Je suis tombé sur le code ci-dessous, pensez vous que cette piste peut résoudre mon problème :

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
 Private Sub DTPicker1_CloseUp()
  FormatDTPicker
End Sub
 
Private Sub DTPicker1_Format(ByVal CallbackField As String, FormattedString As String)
  If CallbackField = "X" Then FormattedString = ""
End Sub
 
Private Sub DTPicker1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As _
                                stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
  With DTPicker1
    If .Value = vbNull Then
      .Value = Now
    End If
  End With
End Sub
 
Private Sub UserForm_Initialize()
  DTPicker1.Value = vbNull
  FormatDTPicker
End Sub
 
Private Sub FormatDTPicker()
  With DTPicker1
    If .Value = vbNull Then
      .Format = dtpCustom
      .CustomFormat = "X"
    Else
      .Format = dtpShortDate
    End If
  End With
End Sub