Probleme de syntaxe

Question

Bonjour, Pourriez-vous me dire le petit truc que j'ai loupé dans ma ligne de code pour qu'elle fonctionne! En faite je veut affécter une valeur à la céllule AHi. Cette Valeur étant la soustraction de la valeur numérique 12.64 - la valeur d'une céllule d'un autre onglet.

     If Cells(2, "AJ") = 4 Then
      Cells(i, "AH").Value = 12.64 - Sheets("Test").Cells(i, "HP").Value
      End If

cs_MPi · Answer

If Range("AJ2") = 4 then
Range("AH" & i) = 12.64 - Sheets("Test").Range("HP" & i)

Ça devrait bien aller comme ça

MPi

jrivet · Answer

Salut,
J'ai testé ta synthaxe chez moi et il n'y a eu aucun souci (SAUF SI i ne possède aucune valeur)

@+: Ju£i?n
Pensez: Réponse acceptée

Molenn · Answer

A mon avis, comme souvent dans Excel, le pb doit venir de la différenciation de la décimale, qui est soit un point, soit une virgule.

Dans Sheets("Test").Cells(i, "HP").Value, tu as quoi ? Un point, une virgule ?
Comme j'en ai marre de me prendre la tête avec ça, personnellement, je m'arrange pour avoir toujours une virgule (c'est un choix ^^) en utilisant un replace.

Passé ce souci, tu peux convertir le contenu de ta cellule pour faire ton calcul, par exemple en Currency pour tenir compte des décimales, ce qui te donnerait un code du style :

If Cells(2, "AJ") = 4 Then
      Cells(i, "AH").Value = CCur(12,64) - CCur(Sheets("Test").Cells(i, "HP").Value)
End If 

Molenn

Manuj35 · Answer

Baaa non il me le prend pas. Incompatibilité de type, erreur 13

     If Range("AJ2") = 4 Then
      Range("AH" & i) = 12.64 - Sheets("Récapitulatif 2007").Range("HP" & i)
      End If

Molenn · Answer

Rajoute juste avant ton code 
msgbox Sheets("Récapitulatif 2007").Range("HP" & i).value
Et regarde ce qui est affiché. Si par ex., comme je te le dis plus haut, tu as une virgule, ça ne risque pas de fonctionner.

Après, en fonction du contenu de la cellule, on pourra en savoir plus.

Molenn

Manuj35 · Answer

Bon j'ai pris la solution a Molenn, l'érreur est descendu dans mon programme donc il a du prendre la ligne de code.

Cells(i, "AG").Value = CCur(38) - CCur(Sheets("Récapitulatif 2007").Cells(i, "HI").Value)

il veut pas, sa doti etre a peu prés le meme probleme je pense

Pour info, dans les autres céllules, j'ai des virugles et pas des points

Manuj35 · Answer

Bon j'ai éssayé plusieurs choses, aucune ne fonctionne. Quelqu'un peut m'aider?! SVP!!

Cells(i, "AH").Value = 3 - Sheets("Test").Cells(i, "HJ").Value

Range("AH" & i) = 3- Sheets("Test").Range("HP" & i)

 Cells(i, "AH").Value = CCur(3,16) - CCur(Sheets("Test").Cells(i, "HP").Value)

Manuj35 · Answer

Voila ces bon sa marche, juste que il veut pas me faire 9-"Valeur de la céllule désigné". Il me fais 9-"Rien du tout" comme si javais Cells(i, "C").Value=9 et c'est tout. Que faut'il faire pour qu'il me fasse l'opération totale?

Cells(i, "C").Value = 9 - Sheets("Récapitulatif 2007").Cells(j, "HN").Value

cs_MPi · Answer

Mets un MsgBox avec la valeur de i, j, Sheets("Récapitulatif 2007").Cells(j, "HN") ... 
juste avant de faire ton opération et vérifie si les valeurs sont conformes.

MPi

Probleme de syntaxe

9 réponses

Votre réponse

Discussions similaires