Condition True / False sur CheckBoxs variable

[michel66]

Bonjour,

Je vous écris après avoir écumé les forums sans trouver de réponse.

J'ai une centaine de CheckBox nommées CheckBox1, CheckBox2, ect...
Également des onglets nommés o1, o2, ect...

Je souhaite créer une application qui, lorsque on coche les CheckBox que l'on veut, supprime les onglets associés aux CheckBox non cochées.

Voici ce que j'ai fait mais ça ne marche pas :

Dim nomcb As String
Dim i As Integer
Dim nomonglet As String

For i = 96 To 1 Step -1
nomcb = "UserForm1.CheckBox" & i
nomonglet = "o" & i

If nomcb = False Then
Application.DisplayAlerts = False
Worksheets(nomonglet).Delete
Application.DisplayAlerts = True
End If

Next i

Quand je lance cette commande, cela me dit "Incompatibilté de type" sur la ligne If nomcb = False Then
Si je change le type de la variable nomcombo en "CheckBox" cela me dit la même chose mais sur la ligne nomcb = "UserForm1.CheckBox" & i

Je pense que le problème vient du type de variable, mais je n'arrive pas à contourner la difficulté.

Pouvez vous m'aider?

Merci.

 

[Guest]

Re : Condition True / False sur CheckBoxs variable

Bonjour,

Dim i As Integer
Application.DisplayAlerts = False
For i = 96 To 1 Step -1
If Not UserForm1.Controls("CheckBox" & i) Then
    Worksheets("o" & i).Delete
Next
Application.DisplayAlerts = True

A+

 

[michel66]

Re : Condition True / False sur CheckBoxs variable

Ça marche nickel.
Merci!