Bonjour,
Je n'arrive pas à utiliser ce code sur une cellule fusionnée.
Pour des raisons de lisibilité, comme ma cellule A12 est trop petite je dois la fusionner de A12 à I12.
Hors dans le code si je remplace Range("A12") par Range("A12:I12") cela ne fonctionne plus.
Merci de m'aider
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 Dim a() Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A12")) Is Nothing And Target.Count = 1 Then a = Application.Transpose(Sheets("Liste").Range("Prof")) Me.ComboBox1.List = a 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.DropDown ' ouverture automatique au clic dans la cellule (optionel) Else Me.ComboBox1.Visible = False End If End Sub Private Sub ComboBox1_Change() If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare) Me.ComboBox1.DropDown End If ActiveCell.Value = Me.ComboBox1 End Sub Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.ComboBox1.List = a Me.ComboBox1.Activate Me.ComboBox1.DropDown End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ActiveCell.Offset(1).Select End Sub
Partager