1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Private Sub CboCat_Change() 'cbo catégorie
'ici on évite un bug si l'utilisateur efface le contenu de Cbocat
If CboCat.Value = "" Then Exit Sub
CboSite.Clear
Dim NomRange As String
NomRange = CaracSpec(CboCat.Value)
If NomDefini(NomRange) Then
CboSite.List = Application.Transpose(Range(NomRange))
Else
CboSite.AddItem """Pas de référence"""
End If
End Sub
rem ----------------------------------------------------------------------------------------------------
Function NomDefini(Nom As String) As Boolean
Dim Noms As Name
NomDefini = False
For Each Noms In ThisWorkbook1.Names
If Noms.Name = Nom Then NomDefini = True: Exit Function
Next Noms
End Function
Function CaracSpec(Nom As String) As String
CaracSpec = Replace(Nom, " ", "_")
CaracSpec = Replace(CaracSpec, "-", "_")
End Function |
Partager