mamounette
XLDnaute Junior
Bonjour le forum,
Encore un problème !
Pour mes comboBox :
'chaussures' ça marche, mes listes s'affichent mais pourl es autres non ! Je n'ai pas les bonnes colonnes de liste qui s'affichent.
Je dois rendre ma 'copie ce soir' et j'ai ce problème.
Merci pour votre aide.
Amitiés, @+
'chaussures
If Col = 3 Then
For p = 20 To 50
ComboBox3.AddItem 'P' & p
Next p
End If
'luminaire
If Col = 5 Then
For p = 20 To 50
ComboBox3.AddItem 'P' & p
Next p
End If
'matériel électrique
If Col = 7 Then
L = .Cells(1, Col).End(xlDown).Row
Plage = .Range(lettre & '2:' & lettre & L).Address
ComboBox3.RowSource = 'Listes!' & Plage
End If [file name=Gestion_20051011104144.zip size=39851]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gestion_20051011104144.zip[/file]
Encore un problème !
Pour mes comboBox :
'chaussures' ça marche, mes listes s'affichent mais pourl es autres non ! Je n'ai pas les bonnes colonnes de liste qui s'affichent.
Je dois rendre ma 'copie ce soir' et j'ai ce problème.
Merci pour votre aide.
Amitiés, @+
'chaussures
If Col = 3 Then
For p = 20 To 50
ComboBox3.AddItem 'P' & p
Next p
End If
'luminaire
If Col = 5 Then
For p = 20 To 50
ComboBox3.AddItem 'P' & p
Next p
End If
'matériel électrique
If Col = 7 Then
L = .Cells(1, Col).End(xlDown).Row
Plage = .Range(lettre & '2:' & lettre & L).Address
ComboBox3.RowSource = 'Listes!' & Plage
End If [file name=Gestion_20051011104144.zip size=39851]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gestion_20051011104144.zip[/file]