Discussion :

[Bedley]

Bonsoir à tous !!!

Je viens solliciter auprès de chacun un coup de pouce.
Bref j'ai un combobox qui me permet d'activer les feuilles en sélectionnant simplement le nom de la feuille souhaitée dans le combobox. J'aimerais avoir un bout de code qui me permette de supprimer une feuille en sélectionnant simplement son nom dans le combobox.

Tout apport me sera très util

Merci

[Pierre Fauconnier]

Bonjour

Voici un code qui réalise cela.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub btnSupprimer_Click()
  On Error GoTo Catch
  Application.DisplayAlerts = False
  Worksheets(cmbFeuilles.Value).Delete
 
Catch:
  Application.DisplayAlerts = True
  If Err <> 0 Then MsgBox Err.Number & " " & Err.Description, vbExclamation
End Sub

Perso, je ne coderais pas comme ça, surtout si d'autres choses doivent être réalisées sur le clic du bouton, mais pour faire simple, ça fait le taf.

[Bedley]

Bonjour

Voici un code qui réalise cela.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub btnSupprimer_Click()
  On Error GoTo Catch
  Application.DisplayAlerts = False
  Worksheets(cmbFeuilles.Value).Delete
 
Catch:
  Application.DisplayAlerts = True
  If Err <> 0 Then MsgBox Err.Number & " " & Err.Description, vbExclamation
End Sub

Perso, je ne coderais pas comme ça, surtout si d'autres choses doivent être réalisées sur le clic du bouton, mais pour faire simple, ça fait le taf.

Merci beaucoup PIERRE FAUCONNIER, toutes les excuses pour le retard. Le code marche à merveille. Cependant j'aimerais pouvoir insérer des messages d'avertissement pour prévenir a l'utilisateur qu'il est sur le point de supprimer une feuille avec un VbyesNo, et ensuite un autre message de confirmation pour signaler que la feuille sélectionnée a été bien supprimée.

Merci et toutes mes excuses pour le dérangement

[Valtrase]

Salut à tous,
Une petite modification du code permet cela aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub btnSupprimer_Click()
    On Error GoTo Catch
    Application.DisplayAlerts = False
 
    Select Case MsgBox("Vous êtes sur le point de supprimer la feuille " & cmbFeuilles.Value & vbCrLf _
        & "" & vbCrLf _
        & "Voulez-vous vraiment continuer ?", vbYesNo Or vbInformation Or vbDefaultButton2, Application.Name & " - Suppression feuille")
 
        Case vbYes
            Worksheets(cmbFeuilles.Value).Delete
            MsgBox "La feuille " & cmbFeuilles.Value & " a bien été supprimée.", vbOKOnly, Application.Name
 
 
        Case vbNo
            MsgBox "Action annulée par l'utilisateur"
    End Select
 
Catch:
    Application.DisplayAlerts = True
    If Err <> 0 Then MsgBox Err.Number & " " & Err.Description, vbExclamation
End Sub

[Bedley]

Salut à tous,
Une petite modification du code permet cela aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub btnSupprimer_Click()
    On Error GoTo Catch
    Application.DisplayAlerts = False
 
    Select Case MsgBox("Vous êtes sur le point de supprimer la feuille " & cmbFeuilles.Value & vbCrLf _
        & "" & vbCrLf _
        & "Voulez-vous vraiment continuer ?", vbYesNo Or vbInformation Or vbDefaultButton2, Application.Name & " - Suppression feuille")
 
        Case vbYes
            Worksheets(cmbFeuilles.Value).Delete
            MsgBox "La feuille " & cmbFeuilles.Value & " a bien été supprimée.", vbOKOnly, Application.Name
 
 
        Case vbNo
            MsgBox "Action annulée par l'utilisateur"
    End Select
 
Catch:
    Application.DisplayAlerts = True
    If Err <> 0 Then MsgBox Err.Number & " " & Err.Description, vbExclamation
End Sub

Merci énormément, ça marche a merveille. c'est exactement ce que je recherchais. Merci a tous!!!!