Addition en VBA

[Sabine]

Bonjour tout le monde !

Voila, j'ai réalisé une petite macro censée additionner qq cellules lorsque la condition était remplie. Cela doit marcher de 1 à 12 conditions, or mon soucis est que cela fonctionne pour 1 et 2 conditions, pas plus :angry: ... et là je cale complètement !

Si qq1 a une idée, ce ne serait pas de refus ! Ci joint mon classeur. Merci

 

[Eric C]

Bonjour le forum
Bonjour Sabine,

Heu, ton fichier ... il n'est pas passé. Pour t'aider, voici une aide non négligeable.... Lien supprimé

Bonne soirée à toutes & à tous

 

[Bricofire]

Bonsoir Sabine, Eric C

Ben toujours pas de fichiers...

Avec une boucle IF Then Else et une série de OR après le Then, tu avales 12 conditions sans pb dans une boucle.
Tu peux regarder aussi du côté Select Case si le résultat varie selon la nature de la condition plutôt que d'empliler des if, c'est plus efficace.

color=#0000FF]
If Cell = 2 Or Cell = 3 Or Cell = 5 Or Cell = 9 Or Cell = 24 Or Cell = 38 _
Or Cell = 41 Or Cell = 49 Or Cell = 53 Or Cell = 71 Or Cell = 12 _
Or Cell = 1001 Or Cell = 1002 Or Cell = 1003 Or Cell = 1004 _
Or Cell = 1005 Or Cell = 1006 Or Cell = 1007 Or Cell = 1008 _
Or Cell = 1009 Then
[/color]
Ce genre de chose fonctionne, même si dans ce cas l'utilisation de < xx > sur la fin serait plus judicieuse....

Bfr[
Bon courage

 

[Sabine]

Ci-joint un nouvel essai du fichier. Merci

 

[Sabine]

Bonjour, en fait mon fichier est trop lourd. ci joint le code :

Sub fracou()

'On va comparer tous les appels afin de pouvoir calculer le RAL. On compare, si on détecte que plusieurs cadences se suivent, alors on
'additionne la somme des appels.
Dim R1 As Variant, R2 As Variant, R3 As Variant, R4 As Variant, R5 As Variant, R6 As Variant 'référence
Dim R7 As Variant, R8 As Variant, R9 As Variant, R10 As Variant, R11 As Variant, R12 As Variant 'référence

Dim C1 As Variant, C2 As Variant, C3 As Variant, C4 As Variant, C5 As Variant, C6 As Variant 'client
Dim C7 As Variant, C8 As Variant, C9 As Variant, C10 As Variant, C11 As Variant, C12 As Variant 'client

Dim I1 As Variant, I2 As Variant, I3 As Variant, I4 As Variant, I5 As Variant, I6 As Variant 'Indice
Dim I7 As Variant, I8 As Variant, I9 As Variant, I10 As Variant, I11 As Variant, I12 As Variant 'Indice

Dim liggu1 As Integer 'n° de ligne
Dim liggu2 As Integer
Dim liggu3 As Integer
Dim liggu4 As Integer
Dim liggu5 As Integer
Dim liggu6 As Integer
Dim liggu7 As Integer
Dim liggu8 As Integer
Dim liggu9 As Integer
Dim liggu10 As Integer
Dim liggu11 As Integer
Dim liggu12 As Integer

Sheets('new').Select

Range('A5').Select

Do While ActiveCell.Value <> ''

liggu1 = ActiveCell.Row
liggu2 = liggu1 + 1
liggu3 = liggu1 - 1
liggu4 = liggu1 + 3
liggu5 = liggu1 + 4
liggu6 = liggu1 + 5
liggu7 = liggu1 + 6
liggu8 = liggu1 + 7
liggu9 = liggu1 + 8
liggu10 = liggu1 + 9
liggu11 = liggu1 + 10
liggu12 = liggu1 + 11

R1 = Range('A' & liggu1).Value
R2 = Range('A' & liggu2).Value
R3 = Range('A' & liggu3).Value
R4 = Range('A' & liggu4).Value
R5 = Range('A' & liggu5).Value
R6 = Range('A' & liggu6).Value
R7 = Range('A' & liggu7).Value
R8 = Range('A' & liggu8).Value
R9 = Range('A' & liggu9).Value
R10 = Range('A' & liggu10).Value
R11 = Range('A' & liggu11).Value
R12 = Range('A' & liggu12).Value

'C1 = Range('D' & liggu1).Value
'C2 = Range('D' & liggu2).Value
'C3 = Range('D' & liggu3).Value
'C4 = Range('D' & liggu4).Value
'C5 = Range('D' & liggu5).Value
'C6 = Range('D' & liggu6).Value
'C7 = Range('D' & liggu7).Value
'C8 = Range('D' & liggu8).Value
'C9 = Range('D' & liggu9).Value
'C10 = Range('D' & liggu10).Value
'C11 = Range('D' & liggu11).Value
'C12 = Range('D' & liggu12).Value


C1 = Range('D' & liggu1).Text
C2 = Range('D' & liggu2).Text
C3 = Range('D' & liggu3).Text
C4 = Range('D' & liggu4).Text
C5 = Range('D' & liggu5).Text
C6 = Range('D' & liggu6).Text
C7 = Range('D' & liggu7).Text
C8 = Range('D' & liggu8).Text
C9 = Range('D' & liggu9).Text
C10 = Range('D' & liggu10).Text
C11 = Range('D' & liggu11).Text
C12 = Range('D' & liggu12).Text


I1 = Range('C' & liggu1).Value
I2 = Range('C' & liggu2).Value
I3 = Range('C' & liggu3).Value
I4 = Range('C' & liggu4).Value
I5 = Range('C' & liggu5).Value
I6 = Range('C' & liggu6).Value
I7 = Range('C' & liggu7).Value
I8 = Range('C' & liggu8).Value
I9 = Range('C' & liggu9).Value
I10 = Range('A' & liggu10).Value
I11 = Range('C' & liggu11).Value
I12 = Range('C' & liggu12).Value


Range('A' & liggu1).Select


If R1 = R2 = R3 = R4 = R5 = R6 = R7 = R8 = R9 = R10 = R11 = R12 And C1 = C2 = C3 = C4 = C5 = C6 = C7 = C8 = C9 = C10 = C11 = C12 And I1 = I2 = I3 = I4 = I5 = I6 = I7 = I8 = I9 = I10 = I11 = I12 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu8).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu9).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu10).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu11).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'
Range('AA' & liggu12).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & '+AB' & liggu12 & ')'

