Macro en boucle qui ne fonctionne pas

OK!! Là c'est nickel !! Merci énormément !!!!!
Serieux tu assures !!!!!!

Heuuuu..... Mélaniiiie.......... Petite question !
Comment faire pourque : au lieu d'arrêter la macro à "TOTAL", ben en fait elle s'arrête
quand la case est vide ?
Parce qu'en fait, là tout est nickel, mais par exemple si j'insère une ligne en +, du coup il s'arrête à TOTAL !

OK nickel il s'arrête bien à partir du moment ou la case est vide !
MAIS !! Du coup comme j'ai viré la zone de nom "TOTAL" , il indique "#NOM?"
puisque dans ma macro, je lui ai donné comme calcul :
ActiveCell.FormulaR1C1 = "=RC[-1]*R[-1]C/TOTAL"

En fait, pour etre + clair, je voudrai remplacer "TOTAL" par la somme de toutes les lignes !

Bonjour Mélanie, déjà merci pour ta réponse :)
Voici donc mon chef d'oeuvre :)

'
Do
ActiveCell.Offset(12, B).Select


If ActiveCell.Value > 1 Then

ActiveCell.FormulaR1C1 = "=RC[-1]*R[-1]C/TOTAL"
Range("D12").Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*R[-1]C/TOTAL,2)"
Range("E12").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-1]C/TOTAL"
Range("F12").Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-1]"
Range("G12").Select
ActiveCell.FormulaR1C1 = "=RC[-3]"
Range("C13").Select


End If
Loop Until ActiveCell.Value = 0



End Sub


Mon soucis c'est qu'en fait le nombre de ligne peut varier ! là tu vois j'ai mis de la ligne 3 a 15 mais ça peut etre + ou - que ça !!
Ca doit pas etre compliqué je pense !! C'est juste de la logique !!
A partir de la cellule C12, je fais des calculs sur les cellules D12, E12 F12 et G12.
Après cela je veux que ma macro (incluant tous mes cacluls) se répète sur les lignes en dessous (donc à partir de C13 poure les cellules D13 E13 etc etc) !!!

As tu essayé de me répondre ?

Nan ça marche pas !! :(
Il m'indique que j'ai un soucis avec : If ActiveCell.Value > 1 Then

Voilà ce que je viens de faire, j'ai supprimé le DO cells(i,1)=0
parce que du coup il me remplace le montant dans la cellule par 0.

For i = 12 To 30
Cells(i, 2).Select

Do


If Selection.Value > 1 Then
Cells(i, 3).Select
ActiveCell.FormulaR1C1 = "=RC[-1]*R[-1]C/TOTAL"
Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*R[-1]C/TOTAL,2)"
Cells(i, 5).Select
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-1]C/TOTAL"
Cells(i, 6).Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-1]"
Cells(i, 7).Select
ActiveCell.FormulaR1C1 = "=RC[-3]"

End If
Loop

Next i

End Sub

Et du coup il me fait la macro en boucle...mais que sur la ligne 12 !
il descend pas !!

Ben je peux te dire que si tu es réveillée :) ça marche !! :)
Tu assures Mel' :) !!! Par conter, j'ai une dernière question et après j'arrêtes de t'embêter !!
Tu sais qd il fait les calculs, comment je dois faire pour qu'il prenne toujours la même cellule dans son calcul ? tu sais on met la lettre de la cellule entre $$
exemple $C$12.
Comment ça se manifeste dans une macro ça ?
Je les place ou dans ma formule ?

ActiveCell.FormulaR1C1 = "=RC[-1]*R[-1]C/TOTAL"

Ok ça marche bien là c'est nickel !!!!
Juste une dernière chose !! Ma dernieère cellule en bas, c'est le total (c'est d'ailleurs, comme tu as pu le constater repris dans les formule "TOTAL")
Comment faire pour qu'en fait la macro s'arrête qd il est arrivé à TOTAL, en fait je ne veuxpas qu'il me fasse de calcul arrivé sur cette cellule

NAN j'ai rien dit !! c'est bon en fait !!!! Je dois bien avoir le résultat !!! C'est Nickel !!!

Ok alors là moi je dis RESPECT !!
Si ensuite je fais une mise en forme des cellules via la macro (je vais rajouter des trucs comme quoi je veux 2 chiffres apres la virgule et les montants espacés, et aussi des bordures, est ce que je peux arrêter cette mise en forme à TOTAL ? c'est à dire ne pas aller + loin que TOTAL ?

Ca ne fonctionne plus !! Je ne sais aps pourquoi !!
Mais je pense que c'est à cause de "TOTAL" tu sais c'est pas écrit "TOTAL" dans la cellule, c'est juste que j'ai remplacé le nom de la cellule B23 par "TOTAL"

regarde la macro :

i = 12

Cells(i, 2).Select
Do While Cells(i, 2) = "TOTAL"


If ActiveCell.Value > 1 Then

ActiveCell.FormulaR1C1 = "=RC[-1]*R[-1]C/TOTAL"
Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*R[-1]C/TOTAL,2)"
Cells(i, 5).Select
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-1]C/TOTAL"
Cells(i, 6).Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-1]"
Cells(i, 7).Select
ActiveCell.FormulaR1C1 = "=RC[-3]"

End If

Range("C12:G12").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "#,##0.00"
Range("C12").Select


i = i + 1
Cells(i, 1).Select
Loop

End Sub

ok là c'est bon ça refonctionne !! Qd tu me dis "une plage de cellule comme étant total"
si ce n'est qu'une seule cellule qui s'appelle total c'est bon ou pas ?
Parce que là du coup, il fait bien les calculs, mais s'arrête à "Total" sans faire le calcul sur cette ligne !