Bonjour,

J'ai un code qui permet d'afficher un combobox dans une feuille de classeur. A la différence d'une cellule avec "donnée" "validation" "liste", il permet de saisir de façon intuitive l’élément à sélectionner dans la liste.

Bémol: j'aimerai pouvoir l'étendre à 100 cellule de ma colonne F.

Voici le code pour la cellule F23, comment le rendre valable pour F23 à F123?

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$F$23" Then 'Peut-on "dupliquer" sur une plage F23 à F123 par exemple?
 
    f = Sheets("FT").Range("Acteur").Value
    Me.ComboBoxChoixActeur.List = f
    Me.ComboBoxChoixActeur.Height = Target.Height + 3
    Me.ComboBoxChoixActeur.Width = Target.Width + 50
    Me.ComboBoxChoixActeur.Top = Target.Top
    Me.ComboBoxChoixActeur.Left = Target.Left
    Me.ComboBoxChoixActeur.Font.Size = 12
    Me.ComboBoxChoixActeur = Target
    Me.ComboBoxChoixActeur.Visible = True
    Me.ComboBoxChoixActeur.Activate
  Else
    Me.ComboBoxChoixActeur.Visible = False
 
 End If
 
 
Private Sub ComboBoxChoixActeur_Change()
 ActiveCell.Value = Me.ComboBoxChoixActeur
End Sub
 
Private Sub ComboBoxChoixActeur_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBoxChoixActeur.List = f
  Me.ComboBoxChoixActeur.Activate
  Me.ComboBoxChoixActeur.DropDown
End Sub
 
Private Sub ComboBoxChoixActeur_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub