Bonjour Chers tous
Dans mon classeur j'ai inséré plusieurs formes dans mes Feuilles .
Je voudrais un code pour appliquer à chacune d'elles les propriétés suivantes :
-Ne pas déplacer ou dimensionner avec les cellules
-Ne pas imprimer
Sub test()
ActiveSheet.Shapes.SelectAll
Selection.Placement = xlFreeFloating: Selection.PrintObject = msoFalse
ActiveSheet.Shapes(1).TopLeftCell.Activate
End Sub
J'étais parti sur une boucle
Et comme j'ai bouclé la boucle alors je poste
VB:
Sub mShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Placement = xlFreeFloating
shp.Select
Selection.PrintObject = msoFalse
Next
[A1].Select
End Sub
Sub test()
Dim sht, old
Application.ScreenUpdating = False
Set old = ActiveSheet
For Each sht In ThisWorkbook.Sheets
sht.Select
If sht.Shapes.Count > 1 Then
sht.Shapes.SelectAll
Selection.Placement = xlFreeFloating
Selection.PrintObject = msoFalse
sht.Shapes(1).TopLeftCell.Select
End If
Next sht
old.Activate
End Sub
•>mapomme
Il n'est jamais trop tard pour un petit Bonjour, non? (passé ou présent (cf message#3) A moins que tu tiennes griefs pour le "sabotage" d'hier?
•>KTM
Bah, simplement en faisant une boucle...
En prenant modèle sur la boucle de mapomme par exemple
VB:
Sub test_IV()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
On Error Resume Next
With sht.DrawingObjects
.Placement = 3
.PrintObject = 0
End With
Next sht
End Sub
Mais si j'étais moi, (à cause des effets de bord), j'utiliserai plutôt le code de mapommme*, foi de ma pomme
(*:celui du message#4)
•>KTM
Bah, simplement en faisant une boucle...
En prenant modèle sur la boucle de mapomme par exemple
VB:
Sub test_IV()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
On Error Resume Next
With sht.DrawingObjects
.Placement = 3
.PrintObject = 0
End With
Next sht
End Sub
Mais si j'étais moi, (à cause des effets de bord), j'utiliserai plutôt le code de mapommme*, foi de ma pomme
(*:celui du message#4)
En informatique, une fonction est dite à effet de bord (traduction mot à mot de l'anglais side effect, dont le sens est plus proche d'effet secondaire) si elle modifie un état en dehors de son environnement local, c'est-à-dire a une interaction observable avec le monde extérieur autre que retourner une valeur. Par exemple, les fonctions qui modifient une variable locale statique, une variable non locale ou un argument mutable passé par référence, les fonctions qui effectuent des opérations d'entrées-sorties ou les fonctions appelant d'autres fonctions à effet de bord. Souvent, ces effets compliquent la lisibilité du comportement des programmes et/ou nuisent à la ré-utilisabilité des fonctions et procédures.
Plus communément, un effet de bord apparaît la plupart du temps lorsqu'une modification d'un programme cohérent (valeurs et états pris conformes aux spécifications) aboutit à des valeurs ou des comportements non prévus, à cause de la non prise en compte de la portée, de l'ensemble de définition de variables, ou du contrat des fonctions.