Je cherche à aligner une ComboBox avec une cellule précise dans une feuille
de calcul, existe t'il une propriété qui le permettre, la ComboBox est
entièrement générée par du code et elle doit se positionner directement dans
la cellule.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Sylvain,
Voici le code qui crée un combobox exactement au dimension de la cellule A10 de la "Feuil1" du classeur. À toi d'adapter le nom de la feuille et la cellule désirée.
'------------------------------ Sub CreerUnCombobox()
Dim Rg As Range With Worksheets("Feuil1") Set Rg = .Range("A10") .OLEObjects.Add ClassType:="Forms.Combobox.1", _ Left:=Rg.Left, Top:=Rg.Top, _ Width:=Rg.Width, Height:=Rg.Height End With Set Rg = Nothing
End Sub '------------------------------
Salutations!
"Sylvain" a écrit dans le message de news:r9L6b.331$ Bonjour!
Je cherche à aligner une ComboBox avec une cellule précise dans une feuille de calcul, existe t'il une propriété qui le permettre, la ComboBox est entièrement générée par du code et elle doit se positionner directement dans la cellule.
Merci!
Bonjour Sylvain,
Voici le code qui crée un combobox exactement au dimension de la cellule A10 de la "Feuil1" du classeur. À toi d'adapter
le nom de la feuille et la cellule désirée.
'------------------------------
Sub CreerUnCombobox()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A10")
.OLEObjects.Add ClassType:="Forms.Combobox.1", _
Left:=Rg.Left, Top:=Rg.Top, _
Width:=Rg.Width, Height:=Rg.Height
End With
Set Rg = Nothing
End Sub
'------------------------------
Salutations!
"Sylvain" <syl.news2@sympatico.ca> a écrit dans le message de news:r9L6b.331$fC5.106225@news20.bellglobal.com...
Bonjour!
Je cherche à aligner une ComboBox avec une cellule précise dans une feuille
de calcul, existe t'il une propriété qui le permettre, la ComboBox est
entièrement générée par du code et elle doit se positionner directement dans
la cellule.
Voici le code qui crée un combobox exactement au dimension de la cellule A10 de la "Feuil1" du classeur. À toi d'adapter le nom de la feuille et la cellule désirée.
'------------------------------ Sub CreerUnCombobox()
Dim Rg As Range With Worksheets("Feuil1") Set Rg = .Range("A10") .OLEObjects.Add ClassType:="Forms.Combobox.1", _ Left:=Rg.Left, Top:=Rg.Top, _ Width:=Rg.Width, Height:=Rg.Height End With Set Rg = Nothing
End Sub '------------------------------
Salutations!
"Sylvain" a écrit dans le message de news:r9L6b.331$ Bonjour!
Je cherche à aligner une ComboBox avec une cellule précise dans une feuille de calcul, existe t'il une propriété qui le permettre, la ComboBox est entièrement générée par du code et elle doit se positionner directement dans la cellule.