Suppression de feuille suivant checkbox

[Liolive]

Bonjour,

J'ai un fichier excel avec une vingtaine de feuille, avant une exportation, je souhaiterais, par userform, pouvoir choisir les feuilles (6 au maximum) que je veux garder et lesquels je supprime.

J'ai donc créer un userform avec 6 checkbox représentant les feuilles excel. Je coche celle que je veux conserver je clique sur OK et je veux que excel me supprime automatiquement toutes les autres.

J'ai écrit un code mais il ne fonctionne pas et je ne comprend pas pourquoi !

Dim F1, F2, F3, F4, F5, F6 As String
Dim x As Byte
Dim oSh As Object

F1 = 0
F2 = 0
F3 = 0
F4 = 0
F5 = 0
F6 = 0

If CheckBox1 = True Then		'
    F1 = "Sens"					'
ElseIf CheckBox2 = True Then	'
    F2 = "DashFinal"			'
ElseIf CheckBox3 = True Then	'
    F3 = "DashYear"				'	Vérification des CheckBox
ElseIf CheckBox4 = True Then	'
    F4 = "DashYearWT"			'
ElseIf CheckBox5 = True Then	'
    F5 = "DashEvents"			'
ElseIf CheckBox6 = True Then	'
    F6 = "Global"				'
End If
    
For Each oSh In ThisWorkbook.Sheets

    If oSh.Name = F1 Then 		'	Dans un premier temps, test juste la 1ère feuille (F1)
								' 	Si Ok ne rien faire
    Else						'	Sinon supprimer la feuille
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = False 
    End If
Next oSh

Pouvez-vous m'aidez svp ?

Merci d'avance

 

[Nairolf]

Re : Suppression de feuille suivant checkbox

Met

oSh.Delete

à la place de

ActiveSheet.Delete

 

[Liolive]

Re : Suppression de feuille suivant checkbox

Merci ça fonctionne ! 🙂