Générer des menus deroulant avec le linkcell juste.

Option Explicit


Sub GenerateComboBox()
Dim Combox As OLEObject
Dim i As Integer
Dim Target As Range

For i = 8 To 250

Set Target = ActiveSheet.Range("G" & i)
Set Combox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Combox
With .Object.Font
.Name = "Arial"
.Size = 8
End With
.ListFillRange = "A4:A12"
.LinkedCell = Target.Offset(0, -4).Address(0, 0)
End With
Next
End Sub

Sub Leon() 'le nettoyeur !!! lol
Dim Combox As OLEObject

For Each Combox In ActiveSheet.OLEObjects
Combox.Delete
Next

Range("G8:G258").ClearContents
End Sub


Sub SeeCode()
ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.CodePane.Show
End Sub

Cliquez pour agrandir...