Rapport de message :*
 

Re: Probléme de code

Titre du sujet : Re: Probléme de code
par Mth le 22/08/2012 10:42:49

Bonjour beatbles, bonjour le forum,

Si ton fichier fait 2Mo il suffit de retirer tout ce qui ne sert à rien pour expliquer le problème, limiter le nombre de lignes à une dizaine dans les feuilles par exemple, éliminer les onglets non utilisés dans cette procédure, etc. puis zipper.
Ceci dit si tu as réussi à contourner ton problème tant mieux.

Pour le reste, ta boucle est sans doute un peu longue à exécuter si tu as beaucoup de lignes, essaie peut-être comme ceci ? ...  
Option Explicit
Sub test()
Dim ligne As Long, B1 As String

With Sheets("Feuille")
  ligne = .Cells(Rows.Count, 10).End(xlUp).Row
  B1 = Format(WorksheetFunction.Subtotal(9, .Range("J2:J" & ligne)), "#,##0.00 €")
End With
End Sub
 

Suite: ... Bien évidement, si ta colonne est remplie de texte, cela te donnera toujours zéro. Si c'est une coquille remets le bon format, si non il faudra dans la macro transformer tout cela en numérique.

(euh ... je ne veux pas avoir l'air d'insister lourdement mais avec un fichier joint nous aurions vu tout de suite que tu cherchais à additionner du texe !! ... )

Très bonne journée,

mth