Autres Plusieurs plages nommées en une seule

[Co_Lac]

Bonjour,
J'ai essayé pleins de solutions trouvées sur le net mais aucune ne marche!
Mon problème, réunir 3 plages en une pour alimenter un combobx !
Comment faire d'abord pour ne faire qu'une seule plage, ensuite m'en servir pour alimenter un combobox ?
Merci de votre aide

 

[pierrejean]

Bonjour Co_Lac
Vois si tu peux t'inspirer de ceci

 

[Co_Lac]

Merci beaucoup
Je l'ai adapté :

Private Sub UserForm_Initialize()
Me.ComboBox7.List = Split(liste_CEP, ";")
Me.ComboBox8.List = Split(liste_CEL, ";")
End Sub

Function liste_CEP()
nbLignes_CEP1 = Sheets("Liste_tri").Cells(Rows.Count, 7).End(xlUp).Row
nbLignes_CEP2 = Sheets("Liste_tri").Cells(Rows.Count, 9).End(xlUp).Row
nbLignes_CEP3 = Sheets("Liste_tri").Cells(Rows.Count, 12).End(xlUp).Row
Set Maplage_CEP1 = Range(Cells(1, 7), Cells(nbLignes_CEP1, 7))
Set Maplage_CEP2 = Range(Cells(1, 9), Cells(nbLignes_CEP2, 9))
Set Maplage_CEP3 = Range(Cells(1, 12), Cells(nbLignes_CEP3, 12))
Set Maplage_CEP = Application.Union(Maplage_CEP1, Maplage_CEP2, Maplage_CEP3)
For Each cel In Maplage_CEP
liste_CEP = liste_CEP & cel.Value & ";"
Next
End Function

Function liste_CEL()
nbLignes_CEL1 = Sheets("Liste_tri").Cells(Rows.Count, 6).End(xlUp).Row
nbLignes_CEL2 = Sheets("Liste_tri").Cells(Rows.Count, 8).End(xlUp).Row
nbLignes_CEL3 = Sheets("Liste_tri").Cells(Rows.Count, 10).End(xlUp).Row
nbLignes_CEL4 = Sheets("Liste_tri").Cells(Rows.Count, 13).End(xlUp).Row
Set Maplage_CEL1 = Range(Cells(1, 6), Cells(nbLignes_CEL1, 6))
Set Maplage_CEL2 = Range(Cells(1, 8), Cells(nbLignes_CEL2, 8))
Set Maplage_CEL3 = Range(Cells(1, 10), Cells(nbLignes_CEL3, 10))
Set Maplage_CEL4 = Range(Cells(1, 13), Cells(nbLignes_CEL4, 13))
Set Maplage_CEL = Application.Union(Maplage_CEL1, Maplage_CEL2, Maplage_CEL3, Maplage_CEL4)
For Each cel In Maplage_CEL
liste_CEL = liste_CEL & cel.Value & ";"
Next
End Function

ça correspond tout à fait à mes besoins
Merci à vous et bonne journée

 

[Co_Lac]

Avec vous quand il y a un problème il y a toujours une solution !
C'est magique ****