Target, range sur une cellule fusionnée

Version imprimable

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:

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

30/04/2017, 12h11
joe.levrai

Bonjour,

une plage de cellules fusionnées se comporte comme une seule cellule. Si tu fusionnes A1 à I1, tu manipules via Range("A1"), au besoin en t'aidant des propriétés Merge (Notamment MergeArea)

sinon, si tu as fusionné pour des questions de lisibilité, tu peux également sélectionner tes cellules que tu voulais fusionner, et dans le format des cellules, onglet "Alignement", tu choisis "centrer sur plusieurs colonnes" dans le menu déroulant de l'alignement horizontal. Le rendu est identique à une fusion de cellules
30/04/2017, 14h27
Louax

Merci pour cette réponse mais ce n'était pas le problème.
En fait mon range va rester sur A12 mais il suffit que je modifie la taille de ma Target avec

Me.ComboBox1.Width = Target.Width + 300

Ainsi lorsque je vais sur A12 ma fenêtre de saisie fait la taille de A12 à I12

Toutefois si quelqu'un connait la possibilité de saisir un target associé à une cellule fusionnée, je suis preneur.
30/04/2017, 15h01
joe.levrai
C'est pourtant bel est bien le problème, tu ne sais pas travailler sur des cellules fusionnées et tu n'as pas compris comment Excel les gère

Regarde ceci, c'est le début de ta solution, qui doit nécessairement passer par la compréhension de la fusion du côté de Excel
Code:

1 2 3 4 5 Sub ioi() Range("A1:E1").Merge MsgBox Range("A1").MergeArea.Cells.Count MsgBox Range("A1").MergeArea.Cells(1, 1).Address End Sub