yoyo932201
XLDnaute Nouveau
Bonjour à tous,
J'ai pu récuperer sur ce forum une macro fort pratique , qui permet de générer des menus deroulants avec un report sur la ligne de la valeur .
le problème c'est que des lors que je génère plus de 100 lignes il y a un décalage entre les menus déroulants et la link cell .
Si bien qu'a une certaine limite le combobox est une ligne en dessous de la linkcell ^^
Merci par avance
D'ailleur je tiens à remercier au passage la personne a la base de cette macro
J'ai pu récuperer sur ce forum une macro fort pratique , qui permet de générer des menus deroulants avec un report sur la ligne de la valeur .
le problème c'est que des lors que je génère plus de 100 lignes il y a un décalage entre les menus déroulants et la link cell .
Si bien qu'a une certaine limite le combobox est une ligne en dessous de la linkcell ^^
Merci par avance
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
D'ailleur je tiens à remercier au passage la personne a la base de cette macro