Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂
Je me tourne une nouvelle fois vers nos ténors car je n'arrive pas à grossir l'affichage de ma ComboBox,
Est-ce possible ? :
Je joins un fichier test et je continue mes recherches.
Je vous remercie pour votre aide,
Amicalement,
lionel 🙂
Je vous souhaite une belle journée 🙂
Je me tourne une nouvelle fois vers nos ténors car je n'arrive pas à grossir l'affichage de ma ComboBox,
Est-ce possible ? :
VB:
Sub Laurent()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim tbl() As Variant
tbl = Array("Metropole 33", "988 Nouvelle-Calédonie 687", "987 Polynésie française 689", _
"974 La Réunion 262", "973 Guyane 594", "972 Martinique 596", "971 Guadeloupe 590", 0) '"",
' Les valeurs
ReDim Preserve tbl(UBound(tbl) - 1)
' La Liste Box
Dim oCombo As OLEObject
Dim L As Single, H As Single, T As Single, W As Single
L = ActiveCell.Offset(, 1).Left '<-- position horizontale
T = ActiveCell.Top '<-- position verticale
W = 202 '<-- largeur
H = 15 '<-- hauteur
' Si la liste existe
For Each oCombo In WS.OLEObjects
If oCombo.progID = "Forms.ComboBox.1" Then
If oCombo.Name = "Combo1" Then
oCombo.Delete
End If
End If
Next
' Creation de la liste de choix
Set oCombo = WS.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=L, Top:=T, Width:=W, Height:=H)
With oCombo
.Name = "Combo1" '<-- nom du Combobox
.Object.List() = tbl '<-- exemple de chargement des données
.Activate
.Object.DropDown
End With
Set oCombo = Nothing
End Sub
Je vous remercie pour votre aide,
Amicalement,
lionel 🙂
Pièces jointes
Dernière édition: