Discussion :

[MichaSarah]

Bonjour,
Je souhaiterais pouvoir recopier la valeur d'une cellule excel dans un DTPickers. Le format de la cellule est une date , mais elle peut être également vide. Le DTPickers étant un calendrier je ne sais pas comment réaliser cette action ?
Pourriez-vous m'apporter votre aide ?

Merci
MichaSarah

[Basicnav]

Bonjour,

pour alimenter ton dtpicker, tu utilise :

Code :

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

DTPicker1.Value = Cells(1,1).Value

a toi de bien initialiser tes variables.

En revanche, je ne comprends pas ta deuxième question dans le cas ou la cellule et vide...

Peut-être en mettant un if, si la cellule est vide alors le dtpicker prends la date système...
J'ai bien compris ?

[MichaSarah]

Bonsoir Basicnav,
Merci pour ta réponse. Pour la documentation du DTPickers avec le contenu non vide d'une cellule j'avais réussi à trouver le code.Ce qui me bloque c'est quand une cellule est vide je souhaiterais qu'aucune date ne s'affiche dans le DTPickers. Actuellement si la cellule est vide, un message d'erreur s'affiche à l'écran.

Merci
Salutations
MichaSarah

[fring]

Bonjour,

Il n'est pas possible de n'afficher aucune date dans le DTPickers.
Tu vérifies le contenu de ta cellule, si celle-ci est vide ou que son contenu n'est pas une date, tu laisses l'affichage par défaut qui est la date du jour.

Code :

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

1
2
3
With Sheets(1)
    If .Range("A1") <> "" And IsDate(.Range("A1")) Then UserForm1.DTPicker1 = .Range("A1")
End With

[Basicnav]

Re,

dans un premier temps et peut-être avant que tu n'ai un mauvaise surprise, le format date du dtpicker peut être en UK (dd/mm/yyyy) ou français (jj/mm/aaaa) mais mettre les deux formats en même temps ne fonctionne pas.

Pour initialiser ton dtpicker et en prenant en charge la gestion d'un cellule vide, tu peux faire un test sur cette cellule, si elle est vide, le dtpicker sera "grisé" si elle contient une valeur de date, le dtpicker prendra la même valeur :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
  If IsEmpty(Cells(1, 1)) Then
    Me.DTPicker1.Enabled = False
  Else
    Me.DTPicker1.Enabled = True
    Me.DTPicker1.Value = Cells(1, 1).Value
End Sub

Ici le test ne se fait que sur une cellule qui est fixe :

If IsEmpty(Cells(1, 1)) Then

mais tu pourras y mettre des variables si tu le souhaite....

j'espère avoir bien compris ton problème et y avoir répondu

[MichaSarah]

Bonsoir Basicnav,
Merci pour ta solution. Je souhaitais pouvoir mettre un blanc dans le DTPickers mais ce n'est pas possible. Ta proposition me sera certainement utile plus tard.

Salutations
MichaSarah