simplification macro

[Philippe]

Bonjour à tous

voilà, j'ai une base de données qui me sert à effectuer des calculs de consommation électrique. Cette macro fonctionne, mais il y a certaines lignes de code que j'aimerais simplifier par des boucles bcp + simple.

Comme il n'y a pas de meilleur discours qu'un exemple, je joins à ce post un fichier exemple avec la macro en question. J'ai signalé en commentaire la partie du code que je souhaite simplifier.

Par avance merci pour toute l'aide que vous pourrez m'apporter.

Philippe [file name=KWConsoversiontest.zip size=48683]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KWConsoversiontest.zip[/file]

 

[dg62]

Bonjour Philippe


une piste en vitesse

for I = 0 to 30
if range('I6').offset(0,I)='' or range('J5').offset(0,I)='' then
...
...
next I

offset opère un décalage

 

[myDearFriend!]

Bonjour Philippe, dg62,

Ci-joint une autre proposition à tester :

Dim C As Byte
      '...
      '...
      '...
      For C = 9 To 39
            If Cells(1, C) = '' Or Cells(2, C) = '' Then
                  Cells(3, C) = ''
            ElseIf Cells(1, C) '' And Cells(2, C) '' Then
                  Cells(3, C).FormulaR1C1 = '=SUM(R[-2]C:R[-1]C)'
            End If
            If Cells(6, C) = '' Or Cells(6, C + 1) = '' Then
                  Cells(4, C) = ''
                  Cells(5, C) = ''
            ElseIf Cells(6, C) '' And Cells(6, C + 1) '' Then
                  Cells(4, C).FormulaR1C1 = '=R[-1]C/(R[2]C[1]-R[2]C[0])'
                  Cells(5, C).FormulaR1C1 = '=CONCATENATE(R[1]C,'' '',''au'','' '',R[1]C[1])'
            End If
      Next C

Bonnes fêtes de fin d'année.

EDITION : les caractères Inférieur à et Supérieur à n'apparaissent pas à tort (pb du forum) dans les lignes ci-dessus... voir le fichier joint. [file name=KWConsoversiontest_20051231143219.zip size=49320]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KWConsoversiontest_20051231143219.zip[/file]

Message édité par: myDearFriend!, à: 31/12/2005 14:32

 

[philippe]

merci pour ces pistes je vais tester tout cela

 

[Philippe]

Merci 'myDearFriend' pour ta proposition qui fonctionne parfaitement et qui plus est ! m'a enfin permis de comprendre le mécanisme de ces satanées boucles.

Bonne année à tous

Philippe :woohoo: