Supprimer une ligne

[apdf1]

Bonjour,

J'aimerai que lorsque je supprime un onglet via "combobox2 et CdeSupprime " que sa supprime la ligne correspondante dans la feuille Base en Colonne "A"

Un grand merci d'avance
Ci joint mon USF
Cordialement

Max

 

[youky(BJ)]

Re : Supprimer une ligne

Salut apdf1,
Comme ceci.....
Bruno

Private Sub CdeSupprime_Click()
    Application.DisplayAlerts = False
    If Sheets.Count > 1 And ComboBox2.Value <> "" Then Sheets(ComboBox2.Value).Delete
    Application.DisplayAlerts = True
    ComboBox2.RemoveItem (ComboBox2.ListIndex)
    ComboBox2 = ""
   ' UserForm_Initialize
End Sub

 

[apdf1]

Re : Supprimer une ligne

Bonjour Bruno,

Merci d'avoir répondu, mais sa supprime bien l'onglet mais pas la ligne correspondante dans la feuille Base en Colonne "A"

@+
max

 

[youky(BJ)]

Re : Supprimer une ligne

Exact...j'ai répondu à coté.
Rajoute ceci à la fin du code

lig = Application.Match(ComboBox2, Feuil2.[A4:A10000], 0) + 3
Feuil2.Rows(lig).Delete

Bruno

 

[apdf1]

Re : Supprimer une ligne

Re

Je te remercie beaucoup sa fonctionne trés bien juste une toute petite modif si sa te dérange pas trop quand je je supprime sa supprime bien l'onglet et dans la feuille Base, est-il possible que sa s'efface dans la la listbox

Je te remercie infiniment et je te souhaite une bonne journée

Max

 

[youky(BJ)]

Re : Supprimer une ligne

Voici...

Private Sub CdeSupprime_Click()
If ComboBox2.ListIndex = -1 Then Exit Sub
    Application.DisplayAlerts = False
    If Sheets.Count > 1 And ComboBox2.Value <> "" Then Sheets(ComboBox2.Value).Delete
    Application.DisplayAlerts = True
  For lig = 0 To ListBox1.ListCount
    If ComboBox2 = ListBox1.List(lig) Then ListBox1.RemoveItem (lig): Exit For
  Next
lig = Application.Match(ComboBox2, Feuil2.[A4:A10000], 0) + 3
      ComboBox2.RemoveItem (ComboBox2.ListIndex)
        ComboBox2 = ""
Feuil2.Rows(lig).Delete

Bruno

 

[apdf1]

Re : Supprimer une ligne

Re,

Je te remercie beaucoup et une bonne journée

Max