M
michel66
Guest
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 :
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.
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 :
Code:
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 iQuand 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.