Squoltahthx94
XLDnaute Occasionnel
Bonjour à tous,
Voici mon petit problème :
Dans un userform j'ai une combobox qui me rempli des labels suivant un tableau dans l'onglet 'récap'.
Un de ces label prend la valeur E ou F ou... et je souhaiterais que lorsque le label concerne affiche 'E' il remplisse tout une autre série de label suivant les valeurs de tableau situé dans l'onglet 'Equip_type' mais tout ce que j'ai pour le moment c'est des libellé vides au lieu d'être rempli..
si quelqu'un avait une idée...
Merci
Voici le code pour la combobox
Voici mon petit problème :
Dans un userform j'ai une combobox qui me rempli des labels suivant un tableau dans l'onglet 'récap'.
Un de ces label prend la valeur E ou F ou... et je souhaiterais que lorsque le label concerne affiche 'E' il remplisse tout une autre série de label suivant les valeurs de tableau situé dans l'onglet 'Equip_type' mais tout ce que j'ai pour le moment c'est des libellé vides au lieu d'être rempli..
si quelqu'un avait une idée...
Merci
Voici le code pour la combobox
Code:
Private Sub ComboBox1_Change()
a = ComboBox1.ListIndex + 3
b = ComboBox1.ListIndex + 2
Nom = Me.ComboBox1.Value
On Error Resume Next
fichier = ActiveWorkbook.Path & "\Jpg\" & Nom & ".jpg" 'va chercher image correspondante
Me.Image1.Picture = LoadPicture(fichier) 'affiche image
Etage_af = Sheets("récap").Range("e" & a) 'Etage
Zone_Af = Sheets("récap").Range("d" & a) 'Zone
Type_Porte_Af = Sheets("récap").Range("F" & a) 'BM B5 R3
Catgerie_Af = Sheets("récap").Range("g" & a) 'Catégorie
CF_Af = Sheets("récap").Range("H" & a) 'Coupe Feu
Code_Porte_Af = Sheets("récap").Range("I" & a) ' Type de porte
Sens_Af = Sheets("récap").Range("j" & a) 'Sens
NbV_Af = Sheets("récap").Range("k" & a) 'nb de vantail/vantaux
Serrure_Af = Sheets("récap").Range("L" & a) 'type serrure guidotti ou .....
Ouverture_Af = Sheets("récap").Range("m" & a) 'Sens ouverture
L_Af = Sheets("récap").Range("n" & a) 'longueur hors tout
H_Af = Sheets("récap").Range("o" & a) 'hauteur hors tout
Lpassage_Af = Sheets("récap").Range("p" & a) 'Largeur de passage
Hpassage_Af = Sheets("récap").Range("q" & a) 'Hauteur de passage
AEff_Af = Sheets("récap").Range("r" & a) 'Affiche anti effraction
Lt1_Af = Sheets("récap").Range("t" & a) 'Affiche LT1 ou rien
Fplt1_Af.Visible = Lt1_Af = "LT1" 'affiche le label fplt1_af pour indiquer Ferme porte Gaze
'Affichage des Divers équipements de la porte avec le prix suivant les différentes catégories
If Code_Porte_Af = "E" Then
N_Aff = Sheets("equip_type").Range("c" & b)
Class_Aff = Sheets("equip_type").Range("d" & b)
DB_Aff = Sheets("equip_type").Range("e" & b)
Fini_Aff = Sheets("equip_type").Range("F" & b)
Resa_Aff = Sheets("equip_type").Range("g" & b)
cylind_aff = Sheets("equip_type").Range("i" & b)
Ouv_Aff = Sheets("equip_type").Range("l" & b)
Pcable_Aff = Sheets("equip_type").Range("m" & b)
Fporte_Aff = Sheets("equip_type").Range("n" & b)
pion_aff = Sheets("equip_type").Range("o" & b)
Aut1_Aff = Sheets("equip_type").Range("p" & b)
Aut2_Aff = Sheets("equip_type").Range("q" & b)
Prix_Aff = Sheets("equip_type").Range("r" & b)
End If
End Sub