ListFillrange de ComboBox = nom de plage de cellules

Marsh Posté le 25-05-2012 à 19:35:12

:hello: à tous.

J'ai besoin d'un coup de main.

J'ai fait un classeur de 2 feuilles.
La première contient des ComboBox
La deuxième est un tableau pour nommer des plages de cellules

J'ai fait un code pour que mes plages de cellules se créent et se nomment automatiquement au fur et à mesure que je modifie mon tableau. Le voici :

Code :

Private Sub Worksheet_Deactivate()
Range("B3:B" & [B65000].End(xlUp).Row).Name = [B2]
Range("C3:C" & [C65000].End(xlUp).Row).Name = [C2]
Range("D3:D" & [D65000].End(xlUp).Row).Name = [D2]
Range("E3:E" & [E65000].End(xlUp).Row).Name = [E2]
Range("F3:F" & [F65000].End(xlUp).Row).Name = [F2]
Range("G3:G" & [G65000].End(xlUp).Row).Name = [G2]
Range("H3:H" & [H65000].End(xlUp).Row).Name = [H2]
Range("I3:I" & [I65000].End(xlUp).Row).Name = [I2]
Range("J3:J" & [J65000].End(xlUp).Row).Name = [J2]
End Sub

J'aimerais associer la ListFillRange des ComboBox au nom des plages de cellule mais je ne sais pas associer les deux.

J'ai fait un code mais il ne fonctionne pas et je dois répéter les dimensions de la plage. Il me marque mémoire insuffisante il doit pas aimer B" & .Range("B65536" ).End(xlUp)

Code :

Private Sub ComboBox1_GotFocus()
Dim Plage As String
With Sheets("Feuil2" )
Plage = Range("B3:B" & .Range("B65536" ).End(xlUp).Row).Address
End With
ComboBox1.ListFillRange = "Feuil2!" & Plage
End Sub

Pouvez vous m'aider ?

Cordialement.

Yen-aplu

Message édité par yen-aplu le 25-05-2012 à 21:37:32

Marsh Posté le 25-05-2012 à 19:35:12

Marsh Posté le 25-05-2012 à 21:38:05

Que pensez vous de ce code ?

Code :

Private Sub ComboBox1_GotFocus()
Dim Plage As String
Plage = Sheets("Feuil2" ).Range("B2" ).Value
ComboBox1.ListFillRange = Plage
End Sub

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *