simplification macro

Philippe · 31 Décembre 2005

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 · 31 Décembre 2005

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! · 31 Décembre 2005

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 · 31 Décembre 2005

merci pour ces pistes je vais tester tout cela

Philippe · 31 Décembre 2005

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:

simplification macro

Philippe

Guest

Pièces jointes

dg62

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

philippe

Guest

Philippe

Guest

Discussions similaires