Bonjour le forum,
J'ai une macro qui, lorsque je sélectionne un fichier F, ouvre un userform ou apparaît une listbox contenant l'ensemble des titres de mon tableau sous forme de cases à cocher.
Cependant, avant de passer à l'étape suivante, je souhaite que mon code vérifie qu'au moins une case est cochée. J'ai cherché sur pas mal de sites mais n'ai pas trouvé de réponse.
J'utilise une alternative pour le moment :
Cela fonctionne comme je le souhaite mais existe-t-il une fonction VBA permettant de simplifier mon code en une ligne ? De la même manière qu'en interrogeant un range que l'on définit avec .Find (If not monrange is nothing then...) par exemple ?
En vous remerciant
J'ai une macro qui, lorsque je sélectionne un fichier F, ouvre un userform ou apparaît une listbox contenant l'ensemble des titres de mon tableau sous forme de cases à cocher.
Cependant, avant de passer à l'étape suivante, je souhaite que mon code vérifie qu'au moins une case est cochée. J'ai cherché sur pas mal de sites mais n'ai pas trouvé de réponse.
J'utilise une alternative pour le moment :
VB:
Sub maprocedure
Dim CounterCheckBox As Integer, i As Integer
CounterCheckbox = 0
With LB_CheckBox
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
CounterCheckbox = CounterCheckbox + 1
End If
Next
End With
If CounterCheckbox = 0 Then
MsgBox "Aucune case n'a été cochée."
Exit Sub
End If
End SubCela fonctionne comme je le souhaite mais existe-t-il une fonction VBA permettant de simplifier mon code en une ligne ? De la même manière qu'en interrogeant un range que l'on définit avec .Find (If not monrange is nothing then...) par exemple ?
En vous remerciant