Salut, j'ai un UserForm et dedans j'ai une ComboBox avec une liste déroulante, j'aimerais bien bloquer la saisie dans cette ComboBox mais tout en gardant la possibilité de choisir une catégorie dans la liste de saisie.

Merci

Salut, tu peux changer le DropDownStyle pour cela. Par défaut c'est DropDown, il faut le changer en DropDownList. Ça c'est pour VBnet, pour VBA ça peut s'appeler un peu différement (VBA c'est mort non ? déjà VBnet c'est pas la grande forme...).

Merci, j'ai réussi

PS : VBA est mort, vive VBA !

Je suis confronté à un nouveau problème ^^

J'aimerais savoir comme je peux faire pour obliger la saisie de chiffre dans ma TextBox ?

Merci d'avance

Plusieurs façon de faire, voir ici : http://stackoverflow.com/questions/9969824/vb-net-need-text-box-to-only-accept-numbers

Merci, j'ai un peu regardé, mais je suis perdu dans toutes ces lignes de codes

La solution la plus simple, tu double clique sur ta textbox, et dans son code tu ajoutes un truc du genre :
If Not IsNumeric(TextBox1.Text) Then TextBox1.Text = ""
Ça permet la saisie de chiffre et la virgule, et ça réinitialise si tu entre autre chose qu'un chiffre.

Je te remercie énormément, j'ai envie d'écrire une date au format jj/mm/aaaa.

J'ai fais un code qui permet d’insérer automatiquement les "/" mais avec le code que tu m'as donné, il ne prend pas en compte les "/" et je ne sais pas comment on peut juste accepter les chiffres et le "/".

Dans ce cas il faut changer la fonction du textbox pour vérifier les caractères un par un ou bien carrément les touches pour autoriser que certains caractères. Par exemple :

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Asc(e.KeyChar) <> 8 Then
            If Asc(e.KeyChar) < 47 Or Asc(e.KeyChar) > 57 Then
                e.Handled = True
            End If
        End If

    End Sub

Tout ça c'est dans de lien que je t'ai donné, ça utilise les caractères ASCII pour savoir quel caractère est entré.

Merci.

Oui c'est bien ça que j'avais fais mais ça ne marchait pas, le mot Handles est mis en rouge et VBA ne le reconnait pas.

Je ne comprend pas non plus la fonction KeyPress, le code là, ou dois-je le mettre ? j'ai déjà un publicsub TextBox1.Change().

Merci

Essayes ça :

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Dim i As Integer
        For i = 0 To TextBox1.Text.Length - 1
            If TextBox1.Text.Substring(i, 1) <> "/" Then
                If Asc(TextBox1.Text.Substring(i, 1)) < 48 Or Asc(TextBox1.Text.Substring(i, 1)) > 57 Then
                    TextBox1.Text = ""
                End If
            End If
        Next

    End Sub

Ça fait la même chose sans passer par l'évènement keypress vu qu’apparemment c'est différent dans VBA. Après tu peux automatiser les "/" mais ça nécessite plus de code.

Merci du temps que tu prends.

J'ai toujours le même problème avec le handles qui m'indique une erreur.

Merci

Double clique sur ta textbox, il écrira la fonction _TextChanged standard pour toi. A toi de mettre le bon code ensuite dedans.

Tu as pas un objet style maskedit pour saisir une date?

Ah oui, peut-être un MaskedTextBox ? Éventuellement y'a aussi un objet DateTimePicker.

OK merci, j'ai regardé, mais je pas trouvé, c'est n'est pas grave, je vais essayer de faire différemment.

Merci à vous.