Bonjour,
Je cherche un moyen d'afficher une liste dans une combobox à partir de colonne différente en VBA car à partir de Validation des données Excel ne veut pas prendre des valeurs de colonne différente.
Voici un bout de code que j'ai fais, mais qui ne fais pas ce que je veux...
Si quelqu'un peut m'aider cela serait cool car je coule... Merci
PS : Je veux avoir la possibilité d'écrire ce que je veux dans la combobox voici la raison pour laquelle je n'ai pas fais de Listbox.
Merci de votre aide
Je cherche un moyen d'afficher une liste dans une combobox à partir de colonne différente en VBA car à partir de Validation des données Excel ne veut pas prendre des valeurs de colonne différente.
Voici un bout de code que j'ai fais, mais qui ne fais pas ce que je veux...
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
With Worksheets("bd").ComboBox1
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
' Me.ComboBox1.List = Union("toto")
For A = 1 To Range("F1:I23").Rows.Count
' .AddItem Range("A" & A)
.List(A, 0) = Range("I" & A)
.List(A, 0) = Range("G" & A)
Next
End With
Else
Me.ComboBox1.Visible = False
End If
End Sub
Code:
Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" Then
ActiveCell.Value = Me.ComboBox1
End If
End Sub
Si quelqu'un peut m'aider cela serait cool car je coule... Merci
PS : Je veux avoir la possibilité d'écrire ce que je veux dans la combobox voici la raison pour laquelle je n'ai pas fais de Listbox.
Merci de votre aide