Dépassement de capacité - VBA - Forum Formule Excel
J'ai essayé de résoudre ce mais ne pouvait pas. J'ai le code VBA suivant. Tout en courant il donne "erreur d'exécution 6: Dépassement de capacité". Je suppose que j'ai attribué un droit type de chaque variable. S'il vous plaît aider!! Sub UseCoeff () Dim a, b As Long Dim Value1 As Double ThisWorkbook. Sheets ( "UseTableBEA"). Activate For b = 2 To 427 For a = 2 To 431 Value1 = ThisWorkbook. Cells ( a, b). Value / ThisWorkbook. Cells ( 432, b). Value ThisWorkbook. Sheets ( "UseCoeff"). Value = Value1 Next a Next b End Sub Chaque cellule aura un résultat qui peut être comprise entre 0 et 1 jusqu'à huit décimales. Merci à l'avance!!!! La version d'Excel que vous utilisez? Dans Excel 2003, vous ne pouvez pas avoir 427 colonnes... Original L'auteur user1671860 | 2012-09-18
Bonsoir, J'ai lu un peu sur le forum les réponses revenants à ce sujet, mais problème, je ne trouve toujours pas la logique de la programmation. Je vous explique alors mon problème, je dois rendre un projet utilisant VBA pour un mémoire d'économie, j'ai utilisé le même programme pour un autre pays (etats-unis) et tout fonctionne à la perfection. J'ai essayé de nouveau pour un autre pays mais là le programme bogue. De plus, l'erreur ne venait pas d'une autre variable. J'essaie d'augmenter la capacité de mon programme... Mais je n'y arrive toujours pas. Je vous laisse ici mon programme: Sub ProcAnnéeTech() Dim t As Integer Dim prod As Integer Dim prow as Integer Dim i As integer Dim j As integer Dim n As Integeer Dim wsACRSA As Worksheet Dim année As String Dim pays As String pays = InputBox("Quel est le pays étudié? ", "Choix du pays", "Portugal") Set wsACRSA = heets("Synthèse_année") prod = (, 1)(xlUp) - 2 (prod + 3) (1, 2)(, - 1) (1, 1) = "Tableau 2. " & pays & ": avantages comparatifs (1) selon l'intensité technologique" n = InputBox("Quel est le nombre d'année?
Assurez-vous que les assignations aux propriétés correspondent à la plage de la propriété dans laquelle elles sont effectuées. Assurez-vous que les nombres utilisés dans les calculs qui sont convertis en entiers n'ont pas de résultats plus grands que des entiers. Voir aussi xValue Data types Types d'erreurs
WriteLine(CALCULATRICE_Résultat) Console. WriteLine("Appuyez sur la touche entrée pour continuer. ")
skytimetravel.net, 2024