Remplacement de cellule
student90
Messages postés
21
Statut
Membre
-
student90 Messages postés 21 Statut Membre -
student90 Messages postés 21 Statut Membre -
Hello forum,
Je suis face à un problème que je ne comprends pas...
J'ai essayé de remplacer une cellule par t (D6) et cela marche quand je l'affiche en G4 mais pas dans la formule ... Y aurait-il un connaisseur ?!
Sub matrice()
Dim t
t = "D" & Application.WorksheetFunction.CountA(Feuil1.Range("$D:$D")) & ""
Range("G2") = Evaluate([SQRT(MMULT(MMULT(TRANSPOSE(D2:t),I2:M6),D2:t))])
Range("G4") = t
End Sub
Je suis face à un problème que je ne comprends pas...
J'ai essayé de remplacer une cellule par t (D6) et cela marche quand je l'affiche en G4 mais pas dans la formule ... Y aurait-il un connaisseur ?!
Sub matrice()
Dim t
t = "D" & Application.WorksheetFunction.CountA(Feuil1.Range("$D:$D")) & ""
Range("G2") = Evaluate([SQRT(MMULT(MMULT(TRANSPOSE(D2:t),I2:M6),D2:t))])
Range("G4") = t
End Sub
2 réponses
-
Bonjour
Ta syntaxe Evaluate est erronée
evaluate("..........." & unevariable &".....
les crochets sont incompatibles avec evaluate: ils sont utilisés pour des syntaxes sans variables et doivent donc disparaitre de ta syntaxe
-
Merci michel_m
Grâce à ta réponse, j'ai compris l'erreur ... Il faut que j'attaque le code sous une autre forme
Student
