lebarbo
XLDnaute Occasionnel
Bonjour à tous,
Je vais essayer d'être clair sur mon problème même si c'est assez compliqué à décrire, dites moi si vous avez du mal à saisir ; ) :
Dans une macro je souhaite calculer un ratio en fonction d'une variable en temps réelle que je récupère grâce une macro dde dans une cellule excel.
Donc en A1 j'ai un chiffre qui bouge en temps réel.
Dans ma macro, je calcule une variable de type numérique et en décimale qui fait référence à d'autres données.
Ensuite je fais une formule toujours dans la macro pour mettre dans ma cellule B1 une fonction conditionnelle de type "=si" faisant référence et à ma variable numérique et à la cellule A1 comme ça ce calcul bouge en temps réel.
Donc en VBA voici un code simplifié pour illustrer :
Sheets("Feuil1").Range("B1").Formula = "=if(A1>2," & MaVariableNum & "+A1,0)"
Le problème c'est que MaVariableNum est décimalisée et que VBA ne prend que des entiers.
Pouvez vous m'aider...
Merci d'avance
Je vais essayer d'être clair sur mon problème même si c'est assez compliqué à décrire, dites moi si vous avez du mal à saisir ; ) :
Dans une macro je souhaite calculer un ratio en fonction d'une variable en temps réelle que je récupère grâce une macro dde dans une cellule excel.
Donc en A1 j'ai un chiffre qui bouge en temps réel.
Dans ma macro, je calcule une variable de type numérique et en décimale qui fait référence à d'autres données.
Ensuite je fais une formule toujours dans la macro pour mettre dans ma cellule B1 une fonction conditionnelle de type "=si" faisant référence et à ma variable numérique et à la cellule A1 comme ça ce calcul bouge en temps réel.
Donc en VBA voici un code simplifié pour illustrer :
Sheets("Feuil1").Range("B1").Formula = "=if(A1>2," & MaVariableNum & "+A1,0)"
Le problème c'est que MaVariableNum est décimalisée et que VBA ne prend que des entiers.
Pouvez vous m'aider...
Merci d'avance