Ligne de calcule Erreur 13
Bonjour,
Je suis débutant en VBA et j'ai un souci avec la ligne que j'ai mise en gras et soulignée ci-dessous.
Le problème vient de la formule de calcul, mais je ne comprends pas pourquoi, car j'ai fait un autre code qui fonctionne alors que la formule est la même.
Avez-vous une solution ?
Sub test()
'Déclaration de mes variables
Dim nAnalyte, nCompo, ligne, Total, kl, kc, TmExp, ret As Integer
'Mes variables
nAnalyte = WorksheetFunction.CountA(Range("A14:A1048576")) 'Nombre de molécule
nCompo = WorksheetFunction.CountA(Range("13:13")) 'Nombre d'essai de phase mobile
Lignes = nAnalyte + 15 'Position de la première ligne du tableau généré
Total = Lignes + nAnalyte
ret = nAnalyte + 2
TmExp = Range("B10")
For kl = Lignes + 1 To Total
For kc = 1 To nCompo
Cells(Lignes, kc) = Cells(13, kc) 'Ligne de titre
Cells(Lignes, kc).Borders.Value = 1 'Ligne de titre
Cells(Lignes, kc).HorizontalAlignment = xlHAlignCenter 'Ligne de titre
Cells(Lignes, kc).Interior.Color = RGB(180, 198, 231) 'Ligne de titre
Cells(kl, kc)= Format(Cells(kl - ret, kc) / TmExp - 1, "0.0")
Cells(kl, kc).HorizontalAlignment = xlHAlignCenter 'corps du tableau
Cells(kl, kc).Borders.Value = 1 'corps du tableau
Cells(kl, kc).Interior.Color = RGB(217, 225, 242) 'corps du tableau
Next kc
Next kl
'Titre du tableau
Cells(Lignes, 1).Select
Cells(Lignes, 1).Borders.Value = 1
Cells(Lignes, 1).HorizontalAlignment = xlHAlignCenter
Cells(Lignes, 1).Interior.Color = RGB(180, 198, 231)
ActiveCell.FormulaR1C1 = "Facteur de rétention"
'Titre des colonnes
End Sub Bonne journée
Cédric
Bonjour Cédric, bienvenue sur le forum.
A première vue pas d'erreur de syntaxe dans le code.
Sur quelle ligne se trouve l'erreur ?
la ligne que j'ai mise en gras et soulignée ci-dessous.
La mise en forme n'apparait pas sur la mise en forme "code"
A+
Bonsoir,
Merci pour votre réponse.
C'est la ligne Cells(kl, kc)= Format(Cells(kl - ret, kc) / TmExp - 1, "0.0")
Bonsoir,
c'est TmExp qui divise ou c'est (TmExp-1) ?
Erreur 13 est une erreur de type (calcul entre des pommes et des carottes)...
"Cause : La variable ou la propriété n’appartient pas au bon type. Par exemple, une variable qui requiert une valeur entière ne peut pas accepter une valeur de chaîne, à moins que la chaîne entière puisse être reconnue comme un entier."
Donc même si l'écriture est bonne reste à voir ce qui se trouve dans les variables.
@ bientôt
LouReeD