Bonjour,
j'ai un classeur pour faire une demande de matériel. Certaines lignes
comportent des caes à cocher ex :
Foret béton Ø10 Ø12 ..... Qté .....
la case à cocher se trouve devant chaque diamètre.
j'ai deja une macro qui me copie les lignes avec Qté non nulles dans une
feuille de récap.
Mon problème est que lorsque je souhaite effacer la feuille récap pour faire
une nouvelle demande les cases a cocher ne sont pas effacées.
Pour compliquer, étant donné que je ne sais jamais s'il y aura une ou
plusieures cases à cocher et leur reférence dans mon récap je ne sais pas
comment faire pour les effacer.
Re, finalement j'ai trouvé si sa peut intéresser quelqu'un voila ce que j'ai rajouté dans ma macro :
ActiveSheet.CheckBoxes.Delete
@+
papou
Bonjour Pour les supprimer effectivement, par contre s'il s'agissait de les décocher : 1°) pour les cases à cocher issues de la BO Formulaires (à priori c'est ton cas) With ActiveSheet For Each CheckBoxes In .CheckBoxes If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff Next End With 2°) pour les cases à cocher issues de la BO Contrôles : For Each sh In ActiveSheet.OLEObjects If sh.Name Like "CheckBox*" Then With ActiveSheet.OLEObjects(sh.Name) If .Object.Value = True Then .Object.Value = False End With End If Next sh
Cordialement Pascal
"freezengate" a écrit dans le message news:
Re, finalement j'ai trouvé si sa peut intéresser quelqu'un voila ce que j'ai rajouté dans ma macro :
ActiveSheet.CheckBoxes.Delete
@+
Bonjour
Pour les supprimer effectivement, par contre s'il s'agissait de les décocher
:
1°) pour les cases à cocher issues de la BO Formulaires (à priori c'est ton
cas)
With ActiveSheet
For Each CheckBoxes In .CheckBoxes
If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
Next
End With
2°) pour les cases à cocher issues de la BO Contrôles :
For Each sh In ActiveSheet.OLEObjects
If sh.Name Like "CheckBox*" Then
With ActiveSheet.OLEObjects(sh.Name)
If .Object.Value = True Then .Object.Value = False
End With
End If
Next sh
Cordialement
Pascal
"freezengate" <freezengate@discussions.microsoft.com> a écrit dans le
message news: D77865C2-04D3-4723-9892-D80282CBFED6@microsoft.com...
Re,
finalement j'ai trouvé si sa peut intéresser quelqu'un voila ce que j'ai
rajouté dans ma macro :
Bonjour Pour les supprimer effectivement, par contre s'il s'agissait de les décocher : 1°) pour les cases à cocher issues de la BO Formulaires (à priori c'est ton cas) With ActiveSheet For Each CheckBoxes In .CheckBoxes If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff Next End With 2°) pour les cases à cocher issues de la BO Contrôles : For Each sh In ActiveSheet.OLEObjects If sh.Name Like "CheckBox*" Then With ActiveSheet.OLEObjects(sh.Name) If .Object.Value = True Then .Object.Value = False End With End If Next sh
Cordialement Pascal
"freezengate" a écrit dans le message news:
Re, finalement j'ai trouvé si sa peut intéresser quelqu'un voila ce que j'ai rajouté dans ma macro :
