Bonjour à toutes et toutes,
J'ai une erreur dans mon code VBa,
la comboBox3 ne s'affiche pas comme je le souhaiterais.
Bebere m'avais fait mon fichier et j'essaie de trouver le problème.
Je ne sais pas à quoi correspond cette ligne dans le bout de code ci-joint.
Merci de votre aide;
@+
Sub IniCombo2()
Dim Plage As String
ComboBox2.Value = '': ComboBox3.Value = ''
'campement
lettre = Chr(64 + Col)
With Sheets('Listes') '.Activate
L = .Cells(1, Col).End(xlDown).Row
Plage = .Range(lettre & '2:' & lettre & L).Address
ComboBox2.RowSource = 'Listes!' & Plage
'chaussures
If Col = 3 Then
For p = 20 To 50
ComboBox3.AddItem 'P' & p
Next p
End If
'luminaire
If Col = 5 Then
L = .Cells(1, Col).End(xlDown).Row
Plage = .Range(lettre & '2:' & lettre & L).Address
ComboBox3.RowSource = 'Listes!' & Plage
End If