Limiter le nombre de caractères maximum d'un combobox

Soyez le premier à donner votre avis sur cette source.

Vue 10 386 fois - Téléchargée 375 fois

Description

Ce petit bout de code vous permet de controler le nombre de caractères maximum d'un ComboBox , d'afficher un Msgbox pour prevenir l'utilisateur , puis de retablir le nombre de caractères maxi (efface ce qui se trouve apres)

Source / Exemple :


Private Sub Combo1_Change()
If Len(Combo1.Text) > 10 Then ' Nombre maxi de caractères
   Check = MsgBox("CombBox limité à 10 caractères !", vbExclamation + vbOKOnly, "Attention")
   Combo1.Text = Left(Combo1.Text, 10) ' Efface les caractères en trop
   Combo1.SelStart = Len(Combo1) ' Replace le curseur à la fin
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
98
Date d'inscription
dimanche 20 juillet 2003
Statut
Membre
Dernière intervention
31 octobre 2006

Vi c'est vrai , mais par exemple dans les textbox on peut definir ca dans les propriétés. Je trouve que c'est tres utile pour les combobox , c pour ca que j'ai pris ca comme exemple :)
Mais en effet ca peut s'appliquer à n'importe quel controle ou l'on peut entrer des caratères.
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
Ce code se s'applique pas forcément aux ComboBox !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.