Designation de Cells avec variable entraine erreur
Bonjour a tous,
Je viens vers vous après avoir écumé le web à la recherche d'une solution j'ai tout retourné et je vois que c'est le Cells( P, Q) qui ressort comme incorrect... Si vous avez une idée parce que je ne vois pas d'autre choix que d'utiliser cells puisque j'ai des coordonnées.
Merci beaucoup d'avance
Sub Simulation()
Dim i As Long
Dim s As Long
Dim m As Long
Dim y As Long
Dim P As Long
Dim Q As Long
Worksheets("Assumptions").Range("B11:B15").Copy
Worksheets("BP - Monthly").Range("B8:B12").PasteSpecial xlPasteAll
For i = 1 To 5
s = 10 + i
m = Worksheets("Assumptions").Range("D" & s).Value
y = Worksheets("Assumptions").Range("E" & s).Value
P = (8 + m + (y - 1) * 12)
Q = (7 + i)
Worksheets("BP - Monthly").Cells(P, Q) = Worksheets("Assumptions").Cells(s, 2).Value
Next i
End SubCombien vaut P lors de ton erreur? Sûrement <1
P = (8 + m + (y - 1) * 12)
Sub Simulation()
Dim i As Long
Dim s As Long
Dim m As Long
Dim y As Long
Dim P As Long
Dim Q As Long
Worksheets("Assumptions").Range("B11:B15").Copy
Worksheets("BP - Monthly").Range("B8:B12").PasteSpecial xlPasteAll
For i = 1 To 5
s = 10 + i
m = Worksheets("Assumptions").Range("D" & s).Value
y = Worksheets("Assumptions").Range("E" & s).Value
P = (8 + m + (y - 1) * 12)
Q = (7 + i)
debug.print P
Worksheets("BP - Monthly").Cells(P, Q) = Worksheets("Assumptions").Cells(s, 2).Value
Next i
End SubMalheureusement non j'y ai pensé P vaut 9 car j'ai m (mois) et y (année) qui valent 1 et 1
Alors aucune raison que cela déclanche une erreur... Si tu nous files ton fichier on pourra peut être aider.
Je t'avoue que cette fois-ci je ne comprends pas j'ai essayé de redimensionner toutes mes variables en pensant à un problème d’homogénéité j'ai essayé toutes les formulations possibles de copier coller j'ai essayé de juste finir ce code par Select.Cells(P,Q)
pour être sur que ce n'était pas le reste de la formule qui coinçait et rien n'y fait...
Deux problèmes possibles soit P est inférieur à 1 à un moment dans ta boucle soit l'une de tes cellules est protégée.
Merci de tes réponses effectivement la macro ne supportait pas les cas ou m et y était liées à des cellules vides.
Je suis d'ailleurs bien curieux de comprendre pourquoi car pour moi si m=y=0 on na toujours p et Q qui ont des valeurs positive...
Merci encore
Revois tes cours de maths du CP
m = y = 0
=>
P = (8 + m + (y - 1) * 12)
P = 8 + 0 (0-1) * 12
P = 8+(-1)*12
P=8-12
P=-4
EngueEngue a écrit :Revois tes cours de maths du CP
m = y = 0
=>
P = (8 + m + (y - 1) * 12)
P = 8 + 0 (0-1) * 12
P = 8+(-1)*12
P=8-12
P=-4
Autant pour moi je pense que mon cerveau était un peu fatigué ...
J'espère que le mois et les dix jours ont permis à ton cerveau de se reposer!