Discussion :

[Ultradoux]

Bonjour,

D'abord un coup de gueule mêlé d'un questionnement : pourquoi l'aide de Microsoft est-elle aussi pourrie ? Y'a rien qui aide un novice à comprendre quoi que ce soit. En comparaison apprendre le java script avec les explications de Mozilla c'est du régal. Mais le vba, c'est à péter un câble pour le moindre truc !

Le questionnement : vous faites comment pour apprendre à coder ce truc quand on part de zéro sérieusement ?



Pour en venir au sujet :

Comment puis-je programmer une combobox dans un userform pour qu'elle me propose des valeurs comprises entre 1 et 20, en empêchant la saisie de texte ? Elle doit aussi pouvoir autoriser la saisie de n'importe quel autre nombre de 0 à 99.

Pour l'instant j'en suis là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox2_Change()
ComboBox2.MaxLength = 2
End Sub

Merci !!

[Franc]

Bonsoir, voici une solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 20 'valeurs proposées par défaut
        ComboBox1.AddItem CStr(i)
    Next i
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' Empêcher la saisie de texte
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
    End If
End Sub

Petit avertissement, si tu es en office 64 bits, la molette de la souris ne fonctionne pas pour faire défiler la liste et faire ton choix(et je n'ai pas de solution), tu devras utiliser l'ascenseur de la combobox.
Et pour répondre à ta première question, il y a plein de tutoriels sur le forum pour apprendre le vba.

[Ultradoux]

Whaou, hyper astucieux le 2ème code, merci beaucoup !

Mais à part sur ce forum et grâce à l'aide des participants, comment comprendre de manière autonome comment construire un tel code ?

Encore merci !