DTPicker empecher saisir clavier.

Résolu/Fermé

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014 - 10 juil. 2013 à 12:45
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 10 juil. 2013 à 16:17

Bonjour,

je travaille actuellement sur un UserForm qui comporte 3 DTPicker (1,2,et3 )
DTPicker2 ne doit pas etre inferieur a DTPicker 1 et DtPicker 3 pas inferieur a DTPicker2
avec les methode CloseUp de DTPicker je pu progammer un controles de routine qui fonctionne bien mais le probleme est l'utilisateur peut entre les date a partir du clavier.
alors j'aimerai empecher qu'il saisir les dates mais juste choisir dans le calendrier DTPicker

PS: j'ai essaye le methode
Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
mais cela ne fonctionne pas..

merci pour votre aide.

A voir également:

DTPicker empecher saisir clavier.
Changer clavier qwerty en azerty - Guide
Télécharger clavier arabe samsung - Télécharger - Bureautique
Telecharger clavier arabe تنزيل لوحة المفاتيح العربية - Télécharger - Divers Web & Internet
Clavier+ - Télécharger - Personnalisation
Caractères spéciaux symboles clavier - Guide

6 réponses

Réponse 1 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 juil. 2013 à 13:26

Bonjour,

Essaye comme ceci :

Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
'si une touche du clavier est pressée
If KeyAscii <> 0 Then
    'message à l'utilisateur (facultatif)
    MsgBox "Saisie au clavier interdite."
    'annulation de ladite touche
    KeyAscii = 0
End If
End Sub

Réponse 2 / 6

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014
10 juil. 2013 à 13:50

Merci pijaku
bien il desormais imossible de saisir une date via clavier . mais bon il reste encore un probleme. il possible de changer le valeur des date via les boutton directionnels ( fleche vers le bas reduit les chiffres et fleche vers le haut les augmente ) ainsi le controle est de nouveau contourné :(
je suppose que avec les methode
KeyUp et KeyDown cela peut etre empecher mais je sais coment les utiliser..

merci pour une aide supplementaire

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 juil. 2013 à 13:54

En effet, tu as raison. Il te suffit d'ajouter ce code :

Private Sub DTPicker1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode <> 0 Then KeyCode = 0
End Sub

'facultatif
Private Sub DTPicker1_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode <> 0 Then KeyCode = 0
End Sub

Réponse 3 / 6

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014
10 juil. 2013 à 14:10

wouahhh genial
merci bien ca marche comme il faut ...
peux peut etre me souffler encore une petite info...j'aimerai grace a un clic sur boutton a partir de n'importe support a partir du disque C telecharger une foto dans mon UserForm
cooment je fais..?
et en plus
dans une textbox j'ai une valeur. Je voudrai que lorsque je doubleclic sur la textbox qu'il ouvre ce liens
https://pqm.bmwgroup.net/jsp/extcalllang.jsp?modus=bearb&problemid=79430813

le liens doit se terminer par = "la valuer de la textbox"
tout est haut cette valeur est "79430813"
et elle peut changer " si l'utilisateur entre une valeur dans la textbox, c'est elle qui se trouvera enfin du liens"

merci encore..

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 juil. 2013 à 14:12

Je regarde ça cet aprème. Ad'Taleur!

Réponse 4 / 6

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014
10 juil. 2013 à 14:23

ok.. a tres bientot :)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 juil. 2013 à 15:03

Réponse d'après bug :
Voili voilou :
1- Charger une image dans un UserForm :
Si tu souhaites charger l'image dans le "fond" de l'Userform :

Private Sub CommandButton1_Click()
Dim MonImg As Variant
    
MonImg = Application.GetOpenFilename("Fichiers Images (*.jpg; *.gif),*.jpg;*.gif")
If MonImg = False Then MsgBox "Opération annulée.": Exit Sub
UserForm1.Picture = LoadPicture(MonImg)
UserForm1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

Si tu souhaites charger l'image dans un contrôle image (nommé Image1) de l'Userform :

Private Sub CommandButton1_Click()
Dim MonImg As Variant
    
MonImg = Application.GetOpenFilename("Fichiers Images (*.jpg; *.gif),*.jpg;*.gif")
If MonImg = False Then MsgBox "Opération annulée.": Exit Sub
UserForm1.Image1.Picture = LoadPicture(MonImg)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

2- Ouvrir une page Internet Explorer
au double clic dans un textbox :

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ATTENTION!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'activer deux références :
    'Microsoft Internet Controls
    'Microsoft HTML Object Library
'Pour accéder aux références dans VBA, menu Outils -> Références.
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Adresse As String
Dim IE As New InternetExplorer

If TextBox1.Value = "" Then MsgBox "Saisie obligatoire.": Exit Sub
Adresse = "https://pqm.bmwgroup.net/jsp/extcalllang.jsp?modus=bearb&problemid=" & TextBox1.Value
IE.navigate Adresse
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
Loop
Set IE = Nothing
End Sub

Réponse 6 / 6

colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014
10 juil. 2013 à 15:58

Super Merci encore ca marche a merveille.. !!!!!!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 juil. 2013 à 16:17

et bien de rein.
A+

Discussions similaires

Dessiner avec son clavier et avec des lettres

Barre verticale droite sur clavier

comment taper une accent circonflexe sur mon clavier AZERTY?

Mon clavier est bloqué, il n'écrit plus !

Discussions similaires

Newsletters