VBA:bug variable ds formule sans message d'erreur

[LPandre]

Bonjour à toutes et tous.
la macro s'arrête avec un message de débogage, mais je n'ai aucun message d'erreur de compilation ou autre.

Code en question :

' je déclare la variable :
rep1 = InputBox("Valeur en format 0,035 par ex", "Pourcentage d'augmentation", 0.035)
var1 = 1 + rep1

' et là ça plante :
Range("H2").Select
ActiveCell.FormulaLocal = "=IF(RC[-5]<R2C10,RC[1],RC[1]*" & var1 & ")"

Par avance merci.

 

[Gorfael]

Re : VBA:bug variable ds formule sans message d'erreur

Salut LPandre et le forum

la macro s'arrête avec un message de débogage, mais je n'ai aucun message d'erreur de compilation ou autre.

Difficile de t'aider : on n'a rien comme donnée exploitable :
pas de boîte de dialogue ?

' je déclare la variable :
rep1 = InputBox("Valeur en format 0,035 par ex", "Pourcentage d'augmentation", 0.035)
var1 = 1 + rep1

Euh... Là, tu la remplies, tu ne la déclares pas. Si tu ne l'a pas déclarée, Excel lui, la déclare en Variant

' et là ça plante :
Range("H2").Select
ActiveCell.FormulaLocal = "=IF(RC[-5]<R2C10,RC[1],RC[1]*" & var1 & ")"

Chez moi, une seule ligne est surlignée... mais il est vrai que je n'ai que la version 2003 d'excel. Ta macro est écrite sur un module général, ou un module de classe ?

T'es en version anglaise, (...FormulaLocal = "=IF...) pourquoi ne pas le dire ?
Pourquoi ne pas donner l'intégralité de la macro ?
Le but n'est pas de suivre un jeu d'énigme où on découvre les indices au fur et à mesure, c'est d'avoir toutes les données et de résoudre un problème (enfin, pour ma part)!
A+

 

[LPandre]

Re : VBA:bug variable ds formule sans message d'erreur

La macro est longue,le fichier gros et surtout je pensais que l'erreur allait"sauter au yeux" pour un plus initié que moi.
Mon Excel est français, mais il code en anglais !
Bref, merci d'avoir pris la peine de regarder, j'ai contourné le problème et pour l'instant c'est satisfaisant, si ça coine plus tard, je reviendrais avec plus de données.

 

[Gorfael]

Re : VBA:bug variable ds formule sans message d'erreur

Salut LPandre et le forum
Effectivement ça saute aux yeux... quand tu es précis!
Même si Excel est en français, VBA, lui reste en anglais.
Sur mon excel français je code

Sub test()
Dim var1 As Integer
var1 = 1
[G10].FormulaLocal = "=IF(RC[-5]<R2C10,RC[1],RC[1]*" & var1 & ")"
End Sub

Et j'ai une erreur 1004. Alors qu'avec

Sub test()
Dim var1 As Integer
var1 = 1
[G10].Formula = "=IF(RC[-5]<R2C10,RC[1],RC[1]*" & var1 & ")"
End Sub

ou

Sub test()
Dim var1 As Integer
var1 = 1
[G10].FormulaR1C1 = "=IF(RC[-5]<R2C10,RC[1],RC[1]*" & var1 & ")"
End Sub

je n'ai pas d'erreur. Bizarre hein 😀
A+