Re : Supprimer une colonne selon une combobox
Ci dessous mon code que j'explique
Pour info
creabal : nom de mon userform
list_bal : combobox (liste déroulante)
listedyn_bal est une liste déroulante prise sur le modèle de Boisgontier
=DECALER(BDBAL!$A$2;;;NBVAL(BDBAL!$A:$A)-1)
Private Sub suppr_bal_Click()
On Error Resume Next
If list_bal.Value = "***" Then 'si la valeur est *** alors sortir
Exit Sub
End If
'Suppression dans la BD BAL
Feuil10.Rows(creabal.list_bal.ListIndex + 2).Delete
creabal.list_bal.RowSource = "listedyn_bal"
' et on trie dans la BD BAL
Range("a1:A50").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Suppression de la colonne dans la récap acces agents/BAL
' La premiere colonne a supprimer commence à C
Sheets("BAL").Select
If creabal.list_bal.ListIndex <> -1 Then
Feuil8.Columns(creabal.list_bal.ListIndex + 2).Delete
End If
MsgBox "La BAL a été supprimée"
'Tri dans la feuille BAL
Range("C1:Z150").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Sheets("Menu").Select
' On ferme le userform et on l'ouvre de nouveau
Unload Me
creabal.Show
End Sub