re
j'ai un sousaille avec ça
(pour le if il faudrait lire : si dans ce combobox ou celui la y'a rien alors affiche le message) mais j'y arrive pas !!!
pourrais tu m'éclairer
merci
Private Sub CommandButton2_Click()
'If ComboBox1.List(ComboBox1.ListIndex, 3) <> '' Then
Range('e' & ComboBox2.List(ComboBox2.ListIndex, 3) + 1) = ComboBox1.List(ComboBox1.ListIndex, 3)
Range('h' & ComboBox2.List(ComboBox2.ListIndex, 3) + 1) = 1
'Else
'MsgBox 'Le fondé de pouvoir n'a pas été sélectionné !'
'End If
z = Range('a501')
Dim tablo As Variant
Dim tablo2 As Variant
tablo = Range('b2:e' & z)
tablo2 = Range('b2:e' & z)
With ComboBox1
.ColumnCount = 4
.ColumnWidths = '0;80;80;0'
.List = tablo
End With
With ComboBox2
.ColumnCount = 4
.ColumnWidths = '0;80;80;0'
.List = tablo2
End With
End Sub