. This page was last edited 21:16:03, 2016-06-18 by LibreOffice Help user. Content is available under the GNU Lesser General Public License (LGPLv3), unless otherwise specified, originally based on OpenOffice.org help. 'LibreOffice' and 'The Document Foundation' are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our unless otherwise noted.
Comment Calculer Le Pourcentage
1 2 3 4 5 6 7 8 9 10 11 12 13 Sub calculpourcentage ( ) Dim valeur1 As Double Dim valeur2 As Double Dim i as Integer for i = 1 to derniereligne Range ( 'I' & i ).Value = valeur1 Range ( 'H' & i ).Value = valeur2 If valeur1 0 Then Range ( 'J' & i ).Value = valeur2 / valeur1 next i End Sub Reste a remplacer derniereligne par le numero de ta derniere ligne. Fait attention de faire le test ' 0' sur la valeur qui se trouve au denominateur (j'ai corrige la) Tu peux aussi integrer le code dans ta macro d'importation si jamais tu utilises deja une boucle. 1 2 3 4 5 Windows (mfich1 ).Activate Sheets ( 'recap v2 - a' ).Activate Columns ( 'W:BL' ).
Select 'devient Workbooks (mfich1 ).Sheets ( 'recap v2 - a' ).Columns ( 'W:BL' ).Delete Shift:=xlRight Ton code sera ainsi beaucoup plus clair. Teste quand meme regulierement pendant les modifs, des fois on peut pas Sinon pour ton probleme de format: Suivant les versions d'Excel et/ou de Windows (j'ai jamais trop compris) les nombres decimaux contiennent soit '.' Pour eviter de galerer, si jamais tu ne sais pas quel est celui qu'il faut utiliser sur ta machine tu convertis tout en Double (ou autre suivant le cas, cherche CDbl dans l'aide VBA tu devrais trouver un recapitulatif de tous les convertisseurs et tu choisis celui que tu veux).