sacha.m

Bonjour, Faire des filtre en VBA c'est assez simple. exemple de ton filtre en question : Dim BaliseBlock() As Integer Dim DataBlock() As Variant Dim VarBaliseBlock As Variant Dim VarBlockData As Variant Dim CollBlock As AcadSelectionSet Set CollBlock = ThisDrawing.SelectionSets.Add("CollectionBlock") ReDim BaliseBlock(2) ReDim DataBlock(2) BaliseBlock(0) = 0 DataBlock(0) = "INSERT" BaliseBlock(1) = 67 DataBlock(1) = 0 BaliseBlock(2) = 8 DataBlock(2) = "ZONE_TRAVAUX,ARMEMENT_FUTUR,CONNEXES" VarBaliseBlock = BaliseBlock VarBlockData = DataBlock CollBlock.Select acSelectionSetAll, , , VarBaliseBlock, VarBlockData Par contre filtrer sur les anonyme je ne le ferai pas, c'est mieux d'utiliser ce que rom1_am propose c-a-d utilise la propriété IsDynamicBlock. Tu peux bien évidement ajouter des élément dans le filtre sans problème. Sacha

Bonjour, Pourquoi n'utilises tu pas une sélection par filtre plus tôt que de sélectionner tous les objets du model space ? Sacha

Bonjour, Je reste sur la page index du site pour voir les derniers messages postés, et je me pose la question suivante, quel sont les significations des icones a gauche du sujet du poste. il y a des stylo, smiley etc... Merci Sacha [Edité le 8/6/2010 par sacha.m]

Bonjour, Voici une piste qui fonctionne sur Xl 2003. Sub UnChekBox() Dim obj Dim feuille As Worksheet Set feuille = ActiveSheet Dim typ 'ceci sert a vérifier la valeur des différente shapes For Each obj In feuille.Shapes typ = obj.FormControlType If obj.FormControlType = 1 Then If obj.ControlFormat.Value <> 0 Then obj.ControlFormat.Value = 0 End If End If Next End Sub Sacha