Bonjour à tous et toutes,
A partir du formulaire ci-joint, j'aimerais remplir la ComboBox de l'élément "SUPPORT" en fonction de la paroi opaque sélectionné précédemment. J'ai essayer de passer en LISTE FILTRÉE, mais il y avais une erreur dans mon code.
J'aimerais également que pour les éléments suivants (SUPPORT, ISOLANT, PAREMENT INTÉRIEUR et PAREMENT EXTÉRIEUR) apparaisse en même temps, une valeur numérique qui correspondra à leur conductivité thermique. Comment faire?
J'ai remarqué que lorsque je changeais de feuilles dans Excel, mon formulaire (ci-joint), changeait également de valeur. Comment puis-je faire pour que mon formulaire puisse appartenir à ma feuille LISTESPO.
Pour finir, voici mon code depuis le début de sa création:
Private Sub UserForm_Activate()
Dim DernierTypeParoiOpaque As String
'définition de la coordonnée du dernier Type de paroi opaque de la liste
DernierTypeParoiOpaque = Range("A2").End(xlDown).Address
'attribution des données source à la ComboBox TypeParoiOpaque
TypeParoiOpaque.RowSource = "A2:" & DernierTypeParoiOpaque
'selection par défaut du premier élément de la liste
TypeParoiOpaque.ListIndex = 0
End Sub
Private Sub TypeParoiOpaque_Change()
Dim Position As Integer
Dim colonne As Variant
Dim num As Integer
Dim DerniereTypeSolution As String
'récupération dans une variable Position du numéro de l'élément sélectionné dans la ComboBox TypeMenuiserie
Position = TypeParoiOpaque.ListIndex
'le premier élément ayant la valeur 0, ajouter 1 à la variable position
num = Position + 1
'définition d'une variable colonne "à choisir" parmi B,C,D,E,F et G en fonction du numéro num
colonne = Choose(num, "B", "C", "D", "E", "F", "G")
'définition de l'adresse de la dernière TypeSolution dans la colonne Colonne
DerniereTypeSolution = Range(colonne & "2").End(xlDown).Address
'attribution des données source à la ComboBox TypeSolution
TypeSolution.RowSource = colonne & "2:" & DerniereTypeSolution
'sélection par défaut du premier élément de la liste
TypeSolution.ListIndex = 0
End Sub
A partir du formulaire ci-joint, j'aimerais remplir la ComboBox de l'élément "SUPPORT" en fonction de la paroi opaque sélectionné précédemment. J'ai essayer de passer en LISTE FILTRÉE, mais il y avais une erreur dans mon code.
J'aimerais également que pour les éléments suivants (SUPPORT, ISOLANT, PAREMENT INTÉRIEUR et PAREMENT EXTÉRIEUR) apparaisse en même temps, une valeur numérique qui correspondra à leur conductivité thermique. Comment faire?
J'ai remarqué que lorsque je changeais de feuilles dans Excel, mon formulaire (ci-joint), changeait également de valeur. Comment puis-je faire pour que mon formulaire puisse appartenir à ma feuille LISTESPO.
Pour finir, voici mon code depuis le début de sa création:
Private Sub UserForm_Activate()
Dim DernierTypeParoiOpaque As String
'définition de la coordonnée du dernier Type de paroi opaque de la liste
DernierTypeParoiOpaque = Range("A2").End(xlDown).Address
'attribution des données source à la ComboBox TypeParoiOpaque
TypeParoiOpaque.RowSource = "A2:" & DernierTypeParoiOpaque
'selection par défaut du premier élément de la liste
TypeParoiOpaque.ListIndex = 0
End Sub
Private Sub TypeParoiOpaque_Change()
Dim Position As Integer
Dim colonne As Variant
Dim num As Integer
Dim DerniereTypeSolution As String
'récupération dans une variable Position du numéro de l'élément sélectionné dans la ComboBox TypeMenuiserie
Position = TypeParoiOpaque.ListIndex
'le premier élément ayant la valeur 0, ajouter 1 à la variable position
num = Position + 1
'définition d'une variable colonne "à choisir" parmi B,C,D,E,F et G en fonction du numéro num
colonne = Choose(num, "B", "C", "D", "E", "F", "G")
'définition de l'adresse de la dernière TypeSolution dans la colonne Colonne
DerniereTypeSolution = Range(colonne & "2").End(xlDown).Address
'attribution des données source à la ComboBox TypeSolution
TypeSolution.RowSource = colonne & "2:" & DerniereTypeSolution
'sélection par défaut du premier élément de la liste
TypeSolution.ListIndex = 0
End Sub
