Re : Supprimer une colonne selon une combobox
Re à tous,
J'ai finalement trouvé la solution !!!
Et quand je dis qu'elle est con, c'est qu'elle est vraiment bête !
J'ai tenté plusieurs manip' et à chaque fois ca ne marchait pas...
Et tout simplement, après 30000 essais, j'ai juste inversé l'ordre dans le vba, c'est à dire qu'il supprime en premier le contenu de BAL puis le contenu de la BD BAL et là ca marche !!!
Philippe, j'ai résolu aussi le problème des espaces vides en truquant un peu. En fait ma liste dynamique se termine par "---".
Cette ligne ne peut pas être supprimée et donc le contenu de ma liste dynamique évolue entre "***" et "---".
Voilà le code pour ceux que ca intéresse.
Private Sub suppr_bal_Click()
If list_bal.Value = "***" Or list_bal.Value = "'---" Then
Exit Sub
End If
'Suppression dans BAL Code de Pierrot93
Dim x As Range
If list_bal.ListIndex <> -1 Then
Set x = Feuil8.Range("1:1").Find(creabal.list_bal.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.EntireColumn.Delete
End If
'Tri dans la feuille BAL
Range("C1:AZ150").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
MsgBox "La BAL a été supprimée"
Sheets("Menu").Select
'Suppression dans la BD BAL
Feuil10.Rows(creabal.list_bal.ListIndex + 2).Delete
creabal.list_bal.RowSource = "listedyn_bal"
'Tri de la BD BAL
Sheets("BDBAL").Select
Range("A3:A50").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Cells(3, 1).Select
Selection.Cut
[A65000].End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
'RAZ du userform
Unload Me
creabal.Show
End Sub