Creer une Boucle
Bonjour,
Je suis débutant dans la programation de macro et aujourdhuit j'ai creeé une petite macro .
J'ai un tableau qui contient des valeurs I0tot , P0tot ... ces valeurs sont en formule et pas en dure.
J'ai créer une petite macro et j'ai fais une ligne de plus dans mon tableau qui cette fois ci va contenir les valeurs en dure grace à la macro.
Le problème c'est que je dois faire ca plusieurs fois car chaque cellule est longue je sais que la solution c'est faire une boucle sauf que j'arrive pas à l'executer ...
voici un fichier qui explique mon probleme
Merci d'avance
http://cjoint.com/13sp/CIlpmZGS1O1.htm
Je suis débutant dans la programation de macro et aujourdhuit j'ai creeé une petite macro .
J'ai un tableau qui contient des valeurs I0tot , P0tot ... ces valeurs sont en formule et pas en dure.
J'ai créer une petite macro et j'ai fais une ligne de plus dans mon tableau qui cette fois ci va contenir les valeurs en dure grace à la macro.
Le problème c'est que je dois faire ca plusieurs fois car chaque cellule est longue je sais que la solution c'est faire une boucle sauf que j'arrive pas à l'executer ...
voici un fichier qui explique mon probleme
Merci d'avance
http://cjoint.com/13sp/CIlpmZGS1O1.htm
3 réponses
-
Bonjour,
Remplacer votre ligne d'instruction par le bloc de lignes suivant:With Sheets("BOOK")
For c = 1 To 4
.Cells(27, c + 3).FormulaLocal = "=" & Cells(6, c + 10).Value & "*N26^6+" & Cells(7, c + 10).Value & "*N26^5+" _
& Cells(8, c + 10).Value & "*N26^4+" & Cells(9, c + 10).Value & "*N26^3+" & Cells(10, c + 10).Value & "*N26^2+" _
& Cells(11, c + 10).Value & "*N26^1+" & Cells(12, c + 10).Value
Next c
End With
