Discussion :

[patricktoulon]

bonjour a tous
voila j'ai presque abouti a faire mon devis facturier et il est fonctionnel
je le depose pour d'autres
si sa peut servir

merci pour les petits coups de main à:
drakar agfa
ucfoutu
kiki29
casefayere
Gorfael
Krovax

[patricktoulon]

mince je n'arrive pas a joindre mon fichier zip
il fait 1 mega 33
comment le joindre?
la solution svp

[casefayere]

Bonjour Patrick,

je pense que si ton fichier est si gros, il doit pouvoir être allégé, ne mets que les données principales et regardes bien tout ce qui est peut-etre devenu inutile dans ton code

Bon WE

[patricktoulon]

bonjour casefayere

j'ai bien enlevé toute ce qui pouvait faire du poid dans mon fichier(image logo entrprise,son ect.... mais il fait toujour 1.33 mega compressé avec
winrar mode meilleur
ca devient difficille d'enlever quelque chose d'autre
il va faloir que je le decoupe peut-etre qu'en pense tu?

et si je le decoupe est-ce qu'il pourra etre remonter?

[patricktoulon]

voila pour le fichier initial sans les userforms

[patricktoulon]

voila ca yest j'ai compris ouff
j'ai fini par enlever les image de fond dans tout les userforms et effectivement ca reduit pas mal la bete
alors voila il est un peut moins joli que le final mais il a toutes les fonction prétendues

[casefayere]

J'ai regardé en vitesse, tu pourrais rvoir tes codes et les soulager des select ou activate, essayes avec cet exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub quitterprincipale_Click()
For i = 15 To 40
With Sheets(Sheets.Count)
.Range("H" & i).FormulaR1C1 = Range("h" & i).Value
.Range("I" & i).FormulaR1C1 = Range("I" & i).Value
.Range("I41").FormulaR1C1 = Range("I41").Value
End With
Next
 
Range("I41").NumberFormat = "#,##0.00 $"
..........

Bon WE