interdir la saisie dans un combobox

S

sarmerou08

XLDnaute Junior
à tous,
je souhaite protéger avec un message d'erreur la saisie d'un combobox et textbox.

c'est quoi le cpde.
merci de votre comprehension.
Cdlt,
sarmerou08
 
Trier par date Trier par votes
S

sarmerou08

XLDnaute Junior
Bonsoir Robert, le forum;
merci encore pour le mail, désolé pour tout. Je viens de faire une lecture de la charte du forum. c'est claire maintenant!!!!!

Voila je reste sur ce fil pour reposer ma question. Grâce au forum j'ai eu beaucoup des reposes concernant la question "comment protéger la saisie dans le combobox1, combobox2, et combobox3 ainsi que les textbox1, textbox2 et textbox3?"
j'ai inséré le code de Catrice mais j'ai un nouveau message d'erreur run time 381!!!! qui s'affiche quand j'essaie de saisir quelle que chose dans un des combobox.

je joins le fichier de nouveau pour constater le problème de vous même. il faut aller dans le classeur exécution puis cliquer sur le bouton exécution et suivre les instructions.

En effet je souhaite afficher un message d'erreur de ce type Msgbox("choisir parmi la liste")!!!! sans bugger le programme.
et comment réinitialisé les combobox et textbox précédentes de l'userform1 sans quitter à chaque fois l'userform?

merci encore.
Cdlt,
sarmerou08
 

Pièces jointes

  • Copie de Paramètres XL500 Cr200 (f3).zip
    36.3 KB · Affichages: 24
Vote positif 0 Vote négatif
Cousinhub

Cousinhub

XLDnaute Barbatruc
Re : interdir la saisie dans un combobox

Bonsoir,

Eh, Sarmerou, tu lis parfois les réponses qu'on te donne?

Je te montre juste un contrôle à effectuer, pour le Combobox1

En début de code Combobox1_change, rajoute cette ligne :

Code:

Dim loc As Collection 'décalre la variable loc (collection LOCalisation)
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
'vide toutes les données

Ainsi, comme tu n'as pas d'index de ta combo, ben, on ne fait rien...
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Hulk

Hulk

XLDnaute Barbatruc
Re : interdir la saisie dans un combobox

Hello tout le monde,

Pour empêcher la saisie dans les ComboBox et TextBox j'ai trouvé ça..
Code: 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Essayes.

Cdt, Hulk.
 
Vote positif 0 Vote négatif
S

sarmerou08

XLDnaute Junior
Re : interdir la saisie dans un combobox

Hulk à dit:
Hello tout le monde,

Pour empêcher la saisie dans les ComboBox et TextBox j'ai trouvé ça..
Code: 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Essayes.

Cdt, Hulk.
Cliquez pour agrandir...

bonjour HulK,
merci je te tiens au courant c'est le code.
Cdlt,
sarmerou08
 
Vote positif 0 Vote négatif
S

sarmerou08

XLDnaute Junior
Re : interdir la saisie dans un combobox

Hulk à dit:
Hello tout le monde,

Pour empêcher la saisie dans les ComboBox et TextBox j'ai trouvé ça..
Code: 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    KeyAscii = 0

End Sub
Essayes.

Cdt, Hulk.
Cliquez pour agrandir...


Re HULK, le forum;
tout marche à merveil quand je teste juste ce code par contre quand j'exécute tout le programme via un boutton exécution j'ai un message d'erreur "erreur loading DLL (refedit) je pense que cela est du par la version d'office que j'utilse (i.e.office 2003). D'après ce que j'ai compris il me manque ce fichier ce qui bugge le programme. Comment faire!!!!
merci Hulk
Cdlt,
sarmerou08
 
Dernière édition:
Vote positif 0 Vote négatif
S

sarmerou08

XLDnaute Junior
Bonsoir Hulk, le forum,

j'ai testé ce code avec un version ressente de office (2007) le programme marche super bien. Par contre j'utilise régulièrement la version de office 2003, en testant ce code avec cette version, le programme buggue j'ai un problème de fichier DLL. alors comment modifier le code pour qu'il marche avec cette version.
merci,

Cdlt,
sarmerou08


code:
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = 0

End Sub
 
Vote positif 0 Vote négatif
gilbert_RGI

gilbert_RGI

XLDnaute Barbatruc
Re : interdir la saisie dans un combobox

Bonsoir

pour que ça fonctionne il faut que la référence "Microsoft Forms 2.0 Object Library" soit disponible CaD que la FM20.DLL soit dans le system32

ensuite vérifier que cette référence soit bien cochée

Cdlt

Gilbert_RGI
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

cathodique
  • Résolu(e)
XL 2010 Problème de propagation d'évènement Combobox
Réponses
11
Affichages
376
ChTi160
ChTi160
S
  • Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
426
fanch55
fanch55
C
  • Résolu(e)
XL 2016 Problème de DropDown d'une ComboBox (VBA)
Réponses
2
Affichages
258
crocrocro
C
N
  • Question
XL 2021 UserForm & OptionButton
Réponses
3
Affichages
262
nano33320
N
Vidal Salvador
  • Résolu(e)
renvoi combobox sur textbox
Réponses
7
Affichages
195
Vidal Salvador
Vidal Salvador
L
  • Question
Microsoft 365 Aide pour code protection cellules non vides à la fermeture
2
Réponses
22
Affichages
477
crocrocro
C
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
387
Lyrix
L
A
  • Question
XL 2016 Limiter la Saisie dans un Combobox
2 3 4
Réponses
55
Affichages
2 K
Dranreb
Dranreb
Z
  • Question
XL 2013 Interdire certains caractères (. @ et $)
Réponses
5
Affichages
156
job75
job75
cathodique
  • Résolu(e)
XL 2010 Liste filtrée pour combobox à 1 ou x colonne(s) (Titre màj)
5 6 7
Réponses
97
Affichages
4 K
patricktoulon
patricktoulon

Membres actuellement en ligne

8 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 779
Messages
2 092 045
Membres
105 164
dernier inscrit
publd2