Bonjour,
Est il possible de m'expliquer comment faire pour que je puisse avec 2 noms de feuilles différente faire ce que je fais avec un nom actuellement.Voici le bout de code ou cela bloque.Merci
Private Sub ComboBox2_Change()
For i = 3 To 6
Me.Controls("Combobox" & i).Clear
Next i
'Alimentation combobox3 - type
Set tablo = New Collection
With Donnees
On Error Resume Next
For Each C In .ListObjects("Tab_Data").ListColumns(3).DataBodyRange
If C.Offset(0, -2) = Me.ComboBox1.Value And C.Offset(0, -1) = Me.ComboBox2.Value Then
tablo.Add C.Value, CStr(C.Value)
End If
Next C
On Error GoTo 0
For Each item In tablo
Me.ComboBox3.AddItem item
Next item
If ComboBox2.Value = "BALO" Then
'Else
'If ComboBox2.Value = "DOMA" Then
TextBox7.Visible = True
Label5.Visible = False
Label23.Visible = False
Label25.Visible = True
Label24.Visible = True
Label22.Visible = True
Else
If ComboBox2.Value <> "BALO" Then
TextBox7.Visible = False
Label5.Visible = True
Label23.Visible = True
Label25.Visible = False
Label24.Visible = False
Label22.Visible = False
End If
End If
'End If
' End If
End With
End Sub