XL 2010 comment puis-je configurer les trois champs à condition du comboBox1

kahlouch

XLDnaute Occasionnel
bonjour
s'il vous plait

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)
 

Pièces jointes

  • rama..2017.xlsm
    6.4 MB · Affichages: 37

JBARBE

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • rama_2017.xlsm
    5.9 MB · Affichages: 30
Dernière édition:

JM27

XLDnaute Barbatruc
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)

et idem dans
Private Function My_text()
 
Dernière édition:

kahlouch

XLDnaute Occasionnel
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)

et idem dans
Private Function My_text()
bonjour
merci pour ton aide
beau travail
 

Discussions similaires

Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou