Discussion :

[SportUltime54]

Bonjour a tous,

Je me tourne vers vous, espérant que vous pourrez m'aider, étant débutant en code VBA, je suis un peu perdu.

Mon problème est le suivant:

J'ai un Userform qui possède Une comboBox et 8 TextBox. Je voudrai que la valeur de la ComboBox ce met dans la Textbox n°7, seulement si la Textbox n°6 est égale ou supérieur à 7.

Après des semaines et semaines de recherche je n'arrive pas, et je ne peux pas avancer dans mon projet sans ceci

Merci.

[Invité]

Code :

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

if textbox6>6 then textbox7=comboBox

[SportUltime54]

Bonjour

Merci pour ce code, je l'ai essayé mais rien n'apparait lorsque ma TextBox 6 est supérieur à 7.

[goldstar]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Private Sub comboBox_Change()
 
If Me.TextBox6 >= 7 Then
    Me.TextBox7 = Me.comboBox
End If
 
End Sub

Cordialement,

[SportUltime54]

Salut GoldStar

Merci pour le code, il y a enfin un quelque chose qui s'affiche, mais ce code m'affiche la valeur du ComboBox même si la TextBox6 est inférieur à 7.

Je suis désolé

Cordialement,

[Invité]

supérieur à 6 vaut supérieur ou égale à 7 plus court à écrire je suis un feignant!

Code :

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

1
2
3
4
5
Private Sub comboBox_Change()
 
If Me.TextBox6 >6 Then     Me.TextBox7 = Me.comboBox else   Me.comboBox =""
 
End Sub

[kiki29]

Salut, de toute façon, à lire et assimiler : Utiliser les UserForm en VBA Excel et Utiliser les contrôles dans un UserForm, en VBA Excel.