Bugs dans Excel ActiveX de zones de liste déroulante?

Mon active-x combo fonctionne très bien quand mon Dell est à quai mais redimensionne pour une plus grande police à chaque fois qu'il est activé lorsque le Dell est déconnecté de la station - très étrange. J'ai ajouté le redimensionnement de code qui fonctionne lorsqu'il est déconnecté de la station, mais à la fois .la hauteur et la .scaleheight échouer lorsque la station d'accueil lorsqu'il est déclenché par programmation (même étranger).

        Sheet2.Shapes("cb_SelectSKU").Select
        Selection.ShapeRange.Height = 40
        Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft

Ensuite, j'ai ajouté mes propres enableevents-comme commutateur de sorte que le redimensionnement se produit uniquement lorsqu'un utilisateur sélectionne une zone de liste déroulante valeur, pas quand tout est touchée lorsqu'une macro est en cours d'exécution.

Select Case strHoldEvents
    Case Is = "N"                                                   'Combobox resizing fails with error when triggered programatically (from SaveData)

        Call ShowLoadShts

        Sheet2.Shapes("cb_SelectSKU").Select
        Selection.ShapeRange.Height = 40
        Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft


    Case Else
End Select

Enfin qui semble fonctionner, si ancrée ou non, que ce soit déclenchée par l'utilisateur ou au cours d'une procédure. Nous allons voir si elle contient...

OriginalL'auteur mike

Donc j'ai été confronté aux mêmes problèmes. J'ai eu un fichier avec des listes déroulantes sur lequel j'avais superposé la zone de liste déroulante pour lutter contre le problème de manque de lisibilité lors d'un zoom arrière trop. C'est ce que mon code ressemblait d'ABORD:

'=========================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet
On Error GoTo errHandler
If Target.Count > 1 Then GoTo exitHandler
Set cboTemp = ws.OLEObjects("ComboBox1")
On Error Resume Next
If cboTemp.Visible = True Then
With cboTemp
.Top = 10
.Left = 10
.ListFillRange = "Treatment"
.LinkedCell = Target.Address
.Visible = False
.Value = ""
End With
End If
On Error GoTo errHandler
If Target.Validation.Type = 3 Then
'if the cell contains a data validation list
Application.EnableEvents = False
'get the data validation formula
str = Target.Validation.Formula1
str = Right(str, Len(str) - 1)
With cboTemp
'show the combobox with the list
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width + 15
.Height = Target.Height + 5
.ListFillRange = ws.Range(str).Address
.LinkedCell = Target.Address
End With
cboTemp.Activate
'open the drop down list automatically
Me.ComboBox1.DropDown
End If
exitHandler:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
errHandler:
Resume exitHandler
End Sub
'====================================
'Optional code to move to next cell if Tab or Enter are pressed
'from code by Ted Lanham
'***NOTE: if KeyDown causes problems, change to KeyUp
'Table with numbers for other keys such as Right Arrow (39)
'https://msdn.microsoft.com/en-us/library/aa243025%28v=vs.60%29.aspx
Private Sub ComboBox1_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Select Case KeyCode
Case 9 'Tab
ActiveCell.Offset(0, 1).Activate
Case 13 'Enter
ActiveCell.Offset(1, 0).Activate
Case Else
'do nothing
End Select
End Sub
'====================================

J'ai été confronté à toutes sortes de questions, mais surtout comme mentionné sur ce fil, le LinkedCell question était la plus grande. Ma sélection à partir du menu déroulant serait aller où sur la feuille que j'avais cliqué dernier, au lieu de la cellule, j'avais choisi la zone de liste déroulante à partir de, et dans le processus, aussi perturbant le code de la mesure la sélection. J'ai utilisé une simple LIGNE de code pour que mon programme ActiveX ne fonctionne que lorsque ses un menu déroulant. J'ai utilisé ce avant le LinkedCell commande est exécutée:

If Target.Validation.Type = 3 Then
'... all the normal code here...
End If

Donc mon code ressemble maintenant à ceci:

'... Code as before
If Target.Validation.Type = 3 Then
' NEW CODE LINE ABOVE
If Target.Count > 1 Then GoTo exitHandler
Set cboTemp = ws.OLEObjects("ComboBox1")
On Error Resume Next
If cboTemp.Visible = True Then
With cboTemp
.Top = 10
.Left = 10
.ListFillRange = "Treatment"
.LinkedCell = Target.Address
.Visible = False
.Value = ""
End With
End If
End If
' End of the new If

Incroyablement, cela a fonctionné. Et maintenant, ma feuille excel n'est pas défaillante plus. Espérons que cette aide.

OriginalL'auteur Sampat Kedarisetty