parcourir des checkbox

[stef]

Bonjour forum,

Voilà ce qui me pose probleme:
Je souhaite, par clic sur un bouton (GenereOffre) de la feuille 'Calcul', creer autant de copie d'une feuille (Motorisé) que de checkbox validés (les check sont sur la feuille 'calcul').
Je ne maitrise pas bien les controls en VBA .. :-(
Pour l'instant mon code c'est ca :

Private Sub GenereOffre_Click()

Dim Coche As CheckBox

For Each Coche In Sheets("Calcul").Controls
If Coche = True Then
Sheets("Motorisé").Select
Sheets("Motorisé").Copy Before:=Sheets(4)
Sheets("Motorisé (2)").Name = Coche.Caption
End If
Next
End Sub

Et ca ne fonctionne pas ... bien sure ...

Merci de votre aide

stef

 

[stef]

c'est bon j'ai trouvé:

Private Sub GenereOffre_Click()

Dim Coche As OLEObject

For Each Coche In ActiveSheet.OLEObjects
If Coche.Object = True And Coche.Object.Caption <> "" Then
Sheets("Motorisé").Copy Before:=Sheets(Sheets.Count)
Sheets("Motorisé (2)").Name = Coche.Object.Caption
End If
Next

End Sub

 

[@+Thierry]

=> DEMO Boucles sur (Control ActiveX sur Sheet OLEObject)

Salut Stef

Oui tu as bien cherché et bien trouvé !!! c'est une collectiond'OLEObjects, voici d'ailleurs ton exemple mis en Démo, pour "jongler" avec les Controls ActiveX placé sur une Feuille.

En prime je gère d'une manière un peu différente la façon de nommer les feuilles depuis des checkboxs...Avec aussi un mini gestionnaire d'erreur.

Je te (vous) laisse découvrir

Bon Travail, Bon Aprèm
@+Thierry

 

[stef]

OOoooohhhhh que c'est bôôôôôôô !!! ;-D

Grand merci à toi Ô grand @+Thierry