XL 2013 initialisation des objets sur plusieur feuille

[bredeche]

bonjour
j ai crée un fichier pour permettre de réaliser les document de consignation
mon souci c est des lors que l'on réalise un nouvelle consignation les signatures "sous forme objet " reste
par contre si je dis efface tous les objets de la feuille 'charge de consignation et charge de travaux mes boutons imprimer s'effacent
pouvez vous m'aider
ci joint mon fichier http://www.cjoint.com/c/GLfn0DoLU31

le mot de passe pour le tableau "evalola0715"

de plus avez une solution plus simple pour un seul bouton imprimer mais deux choix direct ou PDF
cordialement
merci de votre aide

 

[cp4]

Bonjour Bredeche,

Quelle est (où est) la macro qui pose problème?
@+

 

[bredeche]

Bonjour Bredeche,

Quelle est (où est) la macro qui pose problème?
@+

je l'ai realiser mais cela m'efface tous mes objets y compris mes boutons imprimer donc j'en ai eu marre et je l'ai enlevé
je voudrais donc a cela un coup de main
cordialement

 

[cp4]

Désolé,mais je n'ai pas compris ce que veux faire ni comment tu procèdes.
essaie avec cette macro.

Sub test_efface_image()
Worksheets("CHARGE DE CONSIGNATION").Shapes("image 8").Delete
Worksheets("CHARGE DE TRAVAUX").Shapes("image 9").Delete
End Sub

 

[cp4]

un autre essai

Sub Tst() '
    Dim Ws As Worksheet, img As Shape
    For Each Ws In Worksheets
        If Ws.Name Like "CHARGE*" Then    'parcourt les feuilles dont le nom commence par "charge"
            For Each img In Ws.Shapes   'boucle sur les shapes
                If img.Name Like "Picture*" Then 'shapes dont le nom commence par 'picture'
                    img.Delete
                End If
            Next
        End If
    Next Ws
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

Une autre façon de faire

Sub SupprimerImgs_et_Formes()
'ici pour la seule feuille active
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
Select Case sh.Type
Case 1, 13: sh.Delete: End Select
Next
End Sub

 

[bredeche]

un autre essai

Sub Tst() '
    Dim Ws As Worksheet, img As Shape
    For Each Ws In Worksheets
        If Ws.Name Like "CHARGE*" Then    'parcourt les feuilles dont le nom commence par "charge"
            For Each img In Ws.Shapes   'boucle sur les shapes
                If img.Name Like "Picture*" Then 'shapes dont le nom commence par 'picture'
                    img.Delete
                End If
            Next
        End If
    Next Ws
End Sub

Merci cela ne marche pas
j'ai mis cela car ce sont des "forme libre" signature

Sub CommandButton1_Click()
  Dim Ws As Worksheet, img As Shape
  For Each Ws In Worksheets
  If Ws.Name Like "CHARGE*" Then  'parcourt les feuilles dont le nom commence par "charge"
  For Each img In Ws.Shapes  'boucle sur les shapes
  If img.Name Like "Forme libre*" Then 'shapes dont le nom commence par 'picture'
  img.Delete
  End If
  Next
  End If
  Next Ws
End Sub

 

[cp4]

Bonjour bredeche, Staple1600,

Si j'ai bien compris tu veux supprimer les signatures.
Sur ton fichier, sur la feuille CHARGE DE CONSIGNATION la form se nomme Image 8 et sur la feuille CHARGE DE TRAVAUX la form se nomme Image 9.
J'ai exécutè la macro proposée au post #5 et ça a supprimé les signatures sur les 2 feuilles.
Ton commandButton1 se trouve où? Joins ton fichier.

 

[bredeche]

Bonjour bredeche, Staple1600,

Si j'ai bien compris tu veux supprimer les signatures.
Sur ton fichier, sur la feuille CHARGE DE CONSIGNATION la form se nomme Image 8 et sur la feuille CHARGE DE TRAVAUX la form se nomme Image 9.
J'ai exécutè la macro proposée au post #5 et ça a supprimé les signatures sur les 2 feuilles.
Ton commandButton1 se trouve où? Joins ton fichier.

mon fichier est http://www.cjoint.com/c/GLfn0DoLU31

mon commandButton1est la validation de mon userform NCONS

MAIS CE NE DOIS PAS ETRE DES IMAGES CE SONT DES FORMES LIBRE

MERCI DE TON AIDE

 

[cp4]

Je ne comprends pas grand chose. Tu dis que le bouton commandbutton1 est sur l'userform NCONS
alors que le code agit sur la feuille "tableau".

où se trouve tes formes libres, sur ton fichier les formes se nomment "image x" (x étant un chiffre) voir photo jointe

j'ai ajouté un bouton juste pour tester la suppression des signatures (voir fichier joint)

Plus de précisions merci.

 

[bredeche]

Je ne comprends pas grand chose. Tu dis que le bouton commandbutton1 est sur l'userform NCONS
alors que le code agit sur la feuille "tableau".

où se trouve tes formes libres, sur ton fichier les formes se nomment "image x" (x étant un chiffre) voir photo jointeRegarde la pièce jointe 1002073

j'ai ajouté un bouton juste pour tester la suppression des signatures (voir fichier joint)

Plus de précisions merci.

desole voici le fichier avec les signatures http://www.cjoint.com/c/GLhlG2vHUir
je veux a chaque nouvelle consignation on efface les signature Des deux feuilles

Merci de ton aide

 

[cp4]

Bonjour,

As-tu testé la macro du fichier du post#10?
comment as-tu inséré tes formes libres?

 

[cp4]

ton fichier en retour, j'espère que c'est ce que tu veux obtenir.

 

[cp4]

à toi de terminer la suite si ça te conviens, car je ne sais pas sous quelle version d'excel tu travailles.

 

[Staple1600]

Bonsoir le fil, le forum

Heureusemet qu'il ya avait cp4 pour me saluer
car le demandeur (@bredeche) m'a complètement zappé ainsi que ma macro ...
(voir le message#6)