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

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 :)


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 :D
 

Discussions similaires

Réponses
2
Affichages
538

Statistiques des forums

Discussions
314 049
Messages
2 105 038
Membres
109 236
dernier inscrit
Loic-Bocart