Limiter la saisie d'une combobox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Geraldine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Geraldine

XLDnaute Occasionnel
Bonjour,

Dans une combobox, je voudrais limiter les possibilités de saisie et autoriser uniquement

- chiffre
- le point du clavier numerique

et interdire
- Lettre et caractère du genre $ £ & * etc ..


merci à tous, géraldine
 
Trier par date Trier par votes
Re : Limiter la saisie d'une combobox

bonjour geraldine le forum combobox ou textbox !!! si textbox
Dim Chge As Boolean
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 8
Chge = True
Case Is = 13, 110, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub
Private Sub TextBox1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 46
Chge = True
TextBox1 = ""
End Select
End Sub
salutations
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

bonjour Géraldine,

une solution ressemblant à ça devrait pouvoir fonctionner
J'imagine que le "." c'est la virgule?

sub Combobox_Change()
V=Combobox.value
if not is numeric(V) then exit sub

end sub
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

Je viens d'essayer, essaie plutot ça...

Private Sub ComboBox1_Change()
If Not IsNumeric(ComboBox1.Value) Then
saisie = Left(ComboBox1.Value, Len(ComboBox1.Value) - 1)
ComboBox1.Value = saisie
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

re smotty, ça fonctionne pas chez moi le code complet

Private Sub ComboBox1_Change()
If Not IsNumeric(ComboBox1.Value) Then
saisie = Left(ComboBox1.Value, Len(ComboBox1.Value) - 1)
ComboBox1.Value = saisie
End If
Dim Lig As Integer
Lig = Me.ComboBox1.ListIndex
Me.TextBoxP1.Value = ShtC.Range("A" & 7 + Lig + 1).Value
'Me.TextBoxT1.Value = Me.TextBoxP1.Value * 0
Me.TextBoxQ2.Value = ShtC.Range("I6").Value
Me.TextBoxP2.Value = ShtC.Range("A" & 7 + Lig + 1).Value
Me.TextBoxT2.Value = Me.TextBoxQ2.Value * Me.TextBoxP2.Value
Me.TextBoxQ3.Value = ShtC.Range("J6").Value
Me.TextBoxP3.Value = ShtC.Range("A" & 7 + Lig + 1).Value
Me.TextBoxT3.Value = Me.TextBoxQ3.Value * Me.TextBoxP3.Value
Me.TextBoxP10.Value = Me.TextBoxP1.Value / 6.55957
TextBoxP10 = Format(TextBoxP10.Value, "#,##0.00")
Me.TextBoxP20.Value = Me.TextBoxP2.Value / 6.55957
TextBoxP20 = Format(TextBoxP20.Value, "#,##0.00")
Me.TextBoxP30.Value = Me.TextBoxP3.Value / 6.55957
TextBoxP30 = Format(TextBoxP30.Value, "#,##0.00")
'Me.TextBoxT10.Value = Me.TextBoxT1.Value / 6.55957
'TextBoxT10 = Format(TextBoxT10.Value, "#,##0.00")
Me.TextBoxT20.Value = Me.TextBoxT2.Value / 6.55957
TextBoxT20 = Format(TextBoxT20.Value, "#,##0.00")
Me.TextBoxT30.Value = Me.TextBoxT3.Value / 6.55957
TextBoxT30 = Format(TextBoxT30.Value, "#,##0.00")
Me.TextBoxM2.Value = ShtC.Range("B" & 7 + Lig + 1).Value
TextBoxM2 = Format(TextBoxM2.Value, "#,##0.00")
End Sub

merci géraldine
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

attenttion!! Le listindex =-1 si la saisie dans le combobox ne fait pas partie de la liste.
- Toute les valeurs de la liste doivent être numériques avec "," et non "." pour virgule

En espérant que ça t'aidera....
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

Bonjour à tous,

Avec la célèbre formule du Docteur Pierrot!
Code: 
Private Sub Combobox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Un must!

Cordialement
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

Re et merci à vous deux,

mais j'ai du mal à adapter tout ça,

La valeur saisie est une valeur de la liste mais au lieu de la chercher, la personne peut taper directement cette valeur. Et c'est là mon problème ...

@
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

dame géraldine comprend pas grand chose ...

le code et ça bug sur le point du clavier numérique "erreur d'execution 13", mais le keypress marche puisque tout les lettres virgule ne sont pas accepté.

