Discussion :

[sof123]

Bonjour!
Je cherche a définir une zone d'impression dans un contexte assez complexe:
Mise en contexte:
Document pour des productions de factures,
Je choisis des termes de ventes avec un onglet déroulant, qui vient alors s'ajouter a la fin de ma facture.
comme nous avons plusieurs termes de ventes/location et autre, la longueur du texte varie.
Ce texte est déja TRES long et déborde de la limite maximal d'une case, jai donc fusionner 3 cellules pour que le texte apparaisse au complet, ce peu importe le terme choisit.
(jusque la tout va bien)
Lorsque que j'essai d'imprimer, le cadre s'ajuste automatiquement a 72% (pour inserer le texte au complet) et ca ''chie'' ma mise en page de la page 1 (facture en tant que tel, qui est produite pour etre a 100%lors de l'impression)
Si je met 100%, ca me fait 3 pages avec plein d'espace entre mes ''cellules de termes fusionnées''

J'aimerais trouver un moyen que la facture (page1) garde sa mise en page de 100% et que les ''cellules fusionnées des termes'' s'ajustent en fonction de la longueur et impriment sans espaces...

Je vous remercie à l'avance, je n'y arrive pas seule!

Merci!
Sophie

[parmi]

Bonjour,

Et si ton texte était en fait une image ajustée à la grandeur de ta cellule fusionnée, est-ce que ça pourrait faire ?
Tu pourrais copier l'image nécessaire en A40 selon le critère choisi en A39.

Par contre, si le texte est vraiment long, il se pourrait que les caractères soient petits à lire.

Une idée comme ça...

[sof123]

Bonjour! OOO mais quelle bonne idée!!!

C'est faisable d'associer une image selon un choix de liste déroulante? Si oui, comment on fait ca!?

(jai déja ces documents en PDF, convertir en JPG ca se fait et le texte est deja tout petit...) est-ce que ca alourdis de beaucoup le document?

Merci de votre réponse!
S

[parmi]

Pas besoin de créer des images sur le disque dur, une simple copie du texte suffit.

Dans le code de ta feuille Template, mets ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Shp As Shape
 
    If Target.Address(False, False) = "A39" Then
        For Each Shp In Sheets("template").Shapes
            If Shp.Left = Sheets("template").Range("A40").Left And Shp.Top = Sheets("template").Range("A40").Top Then
                Shp.Delete
            End If
        Next
        CopieImageTexte Range("A39").Value
    End If
End Sub

Dans un module, mets ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopieImageTexte(Choix As String)
    Dim Recherche As Range
 
    Set Recherche = Sheets("Termes").Columns(1).Find(Choix, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Sheets("Termes").Range("C" & Recherche.Row).CopyPicture
        Sheets("template").Range("A40").Select
        Sheets("template").Pictures.Paste.Select
        Application.CutCopyMode = False
    End If
 
End Sub

Il resterait à ajuster le format de cette image si elle déborde de la cellule avec ses propriétés Width et Height.