Range('A' & liggu12).Select
GoTo ASTON
Else


If R1 = R2 = R3 = R4 = R5 = R6 = R7 = R8 = R9 = R10 = R11 And C1 = C2 = C3 = C4 = C5 = C6 = C7 = C8 = C9 = C10 = C11 And I1 = I2 = I3 = I4 = I5 = I6 = I7 = I8 = I9 = I10 = I11 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu8).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu9).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu10).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'
Range('AA' & liggu11).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & '+AB' & liggu11 & ')'

Range('A' & liggu11).Select
GoTo ASTON
Else


If R1 = R2 = R3 = R4 = R5 = R6 = R7 = R8 = R9 = R10 And C1 = C2 = C3 = C4 = C5 = C6 = C7 = C8 = C9 = C10 And I1 = I2 = I3 = I4 = I5 = I6 = I7 = I8 = I9 = I10 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu8).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu9).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'
Range('AA' & liggu10).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & '+AB' & liggu9 & '+AB' & liggu10 & ')'

Range('A' & liggu10).Select
GoTo ASTON
Else


If R1 = R2 = R3 = R4 = R5 = R6 = R7 = R8 = R9 And C1 = C2 = C3 = C4 = C5 = C6 = C7 = C8 = C9 And I1 = I2 = I3 = I4 = I5 = I6 = I7 = I8 = I9 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu8).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'
Range('AA' & liggu9).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & '+AB' & liggu8 & ')'

Range('A' & liggu9).Select
GoTo ASTON
Else


If R1 = R2 = R3 = R4 = R5 = R6 = R7 = R8 And C1 = C2 = C3 = C4 = C5 = C6 = C7 = C8 And I1 = I2 = I3 = I4 = I5 = I6 = I7 = I8 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'
Range('AA' & liggu8).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & '+AB' & liggu7 & ')'

Range('A' & liggu8).Select
GoTo ASTON
Else


If R1 = R2 = R3 = R4 = R5 = R6 = R7 And C1 = C2 = C3 = C4 = C5 = C6 = C7 And I1 = I2 = I3 = I4 = I5 = I6 = I7 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'
Range('AA' & liggu7).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & '+AB' & liggu7 & ')'

Range('A' & liggu7).Select
GoTo ASTON
Else

If R1 = R2 = R3 = R4 = R5 = R6 And C1 = C2 = C3 = C4 = C5 = C6 And I1 = I2 = I3 = I4 = I5 = I6 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'
Range('AA' & liggu6).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & '+AB' & liggu6 & ')'

Range('A' & liggu6).Select
GoTo ASTON
Else

If R1 = R2 = R3 = R4 = R5 And C1 = C2 = C3 = C4 = C5 And I1 = I2 = I3 = I4 = I5 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & ')'
Range('AA' & liggu5).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & '+AB' & liggu5 & ')'

Range('A' & liggu5).Select
GoTo ASTON
Else

If R1 = R2 = R3 = R4 And C1 = C2 = C3 = C4 And I1 = I2 = I3 = I4 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & ')'
Range('AA' & liggu4).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & '+AB' & liggu4 & ')'

Range('A' & liggu4).Select
GoTo ASTON
Else

If R1 = R2 = R3 And C1 = C2 = C3 And I1 = I2 = I3 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & ')'
Range('AA' & liggu3).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & '+AB' & liggu3 & ')'

Range('A' & liggu3).Select
GoTo ASTON
Else

If R1 = R2 And C1 = C2 And I1 = I2 Then
Range('AA' & liggu1).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & ')'
Range('AA' & liggu2).Formula = '=Sum(AB' & liggu1 & '+AB' & liggu2 & ')'

Range('A' & liggu2).Select
GoTo ASTON
Else

'Si on en arrive là, cela veut dire qu'il n'y a qu'une seule cadence, donc RAL = Q. de l'appel
Range('AA' & liggu1) = Range('AB' & liggu1)
Range('A' & liggu1).Select

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

ASTON:
ActiveCell.Offset(1, 0).Select

Loop


Range('A5').Select

End Sub