Listbox et contenue d'une cellule Résolu

Question

Bonjour, 


Comment modifier le code suivant pour que les colonnes qui contiennent  l'élément entré dans la listbox soit conservé:

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Caption = "Welcome"
Me.ListBox1.ListStyle = fmListStyleOption
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.AddItem "Rouge"
Me.ListBox1.AddItem "Bleu"
Me.ListBox1.AddItem "Vert"
Me.ListBox1.AddItem "Violet"
Me.ListBox1.AddItem "Jaune"

End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim I As Long
Dim J As Byte
Dim LastCol As Long

Application.ScreenUpdating = False
With Worksheets("Result")
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For I = LastCol To 1 Step -1
        Suppr = True
        For J = 0 To 4
            If Me.ListBox1.Selected(J) Then
             If .Cells(1, I) Like "* Me.ListBox1.List(J)*" Then Suppr = False
        End If
        Next J
       If Suppr Then .Columns(I).Delete
Next I
End With
Unload Me
Application.ScreenUpdating = False
End Sub

J'ai essayé avec un like mais ca ne fonctionne pas.

michel_m · Answer

Bonjour
 essaies
If .Cells(1, I) Like "*" &  Me.ListBox1.List(J) & "*" then

De plus à la fin pourquoi
Application.ScreenUpdating = False
a la rigueur plutôt "true"
mais comme tu rends la main au système, tu peux supprimer cette ligne inutile
 
 Michel

Listbox et contenue d'une cellule

1 réponse

Votre réponse

Discussions similaires