Bonsoir, petite rectification du code de Jean Luc, vu que tu as des cases à cocher et non des boutons d'option :
If InStr(ctrls.Name, "Check") <> 0 Then ctrls.Delete End If
Hervé.
"Gary92" a écrit dans le message de news:
Bonsoir toutes et tous. svp Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes). En une seule manip. Je sèche. Merci
anonymousA
Bonjour,
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases à cocher sont des cases à cocher issues de la barre d'outils controles Attention: le logiciel de messagerie coupera peut-être l'instruction If mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes If olobj.Type = 12 Then If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then olobj.Delete End If Next
A+
Bonsoir toutes et tous. svp Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes). En une seule manip. Je sèche. Merci
Bonjour,
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases
à cocher sont des cases à cocher issues de la barre d'outils controles
Attention: le logiciel de messagerie coupera peut-être l'instruction If
mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes
If olobj.Type = 12 Then
If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing
Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then olobj.Delete
End If
Next
A+
Bonsoir toutes et tous. svp
Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes).
En une seule manip. Je sèche.
Merci
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases à cocher sont des cases à cocher issues de la barre d'outils controles Attention: le logiciel de messagerie coupera peut-être l'instruction If mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes If olobj.Type = 12 Then If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then olobj.Delete End If Next
A+
Bonsoir toutes et tous. svp Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes). En une seule manip. Je sèche. Merci
anonymousA
si ce ne sont pas des controles issus de la BO controles mais issus de la BO formulaires utiliser For Each oleobj In ActiveSheet.Shapes If oleobj.Type = msoFormControl Then If oleobj.FormControlType = 1 And Not Intersect(oleobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then oleobj.Delete Next
A+
Bonjour,
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases à cocher sont des cases à cocher issues de la barre d'outils controles Attention: le logiciel de messagerie coupera peut-être l'instruction If mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes If olobj.Type = 12 Then If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then olobj.Delete End If Next
A+
Bonsoir toutes et tous. svp Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes). En une seule manip. Je sèche. Merci
si ce ne sont pas des controles issus de la BO controles mais issus de
la BO formulaires utiliser
For Each oleobj In ActiveSheet.Shapes
If oleobj.Type = msoFormControl Then If oleobj.FormControlType = 1 And
Not Intersect(oleobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then
oleobj.Delete
Next
A+
Bonjour,
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases
à cocher sont des cases à cocher issues de la barre d'outils controles
Attention: le logiciel de messagerie coupera peut-être l'instruction If
mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes
If olobj.Type = 12 Then
If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing
Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then
olobj.Delete
End If
Next
A+
Bonsoir toutes et tous. svp
Comment supprimer toutes les cases à cocher dans une colonne (1000
lignes).
En une seule manip. Je sèche.
Merci
si ce ne sont pas des controles issus de la BO controles mais issus de la BO formulaires utiliser For Each oleobj In ActiveSheet.Shapes If oleobj.Type = msoFormControl Then If oleobj.FormControlType = 1 And Not Intersect(oleobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then oleobj.Delete Next
A+
Bonjour,
p.e si les cases à cocher sont sur la plage B1 à B1000 et que ces cases à cocher sont des cases à cocher issues de la barre d'outils controles Attention: le logiciel de messagerie coupera peut-être l'instruction If mais il faut que celle-ci soit sur une seule ligne
For Each olobj In ActiveSheet.Shapes If olobj.Type = 12 Then If Not Intersect(olobj.TopLeftCell, Range("B1:B1000")) Is Nothing Then If olobj.OLEFormat.Object.ProgId = "Forms.CheckBox.1" Then olobj.Delete End If Next
A+
Bonsoir toutes et tous. svp Comment supprimer toutes les cases à cocher dans une colonne (1000 lignes). En une seule manip. Je sèche. Merci
AV
Des fois que.... S'il n'y a pas d'autre objet sur la feuille et quelle que soit l'origine des cases à cocher (formulaire ou controle) :
Sheets("Feuil1").DrawingObjects.Delete
AV
Des fois que....
S'il n'y a pas d'autre objet sur la feuille et quelle que soit l'origine des
cases à cocher (formulaire ou controle) :
