Problème combobox et listebox

bonjour

voilà 2 petit soucie

le 1er : j'ai une combobox et j'aimerais pouvoir effacer la cellule correspondante à la combobox en BD.avec le bouton "supprimer"

le 2ème : j'ai une listbox avec checkbox pour pouvoir enregistrer certaine feuilles dans un nouveau classeur mais j'aimerais pouvoir enregidtrer que les colonnes (A:G) et là je bloc

merci pour le coup de main

Bonjour

A tester

bonjour a tous

encore une fois merci banzai64

si je comprends bien , il faut copier les feuilles selectionner dans le nouveau classeur et après les avoir copiées supprimer les colonnes non utile.

mais que signifie:

Private Sub CommandButton3_Click()
' Supprimer famille
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  With Sheets("BD")
    .Range("A" & Me.ComboBox1.ListIndex + 1).Delete shift:=xlShiftUp
  End With
  Me.ListView1.ListItems.Clear
  Init_ComboBox
End Sub

merci

Bonjour

regnum a écrit :

j'ai une combobox et j'aimerais pouvoir effacer la cellule correspondante à la combobox en BD.avec le bouton "supprimer"

Cela le fait avec ce code

Une fois fait on ré-initialise la Combobox et la Listview

C'est tout

rebonjour

merci banzai64 pour les explications.

peux t'on le faire avec les feuille cachées

merci

-- 21 Août 2011, 20:41 --

bonsoir

suite a ma demande ,j'ai trouver une solution qui me semble tiré par les cheveux mais qui fonctionne.

Private Sub CommandButton2_Click()
Dim I As Integer
Dim WbkA As Workbook
Dim WbkB As Workbook
Dim a As Integer
 With ListBox1
    For a = 0 To .ListCount - 1
        If .Selected(a) Then
            Me.Hide
           With Worksheets(.List(a))
             .Visible = True

  Application.ScreenUpdating = False
  Set WbkA = ThisWorkbook
  With ListBox1
    Me.Hide
    For I = 0 To .ListCount - 1
      If .Selected(I) Then
        If WbkB Is Nothing Then
          WbkA.Sheets(.List(I)).Copy
          ActiveSheet.Columns("H:IV").Delete
          Set WbkB = ActiveWorkbook
        Else
          WbkA.Sheets(.List(I)).Copy after:=WbkB.Sheets(WbkB.Sheets.Count)
          ActiveSheet.Columns("H:IV").Delete
        End If
      End If
    Next I
  End With
   .Visible = False
         End With
        End If
    Next
End With
Application.Dialogs(xlDialogSaveAs).Show
  Unload Me
End Sub

si quelqu'un peu me dire si cela est correct ou si il y a plus simple

merci