[RESOLU] En VBA supprimer une image

xhudi69

XLDnaute Accro

• 20 Mars 2013

• #31

Re : [RESOLU] En VBA supprimer une image

Bonjour byters, le Forum,

je suis encore au travail, je vois cela en rentrant.

@+

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 20 Mars 2013

• #32

Re : [RESOLU] En VBA supprimer une image

Super et en même temps tu connaitrais un bon livre pour apprendre le VBA excel.

Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 20 Mars 2013

• #33

Re : [RESOLU] En VBA supprimer une image

Bonsoir byters, le Forum,

L'enregistreur de macro t'aurait donné ceci, à mettre dans un bouton:

Code:

Application.ScreenUpdating = False
    ActiveSheet.PageSetup.PrintArea = "$A$1:$N$37"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.ScreenUpdating = True

En PJ ton fichier remanié avec le bouton impression.

Il y a sur le Forum ICI et LA
mais aussi et surtout, faire les bonnes requettes à notre ami GOOGLE et explorer cette mine inépuisable qu'est le NET.

Fait moi ton retour, @+ 😎

 

Pièces jointes

• byters_Shape.xlsm

  77.2 KB · Affichages: 42
• byters_Shape.xlsm

  77.2 KB · Affichages: 46
• byters_Shape.xlsm

  77.2 KB · Affichages: 54

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 20 Mars 2013

• #34

Re : [RESOLU] En VBA supprimer une image

Bien merci,

J'ai agrandi l'image pour voir si elle le tronque bien à la sortie d'impression c'est ok mais il m'a coupé l'image en deux car il me le sort en portrait j'ai mis la page en paysage et il me le sort en 4 pages. je n'ai pas compris pourquoi.

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 20 Mars 2013

• #35

Re : [RESOLU] En VBA supprimer une image

Je viens de tester ton code sur mon fichier et c'est nickel je te remercie bien de toute ton aide.
En espèrent que cela aidera aussi d'autre personne.

@+ et merci encore.

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 21 Mars 2013

• #36

Re : [RESOLU] En VBA supprimer une image

Bonjour,

J'ai fait tester aux utilisateurs le fichier l'impression c'est nickel tout marche bien.
Mais ils m'ont posé une question au moment du coller dans la zone prévu pour la capture d'écran est-il possible que cela supprime automatiquement la précédente sans que l'ont interagisse sur le bouton de suppression.

Merci.

 

Vote positif 0 Vote négatif

A

Amandine

XLDnaute Nouveau

• 25 Août 2015

• #37

Re : [RESOLU] En VBA supprimer une image

Bonjour à tous,

En voulant utiliser le code permettant de supprimer des images dans un champ de valeur, suivant le cas que j'ai (deux onglets différents) le code fonctionne ou alors s'arrête en me mettant le message "erreur définie par l'application ou par l'objet.

Le code qui fonctionne :
For Each img In ActiveSheet.Shapes
If Not Intersect(img.TopLeftCell, Range("$B$39:$BE$52")) Is Nothing Then
img.Delete
End If
Next img

Le code qui plante :
For Each img In ActiveSheet.Shapes
If Not Intersect(img.TopLeftCell, Range("$R$2:$AQ$28")) Is Nothing Then
img.Delete
End If
Next img

Chacun de ces codes s'appliquent dans deux onglets différents, quand j'applique le code qui bug sur l'autre onglet...il fonctionne.

Auriez vous une idée de la source de ce bug?

Merci d'avance

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2015

• #38

Re : [RESOLU] En VBA supprimer une image

Bonjour,

peut être rajouté un "ActiveSheet" à cette instruction...

Code:

If Not Intersect(img.TopLeftCell, ActiveSheet.Range("$R$2:$AQ$28")) Is Nothing Then

il eut été préférable de créer ta propre discussion....

bon après midi
@+

 

Vote positif 0 Vote négatif

A

Amandine

XLDnaute Nouveau

• 25 Août 2015

• #39

Re : [RESOLU] En VBA supprimer une image

Non cela ne fonctionne toujours pas.
En attendant j'ai créé un onglet avec mes images "permanentes". Je supprime donc dans me macro tous les shapes de l'onglet et recolle les shapes "permanent" que j'ai gardé

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2015

• #40

Re : [RESOLU] En VBA supprimer une image

Re,

comme ca, sans pouvoir tester, pas d'autre idée...

 

Vote positif 0 Vote négatif