Comment paramétrer TextColumn propriété

Bonjour

pour ma Combobox

dans TextColumn, propriété

ont ne peux paramétrer TextColumn, propriété qu'une colonne

je ne trouve pas comment paramétrer plusieurs colonnes

merci

Bonjour,

Parce qu'on n'en paramètre qu'une !

TextColumn : colonne à afficher

BoundColumn : colonne renvoyée par la propriété Value

Si veux afficher plusieurs colonnes, tu paramètres ColumnCount.

Cordialement.

Bonjour,

Parce qu'on n'en paramètre qu'une !

TextColumn : colonne à afficher

BoundColumn : colonne renvoyée par la propriété Value

Si veux afficher plusieurs colonnes, tu paramètres ColumnCount.

Cordialement.

Re merci

pour ColumnCount pas de souci

mais je souhaite plusieurs colonnes dans TextColumn

Cordialement

Est-ce que tu me lis?

Est-ce que tu me lis?

donc il est impossible de mètre plusieurs colonne

dans la propriété textcollumn

Si tu veux n'afficher qu'une seule colonne, tu l'indiques dans TextColumn, si tu veux en afficher plusieurs tu ignores TextColumn, qui restera à sa valeur par défaut (-1).

Et si tu veux en afficher plusieurs mais pas toutes, tu définis la largeur (dans ColumnWidths) de celles que tu ne veux pas afficher à 0.

Cordialement.

Si tu veux n'afficher qu'une seule colonne, tu l'indiques dans TextColumn, si tu veux en afficher plusieurs tu ignores TextColumn, qui restera à sa valeur par défaut (-1).

Et si tu veux en afficher plusieurs mais pas toutes, tu définis la largeur (dans ColumnWidths) de celles que tu ne veux pas afficher à 0.

Cordialement.

Re

mon problème et pouvoir fair un choix en lignes et en colonnes

doux mon besoin de la propriété TextColumn charger de plusieurs colonne

Cordialement

ComboBox, ListBox... Tu ne choisis jamais qu'une ligne ! L'élément sélectionné est la ligne.

Bonsoir,

Placer le curseur sur la colonne à récupérer dans le comboBox.

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:C" & f.[A65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 3
  Me.ComboBox1.ColumnWidths = "50;50;40"
  Me.ComboBox1.List = Rng.Value
End Sub

Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1
  Me.TextBox2 = Me.ComboBox1.Column(1)
  Me.TextBox3 = Me.ComboBox1.Column(2)
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Select Case X
   Case Is < 50
     Me.ComboBox1.TextColumn = 1
   Case Is > 100
     Me.ComboBox1.TextColumn = 3
   Case Else
     Me.ComboBox1.TextColumn = 2
 End Select
End Sub

Ceuzin

Bonsoir,

Placer le curseur sur la colonne à récupérer dans le comboBox.

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:C" & f.[A65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 3
  Me.ComboBox1.ColumnWidths = "50;50;40"
  Me.ComboBox1.List = Rng.Value
End Sub

Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1
  Me.TextBox2 = Me.ComboBox1.Column(1)
  Me.TextBox3 = Me.ComboBox1.Column(2)
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Select Case X
   Case Is < 50
     Me.ComboBox1.TextColumn = 1
   Case Is > 100
     Me.ComboBox1.TextColumn = 3
   Case Else
     Me.ComboBox1.TextColumn = 2
 End Select
End Sub

Ceuzin

Re

géniale une réponse qui va au delà de mes attentes

merci beaucoup

Joli exercice !

Joli exercice !

Re

Oui à la prochaine !

Cordialement

Rechercher des sujets similaires à "comment parametrer textcolumn propriete"