Private Sub Combobox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub ComboBox1_Change()
Dim Lig As Integer
Lig = Me.ComboBox1.ListIndex
Me.TextBoxP1.Value = ShtC.Range("A" & 7 + Lig + 1).Value
Me.TextBoxQ2.Value = ShtC.Range("I6").Value
Me.TextBoxP2.Value = ShtC.Range("A" & 7 + Lig + 1).Value
Me.TextBoxT2.Value = Me.TextBoxQ2.Value * Me.TextBoxP2.Value
Me.TextBoxQ3.Value = ShtC.Range("J6").Value
Me.TextBoxP3.Value = ShtC.Range("A" & 7 + Lig + 1).Value
Me.TextBoxT3.Value = Me.TextBoxQ3.Value * Me.TextBoxP3.Value
Me.TextBoxP10.Value = Me.TextBoxP1.Value / 6.55957
TextBoxP10 = Format(TextBoxP10.Value, "#,##0.00")
Me.TextBoxP20.Value = Me.TextBoxP2.Value / 6.55957
TextBoxP20 = Format(TextBoxP20.Value, "#,##0.00")
Me.TextBoxP30.Value = Me.TextBoxP3.Value / 6.55957
TextBoxP30 = Format(TextBoxP30.Value, "#,##0.00")
'Me.TextBoxT10.Value = Me.TextBoxT1.Value / 6.55957
'TextBoxT10 = Format(TextBoxT10.Value, "#,##0.00")
Me.TextBoxT20.Value = Me.TextBoxT2.Value / 6.55957
TextBoxT20 = Format(TextBoxT20.Value, "#,##0.00")
Me.TextBoxT30.Value = Me.TextBoxT3.Value / 6.55957
TextBoxT30 = Format(TextBoxT30.Value, "#,##0.00")
Me.TextBoxM2.Value = ShtC.Range("B" & 7 + Lig + 1).Value
TextBoxM2 = Format(TextBoxM2.Value, "#,##0.00")
End Sub
 
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

re et merci aussi pierrot93, mais dame géraldine confirme toujours arret à

Me.TextBoxT2.Value = CDbl(TextBoxQ2.Value) * CDbl(TextBoxP2.Value)

j'espère ne pas vous faire perdre votre temps pour une erreur basique, donc je cherche, j'adore lire le chinois ...


dans la liste c'est le separateur automatique de mise en forme 0,00 deux chiffres après la virgule. je tape 1 il met 1,00
@

dame géraldine confirme encore pierrot93
"On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!!"
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Limiter la saisie d'une combobox

Re

modifie le code ci dessous alors :

Code: 
Private Sub Combobox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789[B][COLOR="Red"],[/COLOR][/B]", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

en espérant...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
XL 2019 Trier une combobox
2 3
Réponses
37
Affichages
1 K
ChTi160
ChTi160
jeff1494
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
705
jeff1494
jeff1494
pascal21
  • Question Question
Microsoft 365 liste deroulante "active"" du combobox
Réponses
2
Affichages
248
cathodique
cathodique
Nono1835
  • Question Question
XL pour MAC Saisie automatique sur facture
Réponses
3
Affichages
214
Piment
P
C
  • Question Question
Microsoft 365 Combobox
Réponses
6
Affichages
305
Valtrase
Valtrase
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
387
dgil37
D
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
418
Dranreb
Dranreb
natorp
  • Résolu(e)
XL 2019 Format textbox pour immatriculation voiture
Réponses
8
Affichages
318
natorp
natorp
Eric 888
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
626
Eric 888
Eric 888
A
  • Question Question
XL 2016 Limiter la Saisie dans un Combobox
2 3 4
Réponses
55
Affichages
3 K
Dranreb
Dranreb
D
  • Question Question
Microsoft 365 calcul d'une moyenne automatique par trimestre, semestre et annuelle
Réponses
0
Affichages
167
Daniel200666
D
Z
  • Question Question
XL 2013 Interdire certains caractères (. @ et $)
Réponses
5
Affichages
566
job75
job75
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
326
JUAN45
J
patricktoulon
  • Résolu(e)
XL 2013 remplacer par des vbcrlf les ":" sous condition
Réponses
11
Affichages
490
patricktoulon
patricktoulon
xhudi69
  • Question Question
Microsoft 365 Récupérer la liste d'un field d'une feuille dans combobox
Réponses
5
Affichages
257
xhudi69
xhudi69
R
  • Question Question
XL 2019 Paramètres de la fonction GRANDE.VALEUR
Réponses
8
Affichages
453
Hamid FLISSI
Hamid FLISSI
halecs93
  • Résolu(e)
XL 2016 Afficher les notes de musique jouées sur un clavier
2
Réponses
17
Affichages
823
halecs93
halecs93
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
331
PRy
P
L
  • Résolu(e)
XL 2021 Déterminer la hauteur d'une formule (barre d'outils)
Réponses
8
Affichages
300
Lolote83
L
Retour