Macro permettant une sélection conditionnelle et collage en tant qu'image

[sellig 29]

Bonjour à tous,

J'aimerai créé une macro qui puisse sélectionner des données sous conditions et les coller ensuite dans un dossier annexe en tant qu'image. Est-ce possible?😕
J'ai apporté des explications plus fines dans le fichier joint.
Merci par avance pour votre aide.

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour

si la selection est l'espace de travail dans la feuille voir la propriété

ActiveSheet.UsedRange.Select

ensuite enregistrer la feuille en PDF serait mieux qu'en JPEG

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour Gilbert,
Merci pour tes conseils, mais je ne saurais pas mettre en oeuvre tes conseils, je ne suis pas un ferru de VBA... J'aurai préféré JPG mais par défaut du PDF
Gilles

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

le problème c'est excel version 2003
elle ne gere pas le format PDF comme les versions suivantes il faut passer par un PDFcréator ou un logiciel du genre
et là ça devient moins simple
pour faire un JPG faire une capture d'ecran je ne vois pas d'autre solutions.

sinon par VBA

comme ceci

Sub CopieEcran() 'Copie d'ecran equivalent Alt+PrintScreen
 Application.SendKeys "(%{1068})"
 DoEvents
 Sheets(2).Activate: Range("A1").Select: ActiveSheet.Paste
 End Sub

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour,
La copie d'écran ne conviendra pas car elle reprendra des données "parasites" qu'il faudra par la suite rogner.
Toutefois une macro qui sélectionnerait la plage souhaitée (explication dans mon 1er fichier joint) + impression en PDF jusqu'à la phase d'enregistrement (si ce n'est pas possible d'aller plus loin dans l'éléboration de la macro?) serait quand même une très bien...

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour

voilà un essai de dimanche matin

dans la première feuille il y a un bouton cliquer dessus pour lancer la macro
(ces dernières doivent être autorisées à fonctionner évidement)
😎

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Merci Gilbert
En testant, j'ai constaté des anomalies notamment:
- en rajoutant des valeurs sur la ligne 2 et (ou) colonne A, la copie en GIF ne correspond pas exactement à la zone sélectionnée
- En activant la macro d'une autre feuille ouverte, la sélection se fait quand même sur la feuille "Anni"
- Une zone blanche apparait sur le tour de la copie GIF
- La mise au format des colonnes n'est pas automatique (ça, je pense que je saurais faire!)
C'est plutôt encourageant car tu t'es quand même bien rapproché de ce que je souhaite!
Gilles

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

En activant la macro d'une autre feuille ouverte, la sélection se fait quand même sur la feuille "Anni"
normal c'est cette feuille qui est selectionnée dans la macro

si j'ajoute des données en ligne et colonne ça fonctionne

http://i48.servimg.com/u/f48/11/38/07/30/export10.gif

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Une zone blanche apparait sur le tour de la copie GIF

tester en remplacant xlscreen par xlPrinter dans Selection.CopyPicture appearance:=

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Effectivement mais lorsque je le fais, moi, le résultat n'est pas le même?? La ligne s'arrête à Jacques... Tu as également essayé avec plusieurs valeurs (une dizaine par exemple)?

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

En PJ le résultat de mon PC?

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

pas de problème pour moi

http://i48.servimg.com/u/f48/11/38/07/30/export11.gif

😎

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Une amélioration avec choix de la feuille et meilleur présentation de l'image 🙄

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonsoir,
Ca se rapproche de la perfection, je te remercie Gilbert pour le travail que tu as effectué, c'est super! il reste toutefois 3 petits points que j'aimerai si possible améliorer🙄
- La fusion de la cellule A1 sur ligne 1 jusqu'à la cellule correspondant à la dernière valeur ligne 2
- Reste toujours une bande blanche autour de l'image? (peut être est ce lié à la version exel 2003? j'ai testé sur un autre PC (exel 2003 aussi) elle apparait également
- Possibilité d'avoir un bouton d'exécution de la macro visible dans la barre de tâches?
Cordialement

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

pour la fusion il suffit de selectionner la plage puis faire une fusion

range(cells(1,1),cells(1,dercol)).select
Selection.Merge True

pour le blanc autour de l'image ????? je ne sais pas 😛
avec quoi ouvrez vous le gif ? avec paint il n'y a pas de blanc 😎