Erreur 6 dépassement de capacité

bonjour j'ai taper le code suivant mais j'ai l'erreur 6 overflow , comment la contourner ? jai essayer de changer le type de variable mais sans succès . Cordialement.

Sub operatordemo7()
Dim x As Variant
x = Sqr(2016 * Sqr(2017 * Sqr(2018 * Sqr(2019 * Sqr(2020 * Sqr(2021 * 2022))))))
Debug.Print x
End Sub

Bonjour

A tester

Sub operatordemo7()
Dim x As Variant
x = Sqr(2016 * Sqr(2017 * Sqr(2018 * Sqr(2019 * Sqr(2020 * Sqr(2021 * Sqr(2022)))))))
Debug.Print x
End Sub

merci mais ca me met automation error cette fois . cordialement

Re,

Bizarre, chez moi cela fonctionne

je veux taper en faite ca pour résoudre cette opération si ça peut aider.

j'ai toujours ça je sais pas pourquoi . ça doit être a cause du langage mais le debogueur me signale rien.

bonjour,

essaie ainsi

x = Sqr(2016 * Sqr(2017 * Sqr(2018 * Sqr(2019 * Sqr(2020 * Sqr(2021 * 2022#))))))

toujours pareille encore une fois .