Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2010comment puis-je configurer les trois champs à condition du comboBox1
comment puis-je configurer les trois champs ( Corp, Catégorie, Indice)
lorsque je sélectionnez la fonction .... dans le ComboBox1
- le tableau de données dans la Feuil…. (Données)
Bonjour à tous,
La seule solution est d'attribuer des combo aux 3 champs !
En effet, Les données dans le ComboBox1 par rapport aux 3 TextBox sont trop ambigus pour être pris en compte !
Bonne journée !
Bonjour à tous,
La seule solution est d'attribuer des combo aux 3 champs !
En effet, Les données dans le ComboBox1 par rapport aux 3 TextBox sont trop ambigus pour être pris en compte !
Bonne journée !
Bonjour
si j'ai bien compris
en insérant cette procédure dans le module de l'usf
Code:
Private Sub ComboBox1_Change()
With Sheets("données")
Me.TextBox26 = .Cells(Me.ComboBox1.ListIndex + 2, 2)
Me.TextBox5 = .Cells(Me.ComboBox1.ListIndex + 2, 3)
Me.TextBox6 = .Cells(Me.ComboBox1.ListIndex + 2, 4)
End With
End Sub
et en supprimant
dans
Private Sub UserForm_Initialize()
les lignes
'TextBox26.Text = Cells(2, 42)
'TextBox5.Text = Cells(2, 39)
'TextBox6.Text = Cells(2, 41)
Bonjour
si j'ai bien compris
en insérant cette procédure dans le module de l'usf
Code:
Private Sub ComboBox1_Change()
With Sheets("données")
Me.TextBox26 = .Cells(Me.ComboBox1.ListIndex + 2, 2)
Me.TextBox5 = .Cells(Me.ComboBox1.ListIndex + 2, 3)
Me.TextBox6 = .Cells(Me.ComboBox1.ListIndex + 2, 4)
End With
End Sub
et en supprimant
dans
Private Sub UserForm_Initialize()
les lignes
'TextBox26.Text = Cells(2, 42)
'TextBox5.Text = Cells(2, 39)
'TextBox6.Text = Cells(2, 41)
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.