à 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
